Hola!!
Creo que esto te puede ayudar:
Código vb:
Ver originalPrivate Sub Command1_Click()
Dim Fecha1 As Date, Fecha2 As Date
Fecha1 = "24/04/2010"
Fecha2 = "07/06/2010"
MsgBox DateDiff("d", Fecha1, Fecha2) & " Dias " & _
DateDiff("m", Fecha1, Fecha2) & " Mes " & _
DateDiff("yyyy", Fecha1, Fecha2) & " Años "
End Sub
Pero desde el 24 de abril hasta el 7 de junio no hay 12 dias...