No funciono
Código:
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If Right$(Format(Time, "HH:MM:SS AM/PM"), 2) = "AM" Then
' Por la Mañana
Else
' Por la Tarde
If Hour(Time) = 9 And Minute(Time) = 30 And Second(Time) = 10 Then
MsgBox "funcion"
End If
End If
End Sub
Ademas el If Hour(Time) = 9 And Minute(Time) = 30 And Second(Time) = 10 Then solo funciona cuando es AM.
Alguna solucion y que hago cuando el formato de hora no es de 12 sino 24 horas corridas?