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
Posted
sáb, nov 10 2001 22:19
by
Maverick