厨师介绍:vb中如何才能得到系统的时间?

来源:百度文库 编辑:高校问答 时间:2024/04/29 19:19:56

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