Setvirtualresolution(640,480)
SetPrintSize(25)
ResetTimer()
date1$="2013-01-01"
date2$=GetCurrentDate()
unix1=GetUnixFromDate(Val(Left(date1$,4)),Val(Mid(date1$,6,2)),Val(Right(date1$,2)),0,0,0)
unix2=GetUnixFromDate(Val(Left(date2$,4)),Val(Mid(date2$,6,2)),Val(Right(date2$,2)),0,0,0)
secs=unix2-unix1
mins=secs/60
hours=mins/60
days=hours/24
Repeat
Printc ("It is "+Str(days)+" days since ")
Print (date1$)
Sync()
Until Timer()>15
End
Help make AGK better by submitting an example for this command! (All examples are subject to approval)
Setvirtualresolution(640,480) SetPrintSize(25) ResetTimer() date1$="2013-01-01" date2$=GetCurrentDate() unix1=GetUnixFromDate(Val(Left(date1$,4)),Val(Mid(date1$,6,2)),Val(Right(date1$,2)),0,0,0) unix2=GetUnixFromDate(Val(Left(date2$,4)),Val(Mid(date2$,6,2)),Val(Right(date2$,2)),0,0,0) secs=unix2-unix1 mins=secs/60 hours=mins/60 days=hours/24 Repeat Printc ("It is "+Str(days)+" days since ") Print (date1$) Sync() Until Timer()>15 End