filip Valued Contributor


Joined: 07 Aug 2004 Posts: 340
|
Posted: Sat Jan 28, 2006 11:37 am Post subject: AM PM clock |
|
|
I like to mask or convert time to AM PM standard
This code is original from Hooligan...
| Code: | Title TimeTest
%%now = @datetime(hh:nn)
%%rawtime = @datetime()
%%rawhour = @fdiv(1,24)
%%rawminute = @fdiv(1,1440)
DIALOG CREATE,Timetest,-1,0,240,243
DIALOG ADD,SPIN,SPIN1,65,135,73,24,0|24,0,,CLICK
DIALOG ADD,SPIN,SPIN2,94,139,69,24,0|60,0,,CLICK
DIALOG ADD,TEXT,Time1,30,130,,,%%now
DIALOG ADD,TEXT,newtime1,142,139,,,%%now
DIALOG ADD,BUTTON,BUTTON1,184,94,64,24,ok
DIALOG ADD,TEXT,TEXT1,71,48,,,hours
DIALOG ADD,TEXT,TEXT2,103,51,,,minutes
DIALOG ADD,TEXT,TEXT3,32,42,,,Start time -
DIALOG ADD,TEXT,TEXT4,146,42,,,New time -
DIALOG SHOW
:Evloop
wait event
goto @event()
:SPIN1CLICK
:SPIN2CLICK
%h = @dlgtext(spin1)
%m = @dlgtext(spin2)
%%newhour = @fmul(%%rawhour,%h)
%%newminute = @fmul(%%rawminute,%m)
%%newrawtime = @fadd(%%rawtime,@fadd(%%newhour,%%newminute))
%%newtime = @datetime(hh:nn,%%newrawtime)
dialog set,newtime1,%%newtime
goto evloop
:BUTTON1BUTTON
:Close
exit |
If windows are set to AM PM nothing is change if use this code so windows looks like they are using mask clock (bios have full normal). |
|