Programación General > Visual Basic 6.0 e inferiores

 Como Puedo Determinar El Tipo De Horario

(1/1)

Daniel_PC:
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----

Brroz:
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 ---  Private Sub Command1_Click()    TimeComp "#" & Text1.Text & "#"End Sub Private Sub TimeComp(ByVal Hora As Variant)        If Hora >= "#15:00:00#" And Hora <= "#16:40:00#" Then        MsgBox "Horario normal"    ElseIf Hora >= "#20:00:00#" And Hora <= "#23:00:00#" Then        MsgBox "Horario económico"    Else        MsgBox "Otro horario"    End If    End Sub   

Daniel_PC:

--- Cita de: "Brroz" --- 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 ---  Private Sub Command1_Click()    TimeComp "#" & Text1.Text & "#"End Sub Private Sub TimeComp(ByVal Hora As Variant)        If Hora >= "#15:00:00#" And Hora <= "#16:40:00#" Then        MsgBox "Horario normal"    ElseIf Hora >= "#20:00:00#" And Hora <= "#23:00:00#" Then        MsgBox "Horario económico"    Else        MsgBox "Otro horario"    End If    End Sub   
--- Fin de la cita ---
Gracias por Ayudarme.....

Navegación

[0] Índice de Mensajes