Lade...
 

CX_DATE::MilleniumOfDate

CX_DATE::MilleniumOfDate

Beschreibung:

Diese Funktion liefert das Jahrtausend, in dem sich das Datum befindet, als

INTEGER-Wert zurück. Für ein undefiniertes bzw. unvollständiges Datum, welches keine Jahresangabe besitzt, wird standardmäßig "0" zurückgegeben. Für

eine Datumsperiode bezieht sich diese Funktion auf ihr Startdatum.

Code-Beispiel:

In dem Beispiel-Programm wird das Jahrtausend, in dem sich das Tagesdatum "3.10.2000" befindet, berechnet.

Var(date)                                 // deklariere Variable
CreateTransObject(CX_DATE) -> date        // erzeuge ein Tagesdatum

"3.10.2000" date Put                      // setze das Startdatum der Periode

date  Call(MilleniumOfDate)               // liefere das Jahrtausend des Datums
1 date Call(AddYear)                      // Datum zu "3.10.2001" verschieben
date  Call(MilleniumOfDate)               // liefere das Jahrtausend des neuen Datums

Das Ausführen dieses Skriptes erzeugt nacheinander die Werte 2 und 3 auf dem

Stack. 

Stack
Stack Position Objekttyp Kurzbeschreibung
Stack(In) Top CX_DATE oder CX_SPAN_DATE das Datum (-sobjekt)
Stack(Out) Top INTEGER das Jahrtausend in dem sich das Datum befindet
Funktionsaufruf: Call(MilleniumOfDate)