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

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