Comparar fechas

[lindochico]

Hola de nuevo, amigos!

Alguien puede decirme cómo puedo comparar dos fechas capturadas mediante 2 controles TextBox para determinar cuál es mayor?

Gracias!

[vbx3m]

Prueba esto:

Private Sub Command1_Click()
Dim t0 As Variant, t1 As Variant
t0 = DateValue(Text1)
t1 = DateValue(Text2)
If Sgn(t0 - t1) = -1 Then
MsgBox "La fecha mayor es " & t1
Else
MsgBox "La fecha mayor es " & t0
End If
End Sub

Me avisas si te sirvió...

[aavg]

Porque no utilizas el DTPicker es muy buen control y te permite de forma muy facil hacer ese tipo de comparaciones, porque de lo contrario si dejas que un usuario inserte la fecha en un textbox se presta a muchos errores de dedo por parte del usuario

[lic_dahool]

Para comparar fechas ingresadas como texto puedes usar:

If CDate(text1) > CDate(text2) Then
.
.
.
End If

Por otro lado puedes usar IsDate para verificar que la fecha ingresada sea válida.

Saludos.