Poslední den v měsíci
Funkce:
Public Function
LastDayOfMonth(ByVal TheDate As Variant) As Integer
LastDayOfMonth
= DatePart("d", DateAdd("d", -1, _
DateAdd("m", 1, DateAdd("d", -DatePart("d",
TheDate) + 1, TheDate))))
End Function
Příklad
volání:
x = LastDayOfMonth("2.2000")
Funkce vrátí
hodnotu 29. Jako parametr lze zaslat i plnohodnotné datum -
"1.2.2000"