Работа с временными величинами в 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, просто
сделайте
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Математика времени", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!