Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.03;
Скачать: [xml.tar.bz2];

Вниз

Как текущую получить дату и время в Unix формате   Найти похожие ветки 

 
stur   (2003-02-19 12:11) [0]

Т.е. число секунд прошедших с 1970 года.


 
Chubais   (2003-02-19 13:42) [1]

secondsbetween(StrToDate("01.01.1970"),Now)?


 
han_malign   (2003-02-19 14:08) [2]

SysUtils
Result:=round((Now-EncodeDate(1970,1,1))*24*3600)

WinAPI
var st: TSystemTime;
ft,ft1970: TFileTime;
begin
FillChar(st,sizeof(st),0);
with st do begin
wYear:=1970;
wMonth:=1;
wDay:=1;
end;
SystemTimeToFileTime(st,ft1970);
GetLocalTime(st);
SystemTimeToFileTime(st,ft);
Result:=(int64(ft)-int64(ft1970))div 10000000;
end;



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

Форум: "Основная";
Текущий архив: 2003.03.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.54 MB
Время: 0.035 c
14-5832
Nickola2
2003-02-13 16:23
2003.03.03
Глупый вопрос: а где же Коля Быков?


7-5888
Senator
2003-01-04 12:48
2003.03.03
Удаление файла


1-5556
Jolik
2003-02-19 12:05
2003.03.03
как можно импортировать из DLL объекты?


14-5789
Manulo
2003-02-12 19:26
2003.03.03
Эххх...


3-5442
AM
2003-02-12 16:20
2003.03.03
Ошибка при Preview, как избавиться от нее





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский