用到的函数:
Date函数:返回系统的日期
Now函数:返回系统的日期和时间
Format函数:根据格式表达式来格式化数据
实例:
Private Sub Form_Load() '设置同步时间显示 Timer1.Interval = 1000 Timer1.Enabled = TrueEnd SubPrivate 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
运行程序:联系客服