Текущий архив: 2004.04.04;
Скачать: CL | DM;

Вниз

Как разобраться с датой   Найти похожие ветки 

← →
zamkom ©   (2004-03-19 14:33) [0]

Вот смотрите, такой код

Vremia_zapuska := Now;
... Здесь куча кода
Vremia_Raboti := Now - Vremia_zapuska;
DateTimeToString(Vrem,"dd       hh       nn",Vremia_Raboti);
label1.Caption := Vrem;
Результат этого является цифры 30 00 05, почему он показывает не 0 дней а 30. И еще почему если Now-Now то дата получится 30.12.1899 а не 00.00.0000, и как это исправить. Спасибо.

---

← →
stelius ©   (2004-03-19 14:50) [1]

>если Now-Now то дата получится 30.12.1899 а не 00.00.0000

30.12.1899 - минимальное значение переменной типа TDateTime.

> как это исправить

использовать DecodeDate и DecodeTime

---

Страницы: 1 вся ветка

Текущий архив: 2004.04.04;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.051 c