©
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))
zurück zu Datum & Zeit