MORE TIME

[Guest FOR FUN]

Here is something is made. I don't know if anyone else has made something like this.

It shows the time in 12 hours. With am and pm

ampm ()
func ampm ()
  if @HOUR>12 THEN
    Global $our=@HOUR-12
    Global $ap="P.M."
  else
    Global $our=@HOUR
    Global $ap="A.M."
  endif

  if $our=0 then
    $our=12
  endif
endfunc


$box=-1

do
 ampm ()

 $box=MsgBox(0+64, "Time", "The time is: " & $our & ":" & @MIN & ":" & @SEC & " " & $ap, 1)

until $box=1

Edited June 20, 2004 by Larry

[ezzetabi 1]

Edited by Larry?! Why?

[lte5000 0]

Edited by Larry?! Why?

My guess: Larry edited it to Tidy the post...

Kendall