Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

TextBox

28/12/2008 - 00:23 por Manuel | Informe spam
Ayuda Hacer una pregunta
Tengo un formulario donde recojo la hora en un TextBox, aquí escribo
el código:


Private Sub UserForm_Click()
Private Sub AdmissionTime_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If AdmissionTime.Value > "24:00:00" Then
MsgBox "Select the hour using 24 format.", vbCritical, "ERROR WHEN
INTRODUCING THE HOUR"
Cancel = True
Exit Sub
End If
End Sub



Deseo escribir en el TextBox solo la hora, en vez de escribir por
ejemplo 10:50, quiero escribir 1050 y que el asuma los dos puntos
intermedios que separan la hora de los minutos, así ahorro tiempo y
evito errores. ¿Cómo puedo lograr esto?

Desde ya, muchas gracias,
Manuel
email Siga el debateRespuesta 7 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
28/12/2008 - 02:27 | Informe spam
hola, Manuel !

(p.e.)

Private Sub AdmissionTime_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Format(AdmissionTime, "0\:00") > "24:00:00" Then
MsgBox "Indica la hora en formato de 24 [hhmm]", vbCritical, "ERROR al entrar la hora !!!"
Cancel = True
End If
End Sub

saludos,
hector.

__ OP __
Tengo un formulario donde recojo la hora en un TextBox ...
Private Sub AdmissionTime_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If AdmissionTime.Value > "24:00:00" Then
MsgBox "Select the hour using 24 format.", vbCritical, "ERROR WHEN INTRODUCING THE HOUR"
Cancel = True
Exit Sub
End If
End Sub
Deseo escribir en el TextBox solo la hora, en vez de escribir por ejemplo 10:50, quiero escribir 1050
y que el asuma los dos puntos intermedios que separan la hora de los minutos, así ahorro tiempo y evito errores...

Preguntas similares

 

Busqueda sugerida :