Visual Basic - Fechas con TextBox

Life is soft - evento anual de software empresarial
 
Vista:

Fechas con TextBox

Publicado por Milchy (22 intervenciones) el 05/06/2000 00:00:00
Actualmente estoy programando un pequeño programa y tengo problemas en validar el formato de fechas con un TextBox. necesito conocer la forma de como aplicar una mascara de entrada, etc.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Fechas con TextBox

Publicado por [63] (28 intervenciones) el 05/06/2000 00:00:00
Utiliza los maskedit
Un Saludo
[63]
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Fechas con TextBox

Publicado por Isidro Almaguer (356 intervenciones) el 05/06/2000 00:00:00
Hola, te recomiendo que uses maskeditbox,
a la propiedad mask le asignas esta mascara "##/##/####" representa el dia , mes y año
para la entrada de la fecha..
te envio esta rutina, espero que te sirva, modificala, utiliza un form con el control calendar..

Public Function pubValidaFechas(pFechaIni As MaskEdBox, pFechaFin As MaskEdBox) As Boolean

Dim lbFlag As Boolean

On Error GoTo lblerror

pubValidaFechas = False

lbFlag = True

If Not prvValidaFecha(pFechaIni.Text) Then
GoTo lblerror
End If

lbFlag = False

If Not prvValidaFecha(pFechaFin.Text) Then
GoTo lblerror
End If

If Mid(pFechaIni, 7, 4) & Mid(pFechaIni, 4, 2) & Mid(pFechaIni, 1, 2) > _
Mid(pFechaFin, 7, 4) & Mid(pFechaFin, 4, 2) & Mid(pFechaFin, 1, 2) Then
´ Error: fecha inicial mayor que la final
MsgBox "FSV es menor que FEV", vbInformation, "Validación"
pFechaFin.SetFocus
pubSeleccionaTexto pFechaFin
Exit Function
End If

pubValidaFechas = True
Exit Function

lblerror:
MsgBox "No selecciono FEV y FSV", vbInformation, "Validación"

If lbFlag Then
pFechaIni.SetFocus
pubSeleccionaTexto pFechaIni
Else
pFechaFin.SetFocus
pubSeleccionaTexto pFechaFin
End If

Exit Function

End Function
.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar