阳新撤县划市消息2017:vb中如何才能得到系统的时间?

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/11 02:00:19

date$()日期
time$()时间
now()现在日期时间

用Timer时钟控件,将它的属性interval设置为500
Private Sub Timer1_Timer()
If Label1.Caption <> CStr(Time$) Then
Label1.Caption = Date$
Label2.Caption = Time$
End If
End Sub