Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
Función Fecha.MES , Función Fecha.MES

Función Fecha.MES

| 2 comentarios

¿Para qué sirve la función Fecha.MES en Excel?

La función Fecha.Mes  tiene como finalidad poder adicionar o disminuir el número de meses respecto de una fecha determinada.

Debe tenerse presente que la función fecha.mes nos sirve para obtener el número de serie de una fecha, correspondiente a algunos meses posteriores o anteriores a la fecha especificada, luego por medio del formato apropiado se puede mostrar la fecha correctamente, veamos:

Su sintaxis requiere dos parámetros de carácter obligatorio FECHA.MES(fecha_inicial, meses)

- fecha_inicial: La fecha inicial donde se iniciará la cuenta.

- meses: El número de meses a sumar o restar de la fecha_inicial.

Ejemplo de Función Fecha.MES:

Podemos ver 3 columnas Fecha, meses, fecha.mes. En la columna de nuestra formula fecha.mes podemos ver que la celda esta con formato general y nos trae el numero de serie de la fecha.

Funci%c3%b3n Fecha.MES 01, Función Fecha.MES

Ya cuando realicemos el cambio del formato general a formato fecha, obtendremos como resultado la fecha especificada aumentada o disminuida en la cantidad de meses especificada en la columna "meses".

Funci%c3%b3n Fecha.MES 02, Función Fecha.MES

¿Cómo realizar la misma función utilizando macros?

Realizamos el mismo ejemplo pero esta vez con macros

Declaramos la variable fecha y la cantidad de filas existentes para el ejercicio, luego realizamos un For para poder trabajar sobre todas las filas existentes y usamos la función DateAdd.

DateAdd(Interval string, Double, Date):

-Interval: puede ser "d","m","y","yyyy" (Diferentes formatos de lo que vamos a sumar; puede ser días, meses o años a la fecha especificada)

-Number (Valor numerico a sumar)

-Date (Fecha especificada)

Funci%c3%b3n Fecha.MES 03 300x165, Función Fecha.MES

(Para mayor visualización de la imagen, hacer click en la misma)

Adjunto el código:

Sub fecha_mes()

Dim mes As String

cant_filas = Cells(Rows.Count, 1).End(xlUp).Row

For y = 3 To cant_filas

mes = DateAdd("m", Cells(y, 2), Cells(y, 1))

Cells(y, 3) = mes

Next

End Sub

Adjunto el archivo con los ejemplos: Funcion fecha.mes

 

Por: Kevin Mallea

 

2 comentarios

Deja una respuesta

Los campos requeridos estan marcados con *.