7.5 Datumsfunktionen
7.5.1 CURRENT-DATE
| | | | | |
Format:
function current-date ()
| |
| | | |
Gibt den aktuellen Tag als PIC X(21) mit folgendem Format zurück:
JJJJMMTTHHMMSS00hhhmm
wobei JJJJ das Jahr MM der Monat TT der Tag HH Stunde MM Minute SS Sekunde 00 Immer 0 hhh Stunden mit Vorzeichen (+ oder -) zur Greenwich-Zeit mm Minuten zur Greenwich-Zeit
Siehe datum.cob
7.5.2 WHEN-COMPILED
| | | | | |
Format:
function when-compiled()
| |
| | | |
Gibt das Datum zurück, an dem das Programm kompiliert wurde. Das Datumsformat entspricht dem der Funktion Current-Date.
Siehe datum.cob
7.5.3 INTEGER-OF-DATE
| | | | | |
Format:
function integer-of-date(argument)
| |
| | | |
Als Argument wird das Datum in der Form JJJJMMTT übergeben.
Integer-of-Date gibt die Anzahl der Tage seit dem 31.12.1600 zurück. Integer-of-Date ist die Umkehrung von Date-of-Integer.
Siehe datum.cob
7.5.4 INTEGER-OF-DAY
| | | | | |
Format:
function integer-of-day(argument)
| |
| | | |
Als Argument wird das Datum in der Form JJJJTTT übergeben, wobei TTT die Anzahl der Tage im Jahr darstellt.
Integer-of-Day gibt die Anzahl der Tage seit dem 31.12.1600 zurück. Integer-of-Day ist die Umkehrung von Day-of-Integer.
Siehe datum.cob
7.5.5 DATE-OF-INTEGER
| | | | | |
Format:
function date-of-integer(argument)
| |
| | | |
Als Argument werden die Anzahl der Tage seit dem 31.12.1600 übergeben.
Date-of-Integer gibt das zugehörige Datum in der Form JJJJMMTT zurück.
Date-of-Integer ist die Umkehrung von Integer-of-Date.
Siehe datum.cob
7.5.6 DAY-OF-INTEGER
| | | | | |
Format:
function day-of-integer(argument)
| |
| | | |
Als Argument werden die Anzahl der Tage seit dem 31.12.1600 übergeben.
Day-of-Integer gibt das zugehörige Datum in der Form JJJJTTT zurück, wobei TTT der laufende Tag des Jahres JJJJ ist.
Date-of-Integer ist die Umkehrung von Integer-of-Date.
Siehe datum.cob
7.5.7 Beispielprogramm für Datumsfunktionen
Beispiel:
identification division.
data division.
working-storage section.
01 datumlong pic x(21).
02 datum1 pic 9(8).
02 filler pic x(13).
01 datum2 pic 9(7).
01 idatum pic 9(6).
01 zeit1 pic x(8).
01 zeit2 pic 9(6).
01 zeit3 pic x(5).
01 zeit4 pic 9(4).
01 zeit5 pic 99.
01 zeit6 pic x(10).
01 date1 pic x(8).
01 date2 pic 9(6).
01 date3 pic x(12).
01 date4 pic 9(8).
01 date5 pic 9(10).
01 date6 pic x(10).
01 date pic 9(6).
procedure division.
call datum using date5 zeit1.
display date5 ' ' zeit1.
call datum using date2 zeit2.
call datum using date3 zeit3.
call datum using date4 zeit4.
call datum using date5 zeit5.
accept date6 from date.
accept zeit6 from time.
display zeit1 ' ' zeit2 ' ' zeit3 ' ' zeit4 ' ' zeit5 ' ' zeit6.
display date1 ' ' date2 ' ' date3 ' ' date4 ' ' date5 ' ' date6.
display 'Datumsfunktionen '.
display 'When-compiled: ' function when-compiled().
display 'Current-date: ' function current-date().
move function current-date() to datumlong.
move function integer-of-date(datum1) to idatum.
display 'Heute: ' datum1 ' ' idatum with no advance.
display ' mit lfd. Tag ' function day-of-integer(idatum).
compute idatum = idatum + 10.
move function date-of-integer(idatum) to datum1.
display 'in 10 Tagen: ' datum1 ' ' idatum with no advance.
display ' mit lfd. Tag ' function day-of-integer(idatum).
call getchar.
Zurück zu Acc-Cobol: Intrinsic Functions - Charakterfunktionen
Hoch zu Acc-Cobol: Intrinsic Functions - Übersicht
Weiter zu Summenfunktionen
|