Tipp 2.4 - Anzahl Tage

Wie kann ich die Anzahl der Tage eines Monats ermitteln?

Mit dieser Funktion können Sie die Anzahl der Tage eines 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 DaysOfMonth( _
                lMonth As Long, _
                lYear As Long) _
                As Long
  '// -----------------------------------------------------
  '// Methode:   | Ermittelt die Anzahl Tage eines Monats
  '// -----------------------------------------------------
  '// Parameter: | lMonth - gewünschte Monatszahl (1-12)
  '//            | lYear  - betroffenes Jahr
  '// -----------------------------------------------------
  '// Rückgabe:  | Anzahl Tage des Monats
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  On Error GoTo Err_DaysOfMonth
  Dim dtDate As Date
  dtDate = DateSerial(lYear, lMonth + 1, 0)
  DaysOfMonth = Day(dtDate)
Exit_DaysOfMonth:
  Exit Function
Err_DaysOfMonth:
  DaysOfMonth = 0
 
End Function


Zurück Tipp 2.3 - Monatsresttage berechnen | Inhalt | Tipp 2.5 - Differenz in Tagen Weiter