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 - 一个可选参数。指定一年中的第一天。 它可以采取以下值。
- 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