[dagi88]

Здравствуйте всем. Меня интересует изменение системного времени на год, или на другое число, при этом чтоб все остальные числа(месяц, день, часы, минуты, секунды) оставались прежними. Нашел такое:

procedure TForm1.Button1Click(Sender: TObject);
var st:TSystemTime;
begin
st.wYear:=2007;
st.wMonth:=04;
st.wDay:=20;
st.wHour:=21
st.wMinute:=27;
st.wSecond:=20;
SetSystemTime(st);
end;

Но тут надо присваивать значение всем переменным, как сделать чтобы только год менялся?
Еще такое нашел, проблема та же

procedure TForm1.Button1Click(Sender: TObject);
var
NewTD: TSYSTEMTIME;
a:Boolean;
begin
NewTD.wYear:=2005;
NewTD.wMonth:=12;
NewTD.wDay:=8;
NewTD.wDayOfWeek:=1;
NewTD.wHour:=16;
NewTD.wMinute:=23;
NewTD.wSecond:=12;
NewTD.wMilliseconds:=0;
a:=SetSystemTime(NewTD);
end;