Programación General > VBA

 Como Valiodar La Hora Cuando Se Ingresa Manualment

<< < (2/2)

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
--- Fin de la cita ---
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 IfEnd 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 IfEnd 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

 :hola:

Navegación

[0] Índice de Mensajes

[*] Página Anterior