Форум: "Основная";
Текущий архив: 2004.08.15;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.036 c
