Date manipulation: Difference between revisions

</pre>

=={{header|RPL}}==

{{works with|HP|48}}

RPL time format does not handle time zones.

≪ "@" + → in

≪ { }

1 in SIZE '''FOR''' j

in j DUP SUB

'''CASE'''

"0123456789" OVER POS '''THEN''' STR→ '''END'''

DUP "a" ≥ OVER "z" ≤ AND '''THEN''' NUM 32 - CHR '''END'''

DUP "A" < OVER "Z" > OR '''THEN''' DROP ‘x’ '''END'''

'''END'''

'''IF''' OVER TYPE 5 ≠ '''THEN'''

'''IF''' DUP2 TYPE SWAP TYPE == '''THEN'''

'''IF''' DUP TYPE 2 ≠ '''THEN''' SWAP 10 * '''END''' +

'''END'''

'''ELSE'''

ROT ROT + SWAP

'''IF''' DUP ‘x’ SAME '''THEN''' DROP '''END'''

'''END END'''

'''NEXT'''

≫ ≫ '<span style="color:blue">ALPHANUM</span>' STO

≪ <span style="color:blue">ALPHANUM</span> → date

≪ { "JAN" "FEB" "MAR" "APR" "MAY" "JUN" "JUL" "AUG" "SEP" "OCT" "NOV" "DEC" }

date 1 GET 1 3 SUB POS 100 /

date 2 GET +

date 3 GET 1E6 / +

date 4 GET

date 5 GET 100 / +

'''IF''' date 6 GET "PM" == '''THEN''' 12 + '''END'''

≫ ≫ '<span style="color:blue">→DATIME</span>' STO

≪ <span style="color:blue">→DATIME</span> 1 +

'''IF''' DUP 24 > '''THEN''' 24 - SWAP 1 DATE+ SWAP '''END'''

TSTR

≫ '<span style="color:blue">TASK1</span>' STO

"March 7 2009 7:30pm EST" <span style="color:blue">TASK1</span>

{{out}}

<pre>

1: "SUN 08.03.09 07:30:00"