Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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]>