Counter (wm 2006)

[Xenobiologist]

Hi,

just bored and played a little bit around.

#include<Date.au3>
HotKeySet("{esc}", "end")

While 1
    ToolTip("WM 2006 Kickoff" & @CRLF & "============" & @CRLF & _counter("2006/06/09", "18:00:00") & " left", _
            @DesktopWidth - 100, 30)
    Sleep(1)
WEnd

; "YYYY/MM/DD[ HH:MM:SS]"
Func _counter($s_Date, $s_time)
    If _DateIsValid($s_Date & " " & $s_time) Then
        Local $NumberOfSeconds = _DateDiff("s", _NowCalc(), $s_Date & " " & $s_time)
        Return StringFormat("Days   = %.02d" & @CRLF & "Hours   = %.02d" & @CRLF & "Min = %.02d" & @CRLF & "Sec = %.02d" & @CRLF & _
                "Msec   = %.03d", $NumberOfSeconds / 86400, Mod($NumberOfSeconds / 3600, 24), Mod(($NumberOfSeconds / 60), 60), _
                Mod($NumberOfSeconds, 60), 1000 - _MSec())
    Else
        Return -1
    EndIf
EndFunc  ;==>_counter

Func _MSec()
    Local $stSystemTime = DllStructCreate('ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort')
    DllCall('kernel32.dll', 'none', 'GetSystemTime', 'ptr', DllStructGetPtr($stSystemTime))
    $sMilliSeconds = StringFormat('%03d', DllStructGetData($stSystemTime, 8))
    $stSystemTime = 0
    Return $sMilliSeconds
EndFunc  ;==>_MSec

Func end()
    Exit (0)
EndFunc  ;==>end

So long,

Mega

Edited May 17, 2006 by th.meger

[Valuater]

Cute...

however, reflects "-8" hours???

8)

[Xenobiologist]

Cute...

however, reflects "-8" hours???

8)

HI,

that happens when I post untested scripts. I wrote it completely new. Hope it works better now.

So long,

Mega

P.S.: Maybe I can make an udf return days, hours, minuntes, sec & msec left out of it