INTEGER-OF-DAY - Datumskonversion

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

Format

---

FUNCTION INTEGER-OF-DAY (argument-1)

---

Argument

1. argument-1 muss eine Ganzzahl der Form JJJJTTT sein, deren Wert sich folgendermaßen errechnet: (JJJJ * 1000) + TTT

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

   2. TTT bezeichnet den Tag des Jahres und muss eine Ganzzahl kleiner 367 sein, wobei 366 nur angegeben werden darf, wenn das angegebene Jahr ein Schaltjahr ist.

Returnwerte

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

2. Der Fehler-Returnwert ist 0.

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

Beispiel 9-18

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

Ergebnis:         0143474
                        Der 299.Tag des Jahres 1993 ist der 143474.Tag seit dem 31.12.1600.