Anónimo
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
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
Respuesta de carloscharly
1
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.
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.