Visual Basic - fechas

ola amigos tengo dos fechas en dos textbox....
y dos picture...

la primera fecha es la de hoy y la segunda es date + 30 ;

en el picture esta un circulo verde y en el 2do picture un circulo rojo

lo que quiero hacer es que si la fecha es menor a la de la 2da fecha
este visible el picture verde
y de lo contrario si es mayor el picture rojo


como lo hago??????lo etratado de hacer pero no me toma las fechas como puedo jugar cn las fechas si es menor o mayor

Hola puedes restar fechas y luego jugar con el numero que te da de dias de diferencia si es menor o mayor

Se restan o se suman las fechas con datevalue.

Ejemplo de sumar fechas:
un form y 2 textbox

Private Sub Form_Load()
Text1.Text = Date
Text2.Text = DateValue(Date + 30) 'sumamos 30 dias a la fecha de hoy la del text1'
End Sub

restar se hace igual.


ejemplo saber la diferencia de dias de una fecha respecto la otra:

Private Sub Form_Load()
Text1.Text = Date
Text2.Text = DateValue(Date + 30)
End Sub
Private Sub Command1_Click()
Dim fecha1 As Variant, fecha2 As Variant

fecha1 = DateValue(Text1)
fecha2 = DateValue(Text2)
MsgBox (fecha1 - fecha2)
End Sub


espero te sirva salu2

holas lo puedes hacer de la sig forma.

esto dentro de un boton
If CDate(Text1.Text) > CDate(Text2.Text) Then
picture1.visible = false
picture2.visible = true
Else
picture1.visible = true
picture2.visible = false
End If

ejemplo de lostfocus es para conservar el formato de fecha por si tienes problemas

Private Sub Text1_LostFocus()
Text1.Text = Format(Text1.Text, "dd/mm/yy")
End Sub

bueno suerte q estes bien