© serviceprofessionalgmbh

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

/* REXX * DJ2DN
*/
parse value arg(1) with 1 JJJJ 5 TTT
FEB = 28 + (JJJJ // 4 = 0) - (JJJJ // 100 = 0) + (JJJJ // 400 = 0)
MON="31" FEB "31 30 31 30 31 31 30 31 30 31"
do CNT=1 while TTT > word(MON,cnt)
   TTT=TTT-word(MON,cnt)
end
return right(TTT,2,0)"."right(CNT,2,0)"."JJJJ
zurück zu Datum & Zeit