Programación General > VBA

 Como Valiodar La Hora Cuando Se Ingresa Manualment

(1/2) > >>

seba_m:
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 ExplicitDim AlarmTimeConst conMinimized = 1  Private Sub Form_Click()    AlarmTime = InputBox("Escriba la hora de alarma", "Alarma de VB", AlarmTime)    If AlarmTime = "" Then Exit Sub    If Not IsDate(AlarmTime) Then        MsgBox "La hora no es válida."    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 IfEnd Sub Private Sub Form_Load()    AlarmTime = ""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 = "Reloj con alarma"    End IfEnd Sub Private Sub SetCaptionTime()    Caption = Format(Time, "Medium Time")   ' Presenta la hora con el formato Medium Time.End Sub Private Sub Timer1_Timer()Static AlarmSounded As Integer    If lblTime.Caption <> CStr(Time) Then        ' Ahora el número de segundo es diferente del mostrado.        If Time >= AlarmTime And Not AlarmSounded Then            Beep            MsgBox "Alarma a las " & Time, , "Alarma"            AlarmSounded = True        ElseIf Time < 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)) <> Minute(Time) Then SetCaptionTime        Else            ' Si no, actualiza la etiqueta del formulario cada segundo.            lblTime.Caption = Time        End If    End IfEnd 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) > 24 Or Val(Text2.Text) > 59 Then   MsgBox "Valores Incorrectos"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

Navegación

[0] Índice de Mensajes

[#] Página Siguiente