Visual Basic - fechas

Life is soft - evento anual de software empresarial
   
Vista:

fechas

Publicado por sebastian (24 intervenciones) el 23/04/2010 18:31:47
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
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
Imágen de perfil de A.H.H

RE:fechas

Publicado por A.H.H (116 intervenciones) el 23/04/2010 20:56:22
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
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

Publicado por Neogeo (23 intervenciones) el 23/04/2010 21:15:23
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
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