Lade...
 

CX_DATE::LeapYear

CX_DATE::LeapYear

Beschreibung:

Diese Funktion ermittelt, ob das Jahr, zu dem das Datum gehört, ein

Schaltjahr ist oder nicht. Das Ergebnis wird als Wahrheitswert geliefert. Für eine Datumsperiode bezieht sich diese Funktion auf ihr Startdatum.

Code-Beispiel:

In dem Beispiel-Programm wird überprüft, ob "1900" und "2000" Schaltjahre waren.

Var(date) CreateTransObject(CX_DATE) -> date  // Objekt erzeugen

"25.12.1900" date Put                         // Wert setzen
date Call(LeapYear)                           // Auf Schaltjahr prüfen
"4.8.2000" date Put                           // neuen Wert setzen
date Call(LeapYear)                           // wieder Schaltjahr prüfen

Das Ausführen dieses Skriptes erzeugt die Werte "0" (= FALSE) und

"1" (= TRUE) auf dem Stack, da das Jahr 1900 kein, hingegen das Jahr 200 ein Schaltjahr war.

Stack
Stack Position Objekttyp Kurzbeschreibung
Stack(In) Top CX_DATE oder CX_SPAN_DATE das Datum(-sobjekt)
Stack(Out) Top INTEGER das Ergebnis der Überprüfung
Funktionsaufruf: Call(LeapYear)