Calcular cantidad de meses entre 2 fechas

31/03/2006 - 03:50 por Jorge Viotti | Informe spam
Tengo una celda con la fecha de hoy ( =Hoy() ) y otra con una fecha
anterior
Necesito calcular la cantidad de meses que hay entre esas 2 fechas
Alguien puede explicarme como se hace?
No encontre ninguna funcion salvo calcular la cantidad de dias (dias369) y
dividirlo por 30, pero no es exacta.
Encontre una macro que lo hace pero no tengo ni idea como se incorpora a una
celda.

MACRO:

Sub Date_MonthsBetweenDates()
Dim dBeginDate As Date
Dim dEndDate As Date
Dim intMonths As Integer
' Beginning date.
dBeginDate = DateValue("1/1/1993")
' Ending Date.
dEndDate = DateValue("2/1/1993")
' Calculate number of months between dates.
intMonths = ((Year(dEndDate) - Year(dBeginDate)) * 12) + _
Month(dEndDate) - Month(dBeginDate)
' Display number of months.
MsgBox Str$(intMonths) & " month(s)"
End Sub
 

Preguntas similares