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

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

дата в формате Unix [D7, WinXP]

~Shaman~ ©   (2004-09-10 12:19:00) 

как преобразовать дату в Unix формате в Win?

---

Anatoly Podgoretsky   (2004-09-10 18:49:00) [1]

http://podgoretsky.com/ftp/Language/nps/ru.delphi.html#N159

---

DelphiN!   (2004-09-10 13:10:00) [2]

Примерно так:

var
Year,Month,Day,Hour,Minute,Seconds:Real;
UnixTime:Real;
begin
   Year := StrToInt(FormatDateTime('yyyy', now));
   Month := StrToInt(FormatDateTime('mm', now));
   Day := StrToInt(FormatDateTime('dd', now));
   Hour := StrToInt(FormatDateTime('hh', now));
   Minute := StrToInt(FormatDateTime('nn', now));
   Second := StrToInt(FormatDateTime('ss', now));

Year := Year * кол-во сек в году;
Month := Month * кол-во сек в мес;
Day := Day * кол-во сек в дне;
Hour := Hour * кол-во сек в часу;
Minute := Minute * кол-во сек в минуте (60);

UnixTime := Year+Month+Day+Hour+Minute+Second;  //Время Unix

---

Наверх