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

Вниз

Уважаемые, подскажите есть в реестре ключик, хранящий дату   Найти похожие ветки 

 
Anatolik_ ©   (2006-04-03 14:57) [0]

Установки Windows, и его значение равно 1109327348, как преобразовать к виду dd.mm.yyyy hh.mm.ss???


 
balepa ©   (2006-04-03 15:04) [1]

var
 d: TDateTime;
begin
d:= 1109327348;
showmessage(DateTimeToStr(d))
end;


 
Anatolik_ ©   (2006-04-03 15:17) [2]

ну как бы да.. но не совсем
должно показать 25.02.2005    10:29:08
а покажет 12.02.24479


 
Khim ©   (2006-04-03 15:30) [3]

Используй Formatdatetime("dddddd",date());


 
Anatolik_ ©   (2006-04-03 15:57) [4]

не получается :(
есть ключ реестра
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate
он равен(в моем случае) "1109327348"
вот я и хочу получить из этой строки дату.
Formatdatetime тоже не помогает.


 
Anatolik_ ©   (2006-04-03 15:57) [5]

не получается :(
есть ключ реестра
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate
он равен(в моем случае) "1109327348"
вот я и хочу получить из этой строки дату.
Formatdatetime тоже не помогает.


 
begin...end ©   (2006-04-03 17:30) [6]

> Anatolik_ ©   (03.04.06 14:57)

Значение этого параметра хранится в формате time_t (кто писал на Сях, знает, что время в этом формате выражается количеством секунд, прошедшим с 0 ч 0 мин 1 января 1970 года). А в Delphi значение типа TDateTime – это дробное число, равное количеству суток, прошедшему с 0 ч 0 мин 30 декабря 1899 года. Из этого и нужно исходить, а код перевода в TDateTime может быть примерно таким:

const
 Delta = 2209161600; // Количество секунд между 30.12.1899 и 1.1.1970
var
 T: DWORD;
 D: TDateTime;
begin
 T := 1109327348;
 D := (T + Delta) / (60 * 60 * 24);
 ShowMessage(DateTimeToStr(D))
end


 
Anatolik_ ©   (2006-04-04 07:13) [7]

to begin...end ©
СПАСИБО ОГРОМНОЕ!!!!!!!!!!!
Все доходчиво объяснили!



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

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

Наверх




Память: 0.45 MB
Время: 0.048 c
15-1143322644
McSimm
2006-03-26 00:37
2006.04.16
Статья Мерлина "Создание полноценного чата на Flash"


15-1143527410
Ega23
2006-03-28 10:30
2006.04.16
как по аглицки правильно?


3-1140436796
Варяг
2006-02-20 14:59
2006.04.16
Прогр-ное создание индексного файла для FoxPro


15-1143033870
Nikolay M.
2006-03-22 16:24
2006.04.16
Отмодерировали по полной


4-1138463324
maxim161
2006-01-28 18:48
2006.04.16
Слежение за файловой системой





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский