Tipp 2.17 - Erster Tag eines beliebigen Monats

Wie ermittel ich den ersten Tag eines beliebigen Monats?

Mit dieser Funktion können Sie den ersten 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 FirstDayOfMonth( _
                lMonth As Long, _
                lYear As Long) _
                As Date
  '// -----------------------------------------------------
  '// Methode:   | 1. Tag eines beliebigen Monats ermitteln
  '// -----------------------------------------------------
  '// Parameter: | lMonth - Monatszahl (1-12)
  '//            | lYear  - Jahreszahl
  '// -----------------------------------------------------
  '// Rückgabe:  | Rückgabe eines Datums (s.o.)
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  FirstDayOfMonth = DateSerial(lYear, lMonth, 1)
 
End Function


Zurück Tipp 2.16 - Erster Tag einer beliebigen Woche | Inhalt | Tipp 2.18 - Letzter Tag der aktuellen Woche Weiter