Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.20;
Скачать: CL | DM;

Вниз

Msec to TDateTime   Найти похожие ветки 

 
Morisson   (2003-01-09 14:40) [0]

Как преобразовать миллисекунды в тип TDateTime?
след. штука не работает:

var
ts:TTImeStamp;
TimeLeft:TDateTime;
begin
ts:=MSecsToTimeStamp(GetTickCount);
TimeLeft:=TimeStampToDateTime(ts); // в этой строке генерится ошибка, что 0.ts - не TimeStamp формата
end;

Вчем здесь трабл?
А как подругому сделать знает кто?


 
Dona ©   (2003-01-09 15:05) [1]

function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;


 
Anatoly Podgoretsky ©   (2003-01-09 15:11) [2]

В сутках 86400000 миллисекунд


 
Morisson   (2003-01-09 15:52) [3]

Спасибо, кто ответил, пока ждал, сам разобрался.
Вобщем функция такая так выглядит примерно:

function MSecToDateTime(MSec:Cardinal):TDateTime;
const
MSECDAY=86400000;
begin
result:=Msec/MSECDAY;
end;


 
Anatoly Podgoretsky ©   (2003-01-09 15:56) [4]

Аот теперь правильно



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
3-62387
MsGuns
2002-12-23 20:37
2003.01.20
Можно ли одним запросом..


1-62567
diks
2003-01-11 13:57
2003.01.20
пароль


1-62591
Andrey88+
2003-01-08 15:47
2003.01.20
Задача о TMemo


4-62946
Alexsc
2002-12-06 10:02
2003.01.20
выключение компьютера


3-62382
AlexGreG
2002-12-25 06:46
2003.01.20
Picture from ORACLE DB