1, Можно через вызов внешнего (скомпилированного) скрипта:
Код:
Func Function ($file, $play)
Local $pid=0
If $play Then $pid = Run ("Au3Sound.Exe", @ScriptDir, @SW_HIDE)
...
If $pid Then ProcessClose ($pid)
EndFunc
где Au3Sound.Exe:
Код:
While 1
SoundPlay("File.wav", 1)
Wend
2. Например так:
Код:
$Time = "22:07:01"
$Mins = 8
Dim $TMS0 = StringSplit ($Time,":")
Dim $TMS1 = $TMS0
$Mins = Mod (24*60 + $TMS0[1]*60 + $TMS0[2] - $Mins, 24*60)
$TMS1[2] = Mod ($Mins, 60)
$TMS1[1] = ($Mins - $TMS1[2])/60
$TimeResult = $TMS1[1] & ":" & $TMS1[2] & ":" & $TMS1[3]
