While 1
Switch @HOUR & ':' & @MIN & ':' & @SEC & ' ' & @MDAY & '.' & @MON & '.' & @YEAR
Case '10:00:00 21.12.2012', '21:18:45 08.03.2013' ;и.т.д ....
MsgBox(0, 'Напоминание', 'Покушай')
Case '15:11:30 21.12.2012'
MsgBox(0, 'Напоминание', 'Иди спать')
EndSwitch
WEnd