Microsoft Access Programmierrezepte

R1.28 Feststellen, ob es sich um ein Schaltjahr handelt

Aufgabe

Sie wollen ermitteln, ob es sich bei einem bestimmten Jahr um ein Schaltjahr handelt.

Lösung

Bei einem Schaltjahr hat der Februar nicht 28, sondern 29 Tage. Mit Hilfe der VBA-Standardfunktionen Month und DateSerial kann diese Besonderheit mit einer eigenen Funktion IsLeapYear festgestellt werden.

Oberfläche

In die Kopfzeile eines neuen Formulars setzen Sie ein Textfeld, eine Befehlsschaltfläche und ein Bezeichnungsfeld (siehe Laufzeitansicht).

Quellcode

Option Explicit

Der Funktion IsLeapYear wird eine Jahreszahl übergeben, der Rückgabewert ist True, falls es sich um ein Schaltjahr handelt, ansonsten False.

Public Function IsLeapYear(jahr As Long) As Boolean
  IsLeapYear = Month(DateSerial(jahr, ...