Главная страница
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.033 c
15-1143032261
Физик
2006-03-22 15:57
2006.04.16
На етом форуме можна зделать штобы ответы приходили на mail


2-1142940985
Ksenom
2006-03-21 14:36
2006.04.16
Не так всё прсто TIdPOP3


4-1138446946
Goryn
2006-01-28 14:15
2006.04.16
Запуск прог из сервиса


4-1138289292
_zx
2006-01-26 18:28
2006.04.16
слот PCI


2-1143822213
fast2
2006-03-31 20:23
2006.04.16
Как с помощ., SQL найти колличество записей, значения которых...