Tipp 2.22 - Schaltjahr

Wie überprüfe ich, ob es sich um ein Schaltjahr handelt?

Mit dieser Funktion können Sie überprüfe, ob es sich um ein Schaltjahr handelt. 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 IsLeapYear(lYear As Long) As Boolean
  '// -----------------------------------------------------
  '// Methode:   | Überprüft ob es sich um ein Schaltjahr
  '//            | handelt
  '// -----------------------------------------------------
  '// Parameter: | lYear - Jahreszahl
  '// -----------------------------------------------------
  '// Rückgabe:  | True, wenn dies zutrifft, sonst False
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  IsLeapYear = Month(DateSerial(lYear, 2, 29)) = 2
 
End Function


Zurück Tipp 2.21 - Letzter Tag eines beliebigen Monats | Inhalt | Tipp 2.23 – Wochenende Weiter