Visual Basic 2008 日期和时间函数

（1）Today 日期

（2）TimeOfDay 时间

（3）Now 日期和时间 （yy-mm-dd hh:mm:ss）

例：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox("系统日期为：" & Today)
MsgBox("系统时间为：" & TimeOfDay)
MsgBox("系统日期和时间为：" & Now)

End Sub

（4）Year(now) 年

（5）Month(now) 月

（6）Day(日期） 日

（7）Weekday(Now) 星期 （是从星期天开始算的。）

例：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox(Year(Now))
MsgBox(Month(Now))
MsgBox(Weekday(Now))

End Sub

（7）Hour(Now) 小时

（8）Minute(Now) 分

（9）Second(Now) 秒

例：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox(Hour(Now))
MsgBox(Minute(Now))
MsgBox(Second(Now))

End Sub