© serviceprofessionalgmbh

Wie einfach der Umgang mit Datum sein kann zeigt dieses Beispiel. Aufgabe des Programmes ist, anhand eines übergebenen Datums (tt.mm.jjjj) und einer Anzahl Tage (positiv oder negativ) ein neues Datum im gleichen Format zu ermitteln.

Um es hier einmal wirklich krass darzustellen, zeigt das erste Beispiel eine Kurzform mit geschachtelten Funktionen.

Das zweite Beispiel zeigt die gleiche Funktion (sprechender kodiert). Es soll hier nicht der Eindruck erweckt werden, dass REXX im Normalfall so kryptisch wie PERL kodiert wird.

/* REXX
   EINGABE: TT.MM.JJJJ,[-]N       AUSGABE: TT.MM.JJJJ
*/
ARG DATUM,TAGE
PARSE VAR DATUM TT "." MM "." JJJJ
PARSE VALUE DATE("S",DATE("B",(JJJJ !! MM !! TT),"S") +TAGE,"B") ,
      WITH 1 JJJJ 5 MM 7 TT
RETURN TT"."MM"."JJJJ



/* REXX
   EINGABE: TT.MM.JJJJ,[-]N       AUSGABE: TT.MM.JJJJ
*/
ARG DAT_G,TAGE
PARSE VAR DAT_G TT "." MM "." JJJJ
DAT_B = DATE("B",JJJJ !! MM !! TT,"S")         /* FORMAT BASE      */
DAT_B = DAT_B + TAGE                           /* BASE NEW         */
DAT_S = DATE("S",DAT_B,"B")                    /* BACK TO SORTED   */
PARSE VAR DAT_S 1 JJJJ 5 MM 7 TT
RETURN TT"."MM"."JJJJ