#SingleInstance Force
#Persistent
#NoEnv

Times := ["20:46"]
NewTimer(Times)
Return

NewTimer(Arr) {
For k, value in Arr
odds := DifferenceTime(value)
, (!Min || Min > odds)
&& (Min := odds, Time := value)
hFunc := Func("Timer").Bind(Time, Arr)
SetTimer, % hFunc, % -Min
TrayTip, % "Следующий в:", % "n" Time "nnЧерез:n`n" FormatTime(Min)
}

Timer(Time, List) {
Send , {enter}
NewTimer(List)
}

DifferenceTime(Time) {
T := StrSplit(Time, ":")
Time := Time2 := A_YYYY A_MM A_DD T[1] T[2] (T[3] ? T[3] : "00,200")
EnvSub, Time, A_Now, Second
Time := (Time * 1000) - A_MSec
If Time >= 0
Return Time
Time2 += 1, days
EnvSub, Time2, A_Now, Second
Return (Time2 * 1000) - A_MSec
}

FormatTime(Time) {
Rest := Mod(Time, 3600000)
Hours := Format("{:02}", Time // 3600000)
Min := Format("{:02}", Rest // 60000)
Sec := Format("{:02}", Mod(Rest, 60000) // 1000)
MSec := Format("{:03}", Mod(Rest, 1000))
Return Hours ":" Min ":" Sec "," MSec
}