SoloCodigo

como puedo determinar horario economico y horario normal
si tengo dos Horas (ej 15:30:00 a 16:40:00) para que salga un mensaje de HORARIO NORMAL y (ej 20:00:00 a 23:00:00) salga HORARIO ECONOMICO?
GRACIAS----

Hola Daniel_PC.

En este ejemplo, cuando pulsamos un botón (Command1) se llama al método 'TimeComp' con el valor de un textbox (Text1) para comparar la hora con los intervalos que defines...

Código: Text

1.  
2.  
3. Private Sub Command1_Click()
4.     TimeComp "#" & Text1.Text & "#"
5. End Sub
6.  
7. Private Sub TimeComp(ByVal Hora As Variant)
8.     
9.     If Hora >= "#15:00:00#" And Hora <= "#16:40:00#" Then
10.         MsgBox "Horario normal"
11.     ElseIf Hora >= "#20:00:00#" And Hora <= "#23:00:00#" Then
12.         MsgBox "Horario económico"
13.     Else
14.         MsgBox "Otro horario"
15.     End If
16.     
17. End Sub
18.  
19.  
20.  

Gracias por Ayudarme.....