[REBOL] how do I get ampm format for time?
From: bobr::dprc::net at: 19-Jan-2001 1:51
how do I format dates to am/pm format
like: "hh:mm pm EST"
is there a more succinct way to write this?
time-ampm: func [ dt ]
[ rejoin [
; handle hh:mm part
( replace ( copy/part (
rejoin [
(either dt/time < 10:00 [ "0" ] [ "" ]) ; hh:mm vs [h]h:mm
either dt/time > 12:59:59
[ mold dt/time - 12:00 ]
[ mold dt/time ]
]
) 5 ) "00:" "12:" ) ; midnite-1am is special
; handle " pm EST" parts
either dt/time > 11:59:59
[ " pm" ]
[ " am" ]
EST
]]
yes this does the job, perhaps a mold could be factored out
and some parens are not needed. now the challenge
is to write something that handles the exceptions
with less code. this version allows coding by deletion
since the two parts hh:mm vs am/pm indicator
are treated separately and simply concatenated.