DATE-OF-INTEGER - Datumskonversion

Die DATE-OF-INTEGER-Funktion wandelt eine angegebene Anzahl Tage um in das entsprechende Standard-Datumsformat (JJJJMMDD).
Funktionstyp: ganzzahlig.

Format

---

FUNCTION DATE-OF-INTEGER (argument-1)

---

Argument

1. argument-1 ist eine positive Ganzzahl, die eine Anzahl von seit dem 31.12.1600 (gemäß Gregorianischem Kalender) vergangenen Tagen darstellt.

Returnwerte

1. Der Returnwert ist das ISO-Standarddatum, das der in argument-1 angegebenen Anzahl Tage entspricht.

2. JJJJ ist das Jahr gemäß Gregorianischem Kalender, MM ist der Monat dieses Jahres, DD ist der Tag dieses Monats.

3. Der Fehler-Returnwert ist 0.

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

Beispiel 9-10

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

Ergebnis:           17371123
                          Der 50000.Tag seit dem 31.12.1600 war der 23.11.1737.