Re: Wochentagermittlung auf der AS/400

Posted ByDaniel Ritzmann on October 12, 1999 at 11:41:29:

In Reply to: Wochentagermittlung auf der AS/400 posted byManfred Gussmagg on October 09, 1999 at 09:54:59:

: Kennt jemand eine einfache Funktion des Wochentag eines Datums im RPG zu ermitteln?

Ich habe dies mit folgender Formel berechnet:

Wochentag = Restwert von
INT(2.6*Monat-0.1) + Tag + JahrLow +
INT(JahrLow/4) + 5*JahrHigh +
INT(JahrHigh/4) / 7

(wobei das Datum vorher um 2 Monate veringert wurde)
JahrLow = die 2 rechten Stellen des vierstelligen Jahrwertes
JahrHigh = die 2 linken Stellen des vierstelligen Jahrwertes

RPG-Beispiel:

Datum SUBDUR 2:*M Tmpdatum
EXTRCT Tmpdatum:*M Monat
EXTRCT Tmpdatum:*D Tag
EXTRCT Tmpdatum:*Y Jahr
EVAL JahrL = Jahr - (%INT(Jahr/100))*100
EVAL JahrH = %INT(Jahr/100)

EVAL Wert = %INT(2,6*Monat-0,1) + Tag + JahrL +
%INT(JahrL/4) + 5*JahrH + %INT(JahrH/4)
Wert DIV 7 Wert
MVR Wert
EVAL Wtag = Wert + 1

(Wtag 1 = Sonntag ....... Wtag 7 = Samstag)

Gruss
D. Ritzmann

Follow Ups

Neuen Beitrag verfassen!