Консультация № 78154
13.03.2007, 20:24
0.00 руб.
0 2 2
Здравствуйте Уважаемые Эксперты!
Подскажите пожайлуста, нужно сделать на Delphi будильник.
СОбственно инетерсует сама работа с временем, как его отслеживать, проверять наступил ли заданный час.
Может кто может помочь ссылкой на материал в интеренете, или ещё чем.
P.S.И тут деньги ввели, кошмар...Уже вопрос бесплатно не задать...

Обсуждение

Неизвестный
13.03.2007, 20:37
общий
это ответ
Здравствуйте, Ustas!

Ложите на форму объект TTimer с вкладки Sustem. Ставите ему Interval:=750.
На свойство OnTimer пишете процедуру:
if TimeToStr(now)=‘19:42:45‘ then showmessage(‘ВРЕМЯ ВСТАВАТЬ‘);
Вот и вся идея...

Удачи!
Неизвестный
14.03.2007, 06:26
общий
это ответ
Здравствуйте, Ustas!
Для работы с временем есть следующие функции:
Time:TDateTime; - возвращает текущее время.
Date:TDateTime; - возвращает текущую датту.
DecodeDate(Date:TDateTime; var Yar, Month, Day:Word); Разбирает значени даттыж
DayOfWeek(Date:TDateTime):integer; - возвращает номер дня недели (Воскресенье -1)
DecodeTime(Time:TDateTime; var Hour, Min, Sec,MSec:Word); Разбирает значение времени
EncodeDate(Yar, Month, Day:Word):TDateTime;
EncodeTime(Hour, Min, Sec,MSec:Word):TDateTime;
Добавлю, что тип TDateTime эквивалентен типу Real Следовательно прибавив к значению 1 мы получим следующую датту.
Форма ответа