#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.9.24 (Beta)
 Author: DuNeD@i
 Script Function: Delay Timer
 Uso: Delay($Time, [$Unidad])
					$Unidad:
						D - días.
						M - meses.
						Y - años
						w - semanas
						h - horas
						n - minutos
						s - segundos
#ce ----------------------------------------------------------------------------

#Include <Date.au3>

 Delay(5)
 msgbox(0,'', 'Ya')

Func Delay($Timer, $Unidad= 's')
	Local $EndTime, $Now = _NowCalcDate() & " " & @HOUR & ":" & @MIN & ":" & @SEC
	$EndTime = _Dateadd($Unidad, $Timer, $Now)
	Do
		Sleep(1000)
	Until _NowCalcDate() & " " & @HOUR & ":" & @MIN & ":" & @SEC >= $EndTime
EndFunc