INTEGER-OF-DATE - Datumskonversion

Die INTEGER-OF-DATE-Funktion wandelt ein Datum vom Standard-Datumsformat um in die entsprechende Anzahl Tage, die seit dem 31.12.1600 vergangen sind.
Funktionstyp: ganzzahlig.

Format

---

FUNCTION INTEGER-OF-DATE (argument-1)

---

Argument

1. argument-1 muss eine Ganzzahl der Form JJJJMMTT sein, deren Wert sich folgendermaßen errechnet: (JJJJ * 10000) + (MM * 100) + TT

   1. JJJJ bezeichnet das Jahr im Gregorianischen Kalender. Es muss eine Ganzzahl größer 1600 sein.

   2. MM bezeichnet einen Monat und muss eine positive Ganzzahl kleiner 13 sein.

   3. TT bezeichnet einen Tag und muss eine Ganzzahl kleiner 32 sein, die für den angegebenen Monat und das angegebene Jahr gültig sein muss. sein muss.

Returnwerte

1. Der Returnwert ist eine Ganzzahl, die die Anzahl von Tagen darstellt, die seit dem 31.12.1600 (einem Sonntag) bis zum in argument-1 angegebenen Datum vergangen sind.

2. Der Fehler-Returnwert ist 0.

Siehe auch:        INTEGER-OF-DAY, DATE-OF-INTEGER, DAY-OF-INTEGER, CURRENT-DATE, WHEN-COMPILED

Beispiel 9-17

...
DATA DIVISION.
WORKING-STORAGE SECTION.
01  TAGE PIC 9(8).
PROCEDURE DIVISION.
P1 SECTION.
MAIN.
    COMPUTE TAGE = FUNCTION INTEGER-OF-DATE (19530410).
    DISPLAY TAGE UPON T.
    STOP RUN. 

Ergebnis:               00128665

                              Der 10.4.1953 war der 128665.Tag seit dem 31.12.1600.