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

← →
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: ни локального ни летнего времени ты не учитываешь.
т.е. код делает все правильно, то что и написано, а тебе надо "поплотнее" изучить как дата/время устроено, т.к. явно не того ожидал.

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