DatePart
一个函数，返回给定日期的特定部分。
语法
DatePart(interval,date[,firstdayofweek[,firstweekofyear]])
参数说明
-
Interval, 必需的参数。它可以采用以下值：
-
d - 一年中的一天
-
m - 一年中的月份
-
y - 年份年数
-
yyyy - 年份
-
w - 工作周
-
ww - 星期
-
q - 季度
-
h - 小时
-
m - 分钟
-
s - 秒
-
-
date1 是一个必需参数
-
firstdayofweek 是可选的。指定一周的第一天。它可以采用以下值：
-
0 = vbUseSystemDayOfWeek - 使用国家语言支持(NLS)API设置
-
1 = vbSunday - 星期日
-
2 = vbMonday - 星期一
-
3 = vbTuesday - 星期二
-
4 = vbWednesday - 星期三
-
5 = vbThursday - 星期四
-
6 = vbFriday - 星期五
-
7 = vbSaturday - 星期六
-
-
firstdayofyear%uA0是可选的。指定一年的第一天。它可以采用以下值：
-
0 = vbUseSystem - 使用国家语言支持(NLS)API设置
-
1 = vbFirstJan1 - 开始在1月1日发生的周(默认)
-
2 = vbFirstFourDays - 开始在新的一年中至少有四天的一周
-
3 = vbFirstFullWeek - 开始新的一年的第一个完整周
-
示例 :
添加一个按钮，并添加以下功能
Private Sub Constant_demo_Click() Dim Quarter as Variant Dim DayOfYear as Variant Dim WeekOfYear as Variant Date1 = "2013-01-15" Quarter = DatePart("q", Date1) msgbox("Line 1 : " & Quarter) DayOfYear = DatePart("y", Date1) msgbox("Line 2 : " & DayOfYear) WeekOfYear = DatePart("ww", Date1) msgbox("Line 3 : " & WeekOfYear) msgbox("Line 4 : " & DatePart("m",Date1)) End Sub
当执行函数的输出如下所示：
Line 1 : 1 Line 2 : 15 Line 3 : 3 Line 4 : 1