我们在编写VB程序有时候会想要获取系统的当前时间，并且将时间输出为想要的格式，那么我们该使用哪一个函数，又该如何操作，下面用实例来说明。


用到的函数：


Date函数：返回系统的日期
Now函数：返回系统的日期和时间
Format函数：根据格式表达式来格式化数据


实例：

Private Sub Form_Load()
    '设置同步时间显示
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Label2.Caption = Format(Now, "hh:mm:ss")            '获取当前时间
    Label4.Caption = Format(Now, "yyyy-mm-dd")          '获取当前日期
    Label6.Caption = Format(Now, "yyyy-mm-dd hh:mm:ss") '日期和时间
End Sub




运行程序：