| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

преобразование Unix ;времени [D5, Win95/98]

andwcomm ©   (2002-06-25 18:43:00) 

Как преобразовать Unix формат даты в TdateTime
Пример (1017679202) -> пн. 1 апр 2002 19:40:02

---

Malder   (2002-06-25 18:49:00) [1]

Надо в UBPFD добавить...

---

McSimm   (2002-06-25 18:45:00) [2]

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;

---

Наверх