Días del mes con VBA

hola, Jorge !

Mostrar la cita

... en excel tengo una funcion =dia(fin.mes(fecha;0))
y me arroja el numero de dias del mes de la fecha que le doy
pero quisiera saber como replico esta formula pero sobre codigo de VBA
basado en una fecha que capturo de una celda de excel...

para saber el ultimo dia del mes de una fecha, puedes preguntar por "el dia cero del siguiente mes" (p.e.)
UltimoDia = Day(DateSerial(año, mes + 1, 0))

o lo que es lo mismo..
UltimoDia = DateSerial(Year(fecha), Month(fecha) + 1, 0)

saludos,
hector.

Este código de un botón te muestra un mensaje con la información que quieres
si la fecha está en la celda A10.
Adapta el código a tus circunstancias.

Private Sub CommandButton1_Click()
Dim fechaN As Single, AñoN, MesN As Integer
fechaN = Sheets(1).Cells(10, 1).Value
MesN = Month(fechaN)
AñoN = Year(fechaN)
MsgBox Day(DateSerial(AñoN, MesN + 1, 0) )
End Sub

Saludos.-

"Yrjo, Inc." escribió en el mensaje de
noticias news:
Mostrar la cita

Buenas tardes, en excel tengo una función =dia(fin.mes(fecha;0)) y me
arroja
el número de días del mes de la fecha que le doy pero quisiera saber cómo
replico esta fórmula pero sobre código de VBA basado en una fecha que
capturo
de una celda de excel.

Muchas gracias

Jorge Martínez

Muchas gracias por la ayuda

Jorge M

"Héctor Miguel" wrote:

Mostrar la cita

hola, Jorge !

> ... en excel tengo una funcion =dia(fin.mes(fecha;0))
> y me arroja el numero de dias del mes de la fecha que le doy
> pero quisiera saber como replico esta formula pero sobre codigo de VBA
> basado en una fecha que capturo de una celda de excel...

para saber el ultimo dia del mes de una fecha, puedes preguntar por "el dia cero del siguiente mes" (p.e.)
UltimoDia = Day(DateSerial(año, mes + 1, 0))

o lo que es lo mismo..
UltimoDia = DateSerial(Year(fecha), Month(fecha) + 1, 0)

saludos,
hector.


.