Как работать с TDataTime [D2005, XP]
Страницы:
<
1
2
>
Олег1963 © (2010-01-27 13:33:00)
Здрвствуйте уважаемые Мастера!
Требуется такая процедурка:
На форме имеется два Edit'a. В одном должно быть показано
реальное время, а в другой в несколько раз большее (точнее
быстроидущее).
Как выводить реальное время понятно, а как быть со вторым?
Делаю так. Сохраняю заданное время в переменной BuffTime типа
TDataTime. Выполняю
Edit1.Text:=TimeToStr(BuffTime);
Как в этом буфере добавлять минуты, чтобы добавлялись по мере
необходимости часы и сутки?
Нужно для производственной задачи (имитация течения времени
для медленнотекущих процессов ).
Nucer (2010-01-27 13:38:00) [21]
TDateTime - синоним Double, целая часть - дни. Чтобы добавить
24 часа, достаточно прибавить к значению единицу, 12 часов - 0.5 и
т. д. =)
Плюс есть функции EncodeDate и EncodeTime, упрощающие
процесс.
NowPlusMin := Now + EncodeTime(0, 1, 0, 0);
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
