Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

Code Snippets / 12 hour time

Author

Message

Phaelax

DBPro Master

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 18th Feb 2004 10:49

Link

Displays the time in 12 hour notation instead of 24 hour military time. Again, another old snippet from years back.

+ Code Snippet


sync on

do
`cls
  set cursor 0,0
  print formatted_time()

  if spacekey() then exit
sync
loop




function formatted_time()
  hour$=left$(get time$(),2)
  day$="am"
  if val(hour$)>=12 then day$="pm"
  if val(hour$)>12 then hour$=str$((val(hour$)-12))
  if val(hour$)=0 then hour$="12"
  minutes$=mid$(get time$(),4)+mid$(get time$(),5)
  ft$=hour$+":"+minutes$+day$
endfunction ft$

"eureka" - Archimedes

Profile PM Email Website

Server time is: 2024-05-11 14:25:35
Your offset time is: 2024-05-11 14:25:35