Access - Diferencia entre fechas

 
Vista:
sin imagen de perfil

Diferencia entre fechas

Publicado por Daniel (2 intervenciones) el 06/10/2005 21:39:30
Hola a todo el foro.
Alguien sabe como se hace para establecer los AÑOS, MESES y DIAS entre dos fechas?
Si alguien sabe como se hace en Excel igual vale.
Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Diferencia entre fechas

Publicado por 2pl (773 intervenciones) el 07/10/2005 16:36:34
Ahi lo tienes

Public Function parendat(FECHA1 As Date, FECHA2 As Date)
Dim años As Integer
Dim meses As Integer
Dim dias As Integer

años = DateDiff("yyyy", FECHA1, FECHA2)

If Format(FECHA2, "mmdd") < Format(FECHA1, "mmdd") Then
años = años - 1
End If

meses = DateDiff("m", FECHA1, FECHA2) - (años * 12)

dias = DateDiff("d", Format(FECHA1, "dd"), Format(FECHA2, "dd"))

If dias < 0 Then
meses = meses - 1
dias = DateDiff("d", DateSerial(Year(FECHA2), Month(FECHA2) - 1, Day(FECHA1)), FECHA2)
End If

parendat = Str(años) & " años," & Str(meses) & " meses," & Str(dias) & " días"

End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar