Tipp 2.21 - Letzter Tag eines beliebigen Monats

Wie kann ich den letzten Tag eines beliebigen Monats ermitteln?

Mit dieser Funktion können Sie den letzten Tag eines beliebigen Monats ermitteln. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Function LastDayOfMonth( _
                lMonth As Long, _
                lYear As Long) _
                As Date
  '// -----------------------------------------------------
  '// Methode:   | Letzten Tag eines beliebigen Monats
  '//            | ermitteln
  '// -----------------------------------------------------
  '// Parameter: | lMonth - Monatszahl (1-12)
  '//            | lYear  - Jahreszahl
  '// -----------------------------------------------------
  '// Rückgabe:  | Datumswert (s.o.)
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  LastDayOfMonth = DateSerial(lYear, lMonth + 1, 0)
 
End Function


Zurück Tipp 2.20 - Letzter Tag des aktuellen Monats | Inhalt | Tipp 2.22 - Schaltjahr Weiter