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"
Zpět