Funciones de fechas
Publicado: Mié Feb 03, 2016 10:13 pm
Es una pregunta bastante habitual en los foros el cómo calcular una diferencia entre dos fechas en años, meses y días.
Hoy os comparto una función que llevo usando varios años.
Ni qué decir tiene que esta misma función nos sirve para calcular la edad en años, meses y días si se le pasa como fecha final la fecha actual.
Un saludo
Hoy os comparto una función que llevo usando varios años.
Ni qué decir tiene que esta misma función nos sirve para calcular la edad en años, meses y días si se le pasa como fecha final la fecha actual.
Código: Seleccionar todo
'---------------------------------------------------------------------------------------
' Procedimiento: fncDiferenciaFechas
' Autor: Sveinbjorn
' Fecha: 30/03/2013
' Descripción: Función para calcular la diferencia entre fechas en años, meses y días
'---------------------------------------------------------------------------------------
Public Function fncDiferenciaFechas(ByVal laFechaIni As Date, ByVal laFechaFin As Date) As String
Dim vAño As Double
Dim vMes As Double
Dim vDia As Double
Dim temp As Date
'Si no se metió alguna de las dos fechas, salimos sin más
If IsNull(laFechaIni) Or IsNull(laFechaFin) Then
fncDiferenciaFechas = ""
Exit Function
End If
'Comprobamos que la fecha inicial sea más antigua que la final
If laFechaIni > laFechaFin Then
temp = laFechaIni
laFechaIni = laFechaFin
laFechaFin = temp
ElseIf laFechaIni = laFechaFin Then 'Si las dos fechas son la misma
fncDiferenciaFechas = "0 días"
Exit Function
End If
'Calculas la diferencia en años
If Month(laFechaIni) > Month(laFechaFin) Then
vAño = DateDiff("yyyy", laFechaIni, laFechaFin) - 1
Else
vAño = DateDiff("yyyy", laFechaIni, laFechaFin)
End If
'Calculas la diferencia en meses
If Day(laFechaIni) > Day(laFechaFin) Then
vMes = DateDiff("m", DateAdd("yyyy", vAño, laFechaIni), laFechaFin) - 1
If vMes < 0 Then
vMes = 12 + vMes
vAño = vAño - 1
End If
Else
vMes = DateDiff("m", DateAdd("yyyy", vAño, laFechaIni), laFechaFin)
End If
'Calculas la diferencia en días
vDia = DateDiff("d", DateAdd("m", vAño * 12 + vMes, laFechaIni), laFechaFin) ' Mod 7
'Construyes la expresión
If vAño = 1 Then
fncDiferenciaFechas = vAño & " año"
ElseIf vAño > 1 Then
fncDiferenciaFechas = vAño & " años"
End If
If vMes = 1 Then
fncDiferenciaFechas = IIf(fncDiferenciaFechas = "", "", fncDiferenciaFechas & " y ") & vMes & " mes"
ElseIf vMes > 1 Then
fncDiferenciaFechas = IIf(fncDiferenciaFechas = "", "", fncDiferenciaFechas & " y ") & vMes & " meses"
End If
If vDia = 1 Then
fncDiferenciaFechas = IIf(fncDiferenciaFechas = "", "", fncDiferenciaFechas & " y ") & vDia & " día"
ElseIf vDia > 1 Then
fncDiferenciaFechas = IIf(fncDiferenciaFechas = "", "", fncDiferenciaFechas & " y ") & vDia & " días"
End If
End Function
Un saludo