© serviceprofessionalgmbh

Wandelt ein Datum vom Format tt.mm.jjjj in ein Format jjjjttt.

/* REXX * DN2DJ
*/
arg DATE
parse var DATE TT "." MM "." JJJJ
FEB = 28 + (JJJJ // 4 = 0) - (JJJJ // 100 = 0) + (JJJJ // 400 = 0)
MON="31" FEB "31 30 31 30 31 31 30 31 30 31"
TTT=TT
do cnt=1 while cnt < abs(substr(DATE,4,2))
   TTT=TTT+word(MON,cnt)
end
return jjjj !! right(TTT,3,'0')

zurück zu Datum & Zeit