Friday, April 1, 2011

Digital Time

Private Sub Command1_Click()
End
End Sub

Private Sub Command3_Click()
If Command3.Caption = "&stop" Then
Command3.Caption = "&start"
Timer2.Enabled = False
Else
Command3.Caption = "&stop"
Timer2.Enabled = True
End If
End Sub


Private Sub Form_Load()
Label2.Caption = Format(Now, "DDDD, d mmmm yyyy hh:mm:ss")
End Sub

Private Sub Timer1_Timer()
Label2.Caption = Format(Now, "DDDD, d mmmm yyyy hh:mm:ss")
End Sub

Private Sub Timer2_Timer()
Dim s As String
s = Label1.Caption
s = Mid(s, 2, Len(s) - 1) & Left(s, 1)
Label1.Caption = s
End Sub

No comments:

Post a Comment