Текущий архив: 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.015 c