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