Математика времени
Работа с временными величинами в Delphi очень проста, если пользоваться встроенными функциями преобразования. Определите глобальные Hour, Minute, Second и инициализируйте их следующим образом:
| Hour := EncodeTime(1,0,0,0); Minute := EncodeTime(0,1,0,0); Second := EncodeTime(0,0,1,0); |
Или, если вы предпочитаете константы, сделайте так:
| Hour = 3600000/MSecsPerDay; Minute = 60000/MSecsPerDay; Second = 1000/MSecsPerDay; |
Теперь для того, чтобы добавить 240 минут к переменной TDateTime, просто сделайте
| T := T + 240*Minute; |
[000467]
