Private Sub Command1_Click()
Dim A As String
A = InputBox("SI DECEA LA HORA INGRESE EL NUMERO 1 SI DECEA LA FECHA
INGRESE 2")
If (A = 1) Then
Text1.
Text = Time
Text2.
Text = ""
ElseIf (A = 2) Then
Text2.
Text = Date
Text1.
Text = ""
End If
End Sub
Private...
More
Private Sub Command1_Click()
Dim A As String
A = InputBox("SI DECEA LA HORA INGRESE EL NUMERO 1 SI DECEA LA FECHA
INGRESE 2")
If (A = 1) Then
Text1.
Text = Time
Text2.
Text = ""
ElseIf (A = 2) Then
Text2.
Text = Date
Text1.
Text = ""
End If
End Sub
Private Sub Timer1_Timer()
Text1.
Text = Time
End Sub
Less
