我们在编写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