Hem / Tips & tricks
Private Sub Command1_Click() MsgBox "Senaste dagen i månaden för aktuellt datum " & Date & _ " är " & LastDayOfMonth(Date)End Sub