Código para guardar

Buenas tardes Experto. Necesito que me ayude a crear un código que me realice las siguientes especificaciones. Colocar un mensaje pero este va a depender de la hora. Por ejemplo de 6 am hasta 11:59 am de diga mañana
12:00pm a 6:59 pm diga tarde y 7pm a 10 noche.
No tengo idea de como realizarlo
Gracias por su colaboración de antemanos

1 respuesta

1
Respuesta de
Experto
Hola, usarías en control TIMER.
1 Creas un FORM
2 Arrastras un Timer, en la propiedad INTERVAL coloca un tiempo (indicado en milésimas de segundo cada que tiempo quieres que se ejecute el código del timer)
3 Codifica esto en el evento Timer del Timer
Dim a As Integer
a = Format(TimeValue(Now()), "hhmm")
If a > 700 And a < 1159 Then
    MsgBox "", vbInformation, "DIA"
ElseIf a > 1200 And a < 1859 Then
    MsgBox "", vbInformation, "DIA"
ElseIf a > 1900 And a < 2000 Then
    MsgBox "", vbInformation, "NOCHE"
End If
******************************
Lo mensajes te saldrán según lo indicas en en rango de horas indicado. Ahora el detalle seria cada que tiempo quieres que salga el mensaje eso lo decides tu colocándole un numero en la propiedad INTERVAL del timer.
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje