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.
Gracias funciona. Disculpa otra inquietud que tengo es como hago para que eso se active al yo marcar Cedula.
Gracias y disculpa que estuve ausente.
Ok. Es un sistema de asistencia y quiero que cuando la persona marque la cedula le de el mensaje. Claro dependiendo de la hora que marque.
Gracias
Disculpa, pero no entendí bien puede darme más detalle de lo que pretendes hacer.
No se a que llamas CEDULA amiga, pero supongo que la marcara desde algún BOTÓN, entonces ese código deberías ponerlo DENTRO DE EL... EN UN BOTÓN, OPCIÓN, CHECK, LISTADO o donde fuera el usuario a dar click en ese control deberías poner ese código.
Disculpa estoy trabajando con txtCI_KeyPress allí trabaje los código para buscar los datos de las personas y quiero que cuando yo marque allí dependiendo de la hora que marque me envíe el mensaje.
Copia el código que te pase y pégalo en el evento de tu TXT en el que más creas conveniendte.
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje
¿No es la respuesta que estabas buscando? Puedes explorar otras preguntas del tema Visual Basic o hacer tu propia pregunta: