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

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.283 c
2-1144121636
thread
2006-04-04 07:33
2006.04.16
Проблема с нитью


15-1143206524
raymond
2006-03-24 16:22
2006.04.16
Сайты по КПК (Pocket PC)


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


2-1143713097
Yegorchic
2006-03-30 14:04
2006.04.16
CheckBox.Caption в 2 строки


2-1143782088
serg111111
2006-03-31 09:14
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский