Introducir las horas

xsara1_9
12 de Enero del 2004
Hola amigos, tengo que introducir horas a traves de un formulario pero no se como controlar que sean horas correctas. Se podría introducir en un txt por ejemplo, dos dígitos no superiores a 24, los dos puntos y dos dígitos no superiores a 59?. ¿Qué otra idea me dais?. Muchas gracias

rafa
12 de Enero del 2004
Hola xsara.
Yo uso esta funcion:
Public Function ValidaHora(hora As String) As Boolean
ValidaHora = True
If Trim(hora) <> "__:__" Then
'normalmente le paso el valor desde un maskedbox (por eso lo de "__:__")
If Len(hora) <> 5 Then
ValidaHora = False
ElseIf Left(hora, 2) > 23 Then
ValidaHora = False
ElseIf Mid(hora, 4, 2) > 59 Then
ValidaHora = False
End If
End If
End Function
Espero que te sirva
Un saludo