Obtener la diferencia de Día, Mes, Año, Minutos y Segundo entre dos fechas
Sres. T.E
El motivo es que desconozco el porque todo los resultados entre las dos fechas son correctas excepto los Días el cual muestra 5.
Resultado: Años 1 Mes 0 Dias 5 Horas 0 Minutos 0 Segundos 0
Fecha Inicial: 01/01/2023 12:10 a.m. Fecha Final: 01/01/2024 12:10 a.m.
Note que el día, mes, hora y minuto son iguales excepto el Año
Esto ejecutado con la siguiente Función.
Function DifEnElTiempoSegmentos(Inicio As Date, Final As Date)
segundos = Abs(Final - Inicio) * 86400
segundos = Round(segundos, 4)
minutos = Int(segundos / 60)
ResiduoSegundos = Abs(segundos - (minutos * 60))
segundos = ResiduoSegundos
horas = Int(minutos / 60)
ResiduoMinutos = Abs(minutos - (horas * 60))
minutos = ResiduoMinutos
dias = Int(horas / 24)
ResiduoHoras = Abs(horas - (dias * 24))
horas = ResiduoHoras
meses = Int(dias / 30)
ResiduoDias = Abs(dias - (meses * 30))
dias = ResiduoDias
anios = Int(meses / 12)
ResiduoMeses = Abs(meses - (anios * 12))
meses = ResiduoMeses
DifEnElTiempoSegmentos = "Años " & CStr(anios & " Mes " & meses & " Dias " & dias & " Horas " & horas & " Minutos " & minutos & " Segundos " & segundos)
Exit Function
End Function