Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.26;
Скачать: CL | DM;

Вниз

дата в формате Unix   Найти похожие ветки 

 
~Shaman~ ©   (2004-09-10 12:19) [0]

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


 
DelphiN! ©   (2004-09-10 13:10) [1]

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

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


 
Anatoly Podgoretsky ©   (2004-09-10 18:49) [2]

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



Страницы: 1 вся ветка

Текущий архив: 2004.09.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
14-1094307463
AlexG
2004-09-04 18:17
2004.09.26
ВАУ!!! Пейнтбол!!


14-1094211361
Frolov Alexey
2004-09-03 15:36
2004.09.26
Посоветуйте хорошие ресурсы по ASP.NET


3-1093861687
Л1
2004-08-30 14:28
2004.09.26
Как сделать свое сообщение на ошибку при отсутствии БД


3-1094021617
NewDelpher
2004-09-01 10:53
2004.09.26
Используемые объекты


1-1094646334
Cosinus
2004-09-08 16:25
2004.09.26
External exception C000001D