Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Time [D5, WinXP]

Марат © (2004-08-02 12:57:00)
Вопрос такой.
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:00) [1]
DecodeDate, DecodeTime + Help

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »