Inhalt
Index
Support Über uns
Home

3.43 M-I - Mit dem Datum rechnen




 
Format:
CALL M-I USING Datum Idatum [Wochentag] [Kalenderwoche]


Das Datumsfeld Datum der Form TTMMJJ oder TTMMJJJJ wird umgewandelt in die Form JJnnn bzw. JJJJnnn, wobei nnn der laufende Tag des Jahres ist (mit 1 beginnend), und in dem Feld Idatum abgestellt.

Idatum muß mit mindestens 5-stellig beschrieben sein.

In Wochentag wird die Nummer des Wochentages (1-7) abgestellt, wobei 1 dem Sonntag entspricht.

In Kalenderwoche wird die Kalenderwoche des angegebenen Datums zurückge- geben.

Mit dem Industriedatum können einfache Rechnungen durchgeführt werden.

Beispiel:

Berechnung des Fälligkeitsdatums in 30 Tagen
      * c32 cmi.cob;slink cmi
        identification division.
        data division.
        Working-Storage Section.
        01 cdatum      pic 9(8).
        01 zdatum      pic z9.99.9999.
        01 cidatum     pic 9(7).
        01 tag         pic 9.
        01 kw          pic 99.
        01 tage.
         02 filler     pic x(10) value 'Sonntag'.
         02 filler     pic x(10) value 'Montag'.
         02 filler     pic x(10) value 'Dienstag'.
         02 filler     pic x(10) value 'Mittwoch'.
         02 filler     pic x(10) value 'Donnerstag'.
         02 filler     pic x(10) value 'Freitag'.
         02 filler     pic x(10) value 'Samstag'.
         02 filler     pic x(10) value 'Sonntag'.
        01 filler redefines tage.
         02 wtag       pic x(10) occurs 7.
        Procedure Division.


      * Datum 10 stellig --> Format TT.MM.JJJJ


        call datum using zdatum.
        move zdatum to cdatum.
        display 'Heute: ' cdatum ' ' zdatum.
        call m-i  using cdatum cidatum tag kw.
        display wtag (tag) ' Kw ' kw.
        display 'Idatum(heute): ' cidatum.
        add 30 to cidatum.
        display 'Idatum(fällig): ' cidatum.
        call i-m using cdatum cidatum.
        move cdatum to zdatum.
        display 'Fälligkeitsdatum: ' zdatum.
      *
      *  Ermittlung des Tages und der Kw
      *  
        call m-i  using cdatum cidatum tag kw.
        display wtag (tag) ' Kw ' kw.
        accept omitted.





Siehe auch: I-M

Beispielprogramm: cmi.cob



Zurück zu I-M Industriedatum    Hoch zu Funktionslibrary    Weiter zu MAKEGRAPH: Grafik erzeugen
Entwickler Portal Impressum AGB Kontakt


© 1980-2017 Acc Computertechnik GmbH All rights reserved.