Conocer el último día del mes.

Sólo tienes que sumar un mes al día 1 del mes actual y restarle un día.

Function UltimoDiaMes(Fecha As Date) As Date 
    UltimoDiaMes = DateAdd("d", -1, DateAdd("m", 1, DateSerial(Year(Fecha), Month(Fecha), 1))) 
End Function 

Tagen nos ha enviado otras 2 funciones para obtener el mismo resultado.

Están basadas en que para la función DateSerial el día 0 de un mes es el ultimo día del mes anterior.

Function UltimoDiaMes(Fecha As Date) As Date 
    UltimoDiaMes = DateSerial(Year(Fecha), Month(Fecha) + 1, 0) 
End Function 

Function UltimoDiaMes2(Fecha As Date) As Byte 
    UltimoDiaMes2 = Day(DateSerial(Year(Fecha), Month(Fecha) + 1, 0)) 
End Function 

Publicado en microsoft.public.es.vb por Rubén Vigón

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s