Forums Últimos mensajes - Powered by IBM
 

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
 

Leer las respuestas

#1 Héctor Miguel
31/03/2006 - 08:14 | Informe spam
hola, Jorge !

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 [...]



si no es 'indispensable' el uso de alguna macro... prueba a usar la funcion de hoja de calculo:
=sifecha(Fecha_Inicial,Fecha_Final,"Unidad")

para el argumento 'unidad' es necesario que utilices las siguientes 'convenciones'...
"y" = A#os completos
"m" = Meses completos
"d" =´Dias completos
"ym" = Meses (omitiendo los a#os)
"md" = Días (omitiendo los a#os y meses)

y toma en cuenta que mi sistema usa como separador de argumentos a la coma ',' NO al punto y coma ';' :D

saludos,
hector.

p.d. si no encuentras 'referencias' a la funcion sifecha... revisa las conversaciones en: -> http://tinyurl.com/es67t

Preguntas similares