DAY-OF-INTEGER - Datumskonversion

Die DAY-OF-INTEGER-Funktion wandelt eine angegebene Anzahl Tage um in das julianische Datumsformat (JJJJDDD).
Funktionstyp: ganzzahlig.

Format

---

FUNCTION DAY-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 julianische Datum, das der in argument-1 angegebenen Anzahl Tage entspricht.

2. JJJJ ist das Jahr gemäß Gregorianischem Kalender, DDD bezeichnet den Tag dieses Jahres.

3. Der Fehler-Returnwert ist 0.

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

Beispiel 9-12

...
DATA DIVISION.
WORKING-STORAGE SECTION.
01  DAYS PIC 9999 VALUE 5000.
01  DATUM PIC X(7).
PROCEDURE DIVISION.
P1 SECTION.
MAIN.
    COMPUTE DATUM = FUNCTION DAY-OF-INTEGER (DAYS)
    DISPLAY DATUM UPON T.
    STOP RUN.

Ergebnis:           1614252
                          Der 5000.Tag seit dem 31.12.1600 war der 252.Tag des Jahres 1614.