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.