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 мы получим следующую датту.