1.8 Date & Time: Date, Now, Time, DateAdd, DateDiff, DatePart, DateSerial, TimeSerial, TimeValue

Private Sub DateDemo()

'MsgBox"Date:"& Date'To get system day'
'MsgBox"Date:"& Now'To get system day and time'
'MsgBox"Date:"& Time'To get system time'
'MsgBox"Date:"& DateAdd("d",40,"12/29/2006:)'count day after date'
'yyyy Year
'q wuarter m month d day ww week
'h hour n minute s second
MsgBox "date diff" & DateDiff("d", "12/29/2006", "2/7/07")
MsgBox "date part" & DatePart("d", "12/29/2006") 'to get the part of the date
MsgBox "date part" & DatePart("y", "February 12,2006")
MsgBox "date:" & DateSerial(2006, 12, 59) 'To change the format to fulfil e
'MsgBox"Time:" & TimeSerial(13,30,59)
'MsgBox "Time:" & TimeValue("4:35:17 PM")

End Sub

1. Date 傳回系統日期 (電腦所記錄的現在日期)。
2. Now 傳回電腦現在所記錄的日期與時間。
3. Time 傳回電腦現在所記錄的時間。
4. DateAdd("間隔單位","間隔數值","基準日期") 傳回某個基準日期加上特定時間間隔單位後的日期。間隔設定：
5. DateDiff("間隔單位","日期1","日期2") 傳回兩個日期間相差的時間間隔單位數目。 Variant (Long)
   
6. DatePart("單位","日期") 傳回 Integer，內容為指定日期的某個時間部份，以指定的時間間隔單位計算。
7. DateSerial(年, 月, 日) 傳回一 Variant (Date)，內容為指定的年、月、日之日期表示式。
8. TimeSerial(時, 分, 秒) 傳回一 Variant (Date)，內容為指定之時、分、秒的日期表示式。
9. TimeValue("時間") 傳回一 Variant (Date) 的時間表示式(24 小時制的時間)。如果 time 是 Null，則傳回 Null。
   

設定	說明
yyyy	西元年
q	季
m	月
y	一年的日數
d	日
w	一週的日數
ww	週
h	時
n	分
s	秒