Inhalt
Index
Support Über uns
Home

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.



Datumsfunktion: Ausgabe von datum.cob

Zurück zu Acc-Cobol: Intrinsic Functions - Charakterfunktionen    Hoch zu Acc-Cobol: Intrinsic Functions - Übersicht    Weiter zu Summenfunktionen
Entwickler Portal Impressum AGB Kontakt


© 1980-2017 Acc Computertechnik GmbH All rights reserved.