Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c