© serviceprofessionalgmbh

Zurückgegeben wird die Anzahl Tage, welche zwischen den beiden Datumsangaben liegt. Beide Datumsangaben werden im Format tt.mm.jjjj erwartet.


/* REXX
*/
parse source . PTYP .
if PTYP = "FUNCTION" then arg DAT1,DAT2,DUMMY
else                      arg DAT1 DAT2 .
DAT1 = date("B",right(DAT1,4) !! substr(DAT1,4,2) !! left(DAT1,2),"S")
DAT2 = date("B",right(DAT2,4) !! substr(DAT2,4,2) !! left(DAT2,2),"S")
if DAT1 > DAT2 then do /* DAT1 muss <= DAT2 sein */
   DAT1 = bitxor(DAT1,DAT2)
   DAT2 = bitxor(DAT2,DAT1)
   DAT1 = bitxor(DAT1,DAT2)
end
return DAT2 - DAT1
zurück zu Datum & Zeit