Letzten Tag im Monat berechnen 01.06.2002
 

Diese Funktion berechnet den letzten Tag des aktuellen Monats:

Function MonatsLetzter()
    Jahr = Format(Now, "yyyy")
    Monat = Format(Now, "mm")
    f = "dd.mm.yyyy"
    MonatsLetzter = Format(DateSerial(Jahr, Monat + 1, 0), f)
End Function
Sub Testen()
    MsgBox MonatsLetzter()
End Sub
 
Ein Anwendungsfall könnte das Starten einer bestimmten Routine sein,
die immer an diesem Tag ausgeführt werden soll:
Function IstHeuteMonatsLetzter() As Boolean
    Jahr = Format(Now, "yyyy")
    Monat = Format(Now, "mm")
    f = "dd.mm.yyyy"
    IstHeuteMonatsLetzter = Format(Now, f) = _
       Format(DateSerial(Jahr, Monat + 1, 0), f)
End Function
Sub Aufruf()
    If IstHeuteMonatsLetzter Then
        t = "Heute eine Aktion starten !"
    Else
        t = "Heute keine Aktion !"
    End If
    MsgBox t
End Sub