• Home
 · 
• Custom Controls/Forms/Menus
 · 
• This program will change your computer date.

This program will change your computer date.

This program will change your computer date.

Rate This program will change your computer date.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

a = Val(txt1.Text)
b = Val(txt2.Text)
c = Val(txt3.Text)
If IsNumeric(txt1.Text) = False Then
MsgBox "Please enter number"
txt1.SetFocus
Exit Sub
ElseIf IsNumeric(txt2.Text) = False Then
MsgBox "Please enter number"
txt2.SetFocus
Exit Sub

ElseIf IsNumeric(txt3.Text) = False Then
MsgBox "Please enter number"
txt3.SetFocus
Exit Sub

End If
Date = DateSerial(a, b, c)
lbl3.Caption = Format(Date, "long date")
End Sub
Private Sub Command2_Click()
Dim s As String
s = MsgBox("Are you sure?", vbYesNo)
If s = vbYes Then
End
End If
End Sub

Private Sub Form_Load()
lbl3.Caption = Format(Date, "long date")
End Sub