Validar Fechas

[rishart]

Hola tengo un problemon no se como podria validar las fechas, es decir tengo un combo con la opcion de poner 3 fechas, entonces al ingresar la primera fecha esta se muestra en un label1 por medio de la instruccion:

label1.caption=calendar1.value

entoces mi problema reside enque al colocar la segunda fecha con el calendar
esta antes de ponerlo en el label2 debe validarlo con la fecha que esta en el label1 tiene que verificar que la fecha que se esta introduciendo sea 1 año mayor a la fecha que esta en el label1

es decir que por ejemplo:
label1= 24/08/2008
label2=24/08/2009
como puedo validar a que verifique que hay 1 año entre esas fechas??

porfavor ayudenme con este problema no tengo idea de como hacerle... graciass

[seba123neo]

Hola,mira algo facil apra saber si hay mas de un año,es igual,o es menor ,es usando la funcion DateDiff:

Código:

Private Sub Command1_Click()
Dim fecha1 As Date
Dim fecha2 As Date
Dim diferencia As Integer
fecha1 = Label1
fecha2 = Label2
diferencia = DateDiff("d", fecha1, fecha2)
If diferencia = 365 Then
MsgBox "hay 1 año de diferencia", vbInformation
ElseIf diferencia > 365 Then
MsgBox "fecha mayor a un año", vbCritical
ElseIf diferencia < 365 Then
MsgBox "fecha menor a un año", vbCritical
End If
End Sub

saludos.

[arny]

hola


Investigaste la funcion datediff????