Jump to content
Sign in to follow this  
Guest FOR FUN

MORE TIME

Recommended Posts

Guest FOR FUN

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

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

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 by Larry

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...