Главная страница
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.48 MB
Время: 0.042 c
6-1136373049
ingine
2006-01-04 14:10
2006.04.16
TIdFtp


2-1144099736
ctudent
2006-04-04 01:28
2006.04.16
TreeView+База данных


15-1143186521
Ega23
2006-03-24 10:48
2006.04.16
С Днём рождения! 24 марта


2-1143483718
Shopot
2006-03-27 22:21
2006.04.16
Помогите разобраться с TChart ом.


15-1143198619
Loginov Dmitry
2006-03-24 14:10
2006.04.16
Классы...