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

Вниз

Проблема с установкой времени   Найти похожие ветки 

 
Ezorcist   (2007-08-27 12:38) [0]

Задача: установить системное время.

Пробую так:

procedure TForm4.Button2Click(Sender: TObject);
var n:_SYSTEMTIME; s:string;
begin
s:=formatdatetime("DDMMYYYY",date);
n.wYear:=strtoint(copy(s,5,4));
n.wMonth:=strtoint(copy(s,3,2));
n.wDay:=strtoint(copy(s,1,2));
n.wHour:=strtoint(edit1.Text);
n.wMinute:=strtoint(edit2.Text);
n.wSecond:=strtoint(edit3.Text);
n.wMilliseconds:=0;
setsystemtime(n);
end;


В результате время устанавливается, но не верно, т.е. если например в поле edit1 написать 9 и нажать кнопку, то установиться время 13. :\


 
sniknik ©   (2007-08-27 12:47) [1]

9 + 4 = 13...
что означает
1: у тебя на компе московское время
2: ни локального ни летнего времени ты не учитываешь.
т.е. код делает все правильно, то что и написано, а тебе надо "поплотнее" изучить как дата/время устроено, т.к. явно не того ожидал.



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

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

Наверх




Память: 0.46 MB
Время: 0.026 c
15-1187871910
White Barsik
2007-08-23 16:25
2007.09.23
Идентор для BDS2006/2007


15-1187779706
Piter
2007-08-22 14:48
2007.09.23
А чем автомат лучше пробок?


2-1188533770
RomanLN
2007-08-31 08:16
2007.09.23
Как запограммировать "отменить общий доступ к папке" ?


2-1188268833
Alex_AA
2007-08-28 06:40
2007.09.23
Перевод каретки на новую строку в Memo


15-1187876173
iXT
2007-08-23 17:36
2007.09.23
Почему нельзя сменить ник(login) в анкете?