Форум: "Основная";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
Внизпреобразование Unix времени Найти похожие ветки
← →
andwcomm (2002-06-25 18:43) [0]Как преобразовать Unix формат даты в TdateTime
Пример (1017679202) -> пн. 1 апр 2002 19:40:02
← →
McSimm (2002-06-25 18:45) [1]const
UnixDateDelta = 25569;
SecsPerDay = 24 * 60 * 60;
function DateTimeToUnix(const AValue: TDateTime): Int64;
begin
Result := Round((AValue - UnixDateDelta) * SecsPerDay);
end;
function UnixToDateTime(const AValue: Int64): TDateTime;
begin
Result := AValue / SecsPerDay + UnixDateDelta;
end;
← →
Malder (2002-06-25 18:49) [2]Надо в UBPFD добавить...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c