Autor Tema: Como Valiodar La Hora Cuando Se Ingresa Manualment (Leído 2098 veces)

seba_m · « **en:** Martes 26 de Julio de 2005, 02:44 »

Buenas todos,

Necesitaria saber si alguién me pudiera ayudar, necesito ingresar una hora determnada pero manualmente, ej 18:50 hs PM, pero no se como validarla.

Alguién sabria

Gracias

RadicalEd

Mira este ejemplo

Código: Text

Option Explicit
Dim AlarmTime
Const conMinimized = 1
 
 
Private Sub Form_Click()
    AlarmTime = InputBox(&#34;Escriba la hora de alarma&#34;, &#34;Alarma de VB&#34;, AlarmTime)
    If AlarmTime = &#34;&#34; Then Exit Sub
    If Not IsDate(AlarmTime) Then
        MsgBox &#34;La hora no es válida.&#34;
    Else                                    ' La cadena devuelta por InputBox es una hora válida,
        AlarmTime = CDate(AlarmTime)        ' de modo que se almacena en AlarmTime como fecha/hora.
    End If
End Sub
 
Private Sub Form_Load()
    AlarmTime = &#34;&#34;
End Sub
 
Private Sub Form_Resize()
    If WindowState = conMinimized Then      ' Si el formulario se minimiza, muestra la hora en un título.
        SetCaptionTime
    Else
        Caption = &#34;Reloj con alarma&#34;
    End If
End Sub
 
Private Sub SetCaptionTime()
    Caption = Format(Time, &#34;Medium Time&#34;)   ' Presenta la hora con el formato Medium Time.
End Sub
 
Private Sub Timer1_Timer()
Static AlarmSounded As Integer
    If lblTime.Caption &#60;&#62; CStr(Time) Then
        ' Ahora el número de segundo es diferente del mostrado.
        If Time &#62;= AlarmTime And Not AlarmSounded Then
            Beep
            MsgBox &#34;Alarma a las &#34; & Time, , &#34;Alarma&#34;
            AlarmSounded = True
        ElseIf Time &#60; AlarmTime Then
            AlarmSounded = False
        End If
        If WindowState = conMinimized Then
            ' Si está minimizado, actualiza el título del formulario cada minuto.
            If Minute(CDate(Caption)) &#60;&#62; Minute(Time) Then SetCaptionTime
        Else
            ' Si no, actualiza la etiqueta del formulario cada segundo.
            lblTime.Caption = Time
        End If
    End If
End Sub
 
 

Esta viene con el VS 6.0

seba_m

Gracias, por tu ayuda, pero lo que necesito es algo simple, es decir, que por ejemplo no se pueda ingresar 25:00 hs, a alog si, o por ejemplo que no se pueda ingresar 18:66. etc.

Si tenes algo mas facil te lo agradecere

Muchas gracias

RadicalEd

Ok algo facil 2 TextBox, y cada uno le pones la decision de que no pase de cierta cantidad ej:

Código: Text

If Val(Text1.Text) &#62; 24 Or Val(Text2.Text) &#62; 59 Then
   MsgBox &#34;Valores Incorrectos&#34;
End If
 

Ojala te sirva.
Chao

seba_m

Muchisimas gracias, me sirvio, pero me podrias explicar como funcina el codigo anetrior ?, ese tan largo , que es l que controla ?
gracias

RadicalEd

Cita de: "seba_m"

Muchisimas gracias, me sirvio, pero me podrias explicar como funcina el codigo anetrior ?, ese tan largo , que es l que controla ?
gracias

Osea, por pasos.

Código: Text

AlarmTime = InputBox(&#34;Escriba la hora de alarma&#34;, &#34;Alarma de VB&#34;, AlarmTime)
'Con el Input se captura la hora
   If AlarmTime = &#34;&#34; Then Exit Sub
'Con esta desicion se sabe si esta vacia la variable 
   If Not IsDate(AlarmTime) Then
       MsgBox &#34;La hora no es válida.&#34;
   Else                                    
     ' La cadena devuelta por InputBox es una hora válida,
       AlarmTime = CDate(AlarmTime)  
      ' de modo que se almacena en AlarmTime como fecha/hora.
   End If
End Sub
 
Private Sub Timer1_Timer()
Static AlarmSounded As Integer
   If lblTime.Caption &#60;&#62; CStr(Time) Then
       ' Ahora el número de segundo es diferente del mostrado.
       If Time &#62;= AlarmTime And Not AlarmSounded Then
           Beep
           MsgBox &#34;Alarma a las &#34; & Time, , &#34;Alarma&#34;
           AlarmSounded = True
       ElseIf Time &#60; AlarmTime Then
           AlarmSounded = False
       End If
       If WindowState = conMinimized Then
           ' Si está minimizado, actualiza el título del formulario cada minuto.
           If Minute(CDate(Caption)) &#60;&#62; Minute(Time) Then SetCaptionTime
       Else
           ' Si no, actualiza la etiqueta del formulario cada segundo.
           lblTime.Caption = Time
       End If
   End If
End Sub
 

solcito

Hola, lo mas facil y rapido y no tienes que escribir ni una sola linea de codigo, porq ya esta todo hecho, es usa el control MaskEdBox, y en la propiedad format, le indicas hh:mm:ss.

Si no fijate en la ayuda (MSDN)

Saludos

SoloCodigo

Autor Tema: Como Valiodar La Hora Cuando Se Ingresa Manualment (Leído 2098 veces)

seba_m

Como Valiodar La Hora Cuando Se Ingresa Manualment

RadicalEd

Re: Como Valiodar La Hora Cuando Se Ingresa Manualment

seba_m

Re: Como Valiodar La Hora Cuando Se Ingresa Manualment

RadicalEd

Re: Como Valiodar La Hora Cuando Se Ingresa Manualment

seba_m

Re: Como Valiodar La Hora Cuando Se Ingresa Manualment

RadicalEd

Re: Como Valiodar La Hora Cuando Se Ingresa Manualment

solcito

Re: Como Valiodar La Hora Cuando Se Ingresa Manualment