CountDown V.0.0.1

#include <date.au3>
Global $Sec, $Min, $Hour, $Time
HotKeySet("{ESC}", "_Quit")
HotKeySet("{PAUSE}", "_Set_EndTime")
$WorkTime = 7 * 60 * 60 * 1000 + 42 * 60 * 1000
$StartTicks = _TimeToTicks(@HOUR, @MIN, @SEC)
$EndTicks = $StartTicks + $WorkTime
$EndTicks = _TimeToTicks("23", "55", "00")
_TicksToTime($EndTicks, $Hour, $Min, $Sec)
$Time2Go1 = Form($Hour) & ":" & Form($Min) & ":" & Form($Sec)
MsgBox(0, "Ende", $Time2Go1)
While 1
$StartTicks = _TimeToTicks(@HOUR, @MIN, @SEC)
$DiffTicks = $EndTicks - $StartTicks
_TicksToTime($DiffTicks, $Hour, $Min, $Sec)
$Time2Go = Form($Hour) & ":" & Form($Min) & ":" & Form($Sec)
If Mod($DiffTicks, 60000) = 0 Then
SplashTextOn("", $Time2Go, 160, 50, 1, 1, 4, "Courier New", 24)
;SoundSetWaveVolume(50)
;SoundPlay("DRUMROLL.WAV",1)
Sleep(3000)
SplashOff()
EndIf
Sleep(1000)
WEnd
Func _Quit()
Exit
EndFunc ;==>_Quit
Func _Set_EndTime()
$Time2Go1 = InputBox("Neue Zeit eingeben", "Uhrzeit", $Time2Go1)
;TODO
;Eingegebene Zeit in EndTicks umwandeln
$EndTicks = _TimeToTicks("23", "59", "00")
EndFunc ;==>_Set_EndTime
Func Form(ByRef $Var)
If $Var < "10" Then $Var = "0" & $Var
Return ($Var)
EndFunc ;==>Form