$sDatePC = StringFormat('%.02d.%.02d.%.04d', @MDAY, @MON, @YEAR)
While 1
$varq = IniReadSection(@ScriptDir & '\settings.ini', 'Date')
If @error Then
MsgBox(4096, "", "Произошла ошибка, возможно отсутствует INI-файл.")
Else
For $i = 1 To $varq[0][0]
$date = $varq[$i][0]
$sDateINI =IniRead(@ScriptDir & '\settings.ini', "Date", $date, "")
If $sDateINI == $sDatePC Then
MsgBox(8192+16, "", $date)
IniDelete ( @ScriptDir & '\settings.ini', "Date" , $date )
EndIf
Next
EndIf
Sleep(1000)
WEnd