邀月后悔杀怜星:在VB里面怎样判断系统的时间是否为正点

来源:百度文库 编辑:高校问答 时间:2024/05/07 12:19:38
想做个正点报时程序~用“time”获得了系统时间后~不知道怎样判断系统时间是否为正点了~显示的系统时间是“[时]:[分]:[秒]”的格式显示的~

Private Sub Timer1_Timer()
If lblTime.Caption <> CStr(Time) Then
lblTime.Caption = Time$
Text1 = Mid(Time$, 1, 2)
Text2 = Mid(Time$, 4, 2)
Text3 = Mid(Time$, 7, 2)
If Mid(Time$, 4, 2) = 0 And Mid(Time$, 7, 2) = 0 Then
Text4 = "正点"
'插入报时语句
Else
Text4 = ""
End If
End If
End Sub

VB 里的time带不同的参 会返回不同格式的 时间

有获取时分秒的函数,分秒为0即正点