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
|