Resultado al restar 2 fechas

26/02/2012 - 11:21 por astrow | Informe spam
Hola, tengo 2 fechas digamos 26/02/2012 y 25/01/2011, lo que quisiera
hacer es que al restar las 2 fechas, muestre el resultado algo como
esto

1 año, 1 mes 1 día

Gracias
 

Leer las respuestas

#1 José Mª Fueyo
27/02/2012 - 10:36 | Informe spam
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]

Preguntas similares