[REBOL] Re: Displaying AM / PM times
From: allenk:powerup:au at: 27-Aug-2001 8:48
Hi John,
I believe Carl is the origin of this one..
nice-time: func [time /local am][
time/3: 0
am: pick [" AM" " PM"] time < 12:00
if time >= 12:00 [time: time - 12:00]
if time/1 = 0 [time/1: 12]
rejoin [time am]
]
>> nice-time 16:30
== "4:30 PM"
>> nice-time 4:30
== "4:30 AM"
Cheers,
Allen K
----- Original Message -----
From: "john" <[john--thousand-hills--net]>
To: <[rebol-list--rebol--com]>
Cc: <[Time--mindspring--com]>