Проблема с установкой времени [D7, XP]
Ezorcist © (2007-08-27 12:38:00)
Задача: установить системное время.
Пробую так:
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:00) [1]
9 + 4 = 13...
что означает
1: у тебя на компе московское время
2: ни локального ни летнего времени ты не учитываешь.
т.е. код делает все правильно, то что и написано, а тебе надо
"поплотнее" изучить как дата/время устроено, т.к. явно не того
ожидал.
Наверх 
ЧАТ |
Орешник |
|
