SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Daniel_PC en Viernes 16 de Enero de 2004, 01:31

Título: Como Puedo Determinar El Tipo De Horario
Publicado por: Daniel_PC en Viernes 16 de Enero de 2004, 01:31

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

Título: Re: Como Puedo Determinar El Tipo De Horario
Publicado por: Brroz en Viernes 16 de Enero de 2004, 09:14

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

Título: Re: Como Puedo Determinar El Tipo De Horario
Publicado por: Daniel_PC en Sábado 17 de Enero de 2004, 02:07

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

Gracias por Ayudarme.....