© serviceprofessionalgmbh

Um den Wochentag für ein beliebiges Datum zu ermitteln, wird zunächst die Konvertierfunktion von REXX benutzt, um an den englischen Namen zu kommen. Dieser wird dann entsprechend umgesetzt.

Es wird davon ausgegangen, dass das Eingabedatum im Format tt.mm.jjjj oder tt/mm/jjjj vorliegt.

/* REXX
*/
ARG DATUM
parse var DATUM 1 TT 3 . 4 MM 5 . 7 JJJJ
DATUM = JJJJ !! MM !! TT     /* change to SORTED     */
DOW = date("W",DATUM,"S")    /* Day of Week ENGLISH  */
Tage_E = "Monday Tuesday  Wednesday Thursday   Friday  Saturday Sunday"
Tage_D = "Montag Dienstag Mittwoch  Donnerstag Freitag Samstag  Sonntag"
RETURN word(Tage_D,wordpos(DOW,Tage_E))