PONER TEXTO EN UN LABEL
Publicado por mrjuan76 (3 intervenciones) el 11/08/2015 21:58:56
Hola tengo un form con un label y un button.
Lo que quiero es que si estamos entre las 06:00 y las 13:59 el label = "TURNO DE MAÑANA"
Si estamos entre las 14:00 y las 21:59 el label = "TURNO DE TARDE"
Si estamos entre las 22:00 y las 05:59 el label ponga "TURNO DE NOCHE"
El código que tengo es:
Pero me da poblemas y el algunos casos siendo las 3 de la mañana me pone "TURNO DE MAÑANA" en vez de noche.
¿Como se rectifica el código para que funcione bien en todas las horas?
Gracias.
Lo que quiero es que si estamos entre las 06:00 y las 13:59 el label = "TURNO DE MAÑANA"
Si estamos entre las 14:00 y las 21:59 el label = "TURNO DE TARDE"
Si estamos entre las 22:00 y las 05:59 el label ponga "TURNO DE NOCHE"
El código que tengo es:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
HORAACT = Hour(Now)
Select Case HORAACT
Case Is > 6, Is <= 14
Label1.Caption = "TURNO DE MAÑANA"
Case Is > 14, Is <= 22
Label1.Caption = "TURNO DE TARDE"
Case Is > 22, Is <= 6
Label1.Caption = "TURNO DE NOCHE"
End Select
End Sub
Pero me da poblemas y el algunos casos siendo las 3 de la mañana me pone "TURNO DE MAÑANA" en vez de noche.
¿Como se rectifica el código para que funcione bien en todas las horas?
Gracias.
Valora esta pregunta
0
