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

Вниз

Time   Найти похожие ветки 

← →
Марат   (2004-08-02 12:57) [0]

Вопрос такой.
Procedure ...
var TmCnsdD: Extended;
TmCnsd: byte;
DtCntrN: TDateTime;
tt: integer;
DtCntrN:=date+1;
...здесь идет алгоритм подсчета DtCntrN
DtCntrN:=int(DtCntrN);
TmCnsdD:=DtCntrN-date-tt;
Edit1.text:=Inttostr(TmCnsdD);
Т.е. выводилось количество дней. А теперь как мне сделать, чтобы в Edit1.text вывелась информация о количестве часов.
Ну вроде бы TmCnsdD:=(DtCntrN-date-tt)*24+time;
а при выводе "0"

---

← →
Ega23 ©   (2004-08-02 13:00) [1]

DecodeDate, DecodeTime + Help

---

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

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

Наверх

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