Access常用日期函数大全 部份Excel通用

Access常用日期函数，部份Excel通用

DateDiff , DateAdd, DatePart

一年有多少天 366 days/2020

"Total days: " & DateDiff("d", "1/1/" & Format(Date, "yyyy"), "12/31/" & Format(Date, "yyyy")) + 1

"Total days: " & DatePart("y", "12/31/" & Format(Date, "yyyy"))

一年有多少周 53 weeks/2020

"Total weeks: " & DateDiff("ww", "1/1/" & Format(Date, "yyyy"), "12/31/" & Format(Date, "yyyy"), vbMonday) + 1

"Total weeks: " & DatePart("ww", "12/31/" & Format(Date, "yyyy"), vbMonday)

今天是第几周

"Current Week: " & DateDiff("ww", "1/1/2020", Date, vbMonday) + 1

"Current Week: " & DatePart("ww", Date, vbMonday, vbFirstJan1)

今天是星期几

"Current day: " & Weekday(Date, vbMonday)

"Current day: " & DatePart("w", Date, vbMonday)

今天是一年中的第几天

DatePart("y", Date)

DatePart("y", "2020-12-1")

今天是一年中的第几季

DatePart("q", Date)

DatePart("q", "2020-5-1")

本周从几号开始,到几号结束

Format(Date - Weekday(Date, vbMonday) + 1, "yyyy-mmm-dd")

Format(Date - Weekday(Date, vbMonday) + 7, "yyyy-mmm-dd")

本月有多少天

DateAdd("m", 1, "1/" & Format(Date, "yyyy/mmm")) - DateValue("1/" & Format(Date, "yyyy/mmm"))