DatePart()
函式返回給定日期的特定部分。
語法
DatePart(interval,date[,firstdayofweek[,firstweekofyear]])
引數
新增一個模組,並新增以下範例程式碼 -
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