This program will change your computer date.

by ojas (14 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 1^st November 2005
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate This program will change your computer date.



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

Download this snippet Add to My Saved Code

This program will change your computer date. Comments

No comments have been posted about This program will change your computer date.. Why not be the first to post a comment about This program will change your computer date..

This program will change your computer date.

This program will change your computer date. Comments

Post your comment

Difficulty