[Время, дата] Контроль даты.

$URL = 'http://time.jp-net.ru/'
$ReadHTML = BinaryToString(InetRead($URL), 4)

$Data = StringRegExp($ReadHTML, '<h1 align=''center''> : (.*?)</h1>', 3)
$SplitData = StringSplit($Data[0], '-')

If @MDAY <> $SplitData[3] Or @MON <> $SplitData[2] Or @YEAR <> $SplitData[1] Then
	MsgBox(0, 'Date', 'У вас НЕПРАВИЛЬНАЯ дата !')
	RunWait(@ComSpec & ' /C date ' & $SplitData[3] & '.' & $SplitData[2] & '.' & $SplitData[1], '', @SW_HIDE)
	MsgBox(0, 'Date', 'Дата исправлена')
Else
	MsgBox(0, 'Date', 'У вас ПРАВИЛЬНАЯ дата !')
EndIf

$Data = StringRegExp($ReadHTML, '<h1 align=''center''> : (.*?)</h1>', 3)

$Data = StringRegExp($ReadHTML, '(\d+-\d+-\d+)', 3)