| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Msec to TDateTime [D6, WinXP]
Morisson © (2003-01-09 14:40:00)Как преобразовать миллисекунды в тип TDateTime?
след. штука не работает:
var
ts:TTImeStamp;
TimeLeft:TDateTime;
begin
ts:=MSecsToTimeStamp(GetTickCount);
TimeLeft:=TimeStampToDateTime(ts); // в этой строке генерится ошибка, что 0.ts - не TimeStamp формата
end;
Вчем здесь трабл?
А как подругому сделать знает кто?
Anatoly Podgoretsky (2003-01-09 15:56:00) [1]Аот теперь правильно
Morisson (2003-01-09 15:52:00) [2]Спасибо, кто ответил, пока ждал, сам разобрался.
Вобщем функция такая так выглядит примерно:
function MSecToDateTime(MSec:Cardinal):TDateTime;
const
MSECDAY=86400000;
begin
result:=Msec/MSECDAY;
end;
Anatoly Podgoretsky (2003-01-09 15:11:00) [3]В сутках 86400000 миллисекунд
Dona (2003-01-09 15:05:00) [4]function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
| |
