Resultado al restar 2 fechas

Hola
Prueba a usar ésta función en un módulo:

<pego>
Public Function DiferenciaFechas(dFecha1 As Date, dFecha2 As Date) As
String
Dim iAnos As Integer, iMeses As Integer, iDias As Integer
Dim sTotal As String
iAnos = DateDiff("yyyy", dFecha2, dFecha1)
iMeses = DateDiff("m", dFecha2, dFecha1) - (iAnos * 12)
iDias = DateDiff("d", dFecha2, dFecha1) - ((iAnos * 365) + (iMeses
* 31))
sTotal = iAnos & " años, " & iMeses & " meses, " & iDias & " dias"
DiferenciaFechas = sTotal
End Function
</pego>

Salu2,
José Mª Fueyo
[MS MVP Access]