Форум: "Основная";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];
Вниздата в формате 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.038 c