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 | 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 |