Форум: "Начинающим";
Текущий архив: 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.038 c