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