Текущий архив: 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.016 c
