Проблемма с Systemtime

[sergey113]

Не получается ... вот что написал в коде:

var
  Form1: TForm1;
  per : TdateTime;
  timer : _SYSTEMTIME;
  wYaer, wMonth, wDay, wHour, wMinute, wSecond, wMilliseconds :word;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
per := Now;
Label1.Caption:='Системная дата '+DateToStr(per)+' и время  '+TimeToStr(per);
//ShowMessage(DateToStr(per));

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
per:=MonthCalendar1.Date;
with timer do
begin
DecodeDate(per, wYaer, wMonth, wDay);
DecodeTime(per, wHour, wMinute, wSecond, wMilliseconds);
end;
SetSystemTime(timer);
MonthCalendar2.Date:=per;
end;

Скрин формы прилагается... системное время не изменяется, а на втором элементе MonthCalendar2.Date дата меняется ..

Добавил строку
ShowMessage(IntToStr(wYaer)+' '+IntToStr(wMonth)+' '+IntToStr(wDay)) ;
в код программы и вижу что год у меня 2009 а месяц и день равны 0 .. видимо по этому и не меняется дата

[Neobrat]

Сообщение от sergey113

Добавил строку
ShowMessage(IntToStr(wYaer)+' '+IntToStr(wMonth)+' '+IntToStr(wDay)) ;
в код программы и вижу что год у меня 2009 а месяц и день равны 0 .. видимо по этому и не меняется дата

хм... чест слово странно...

если ты сделал так то должно все получиться..
у меня выводит нормальную дату..

with time do
begin
 DecodeDate(per, wYear, wMonth, wDay);
 DecodeTime(per, wHour, wMinute, wSecond, wMilliseconds);
 ShowMessage(IntToStr(wYear)+' '+IntToStr(wMonth)+' '+IntToStr(wDay)) ; 
end;