[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;

[Pyro]

используя GetSystemTime

[dagi88]

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

используя GetSystemTime

а можно подробнее, где и как ее использовать на примере одного из кода сверху

[RusMaXXX]

попробуй это:

Код:

procedure SetDateTime(Year : word; Month, Day : byte; Hour, Min, Sec, MSec : byte);
var
  ATime: TSystemTime;
begin
  with ATime do
  begin
    wYear := Year;
    wMonth := Month;
    wDay := Day;
    wHour := Hour;
    wMinute := Min;
    wSecond := Sec;
    wMilliseconds := MSec;
  end;
  SetLocalTime(ATime);
end;

[dagi88]

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

попробуй это:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  ATime: TSystemTime;
begin
  with ATime do
  begin
    wYear := 1980;
    wMonth := 7;
    wDay := 12;
    wHour := 17;
    wMinute := 25;
    wSecond := 0;
    wMilliseconds := 0;
  end;
  SetLocalTime(ATime);
end;

этот код меняет все значения, а мне нужно чтобы менялся только год

[RusMaXXX]

так сперва получи все значения, час, минуты, секунды, год, месяц, число, а потом к к году прибавь/отними значение и эти данные примени в процедуре

[dagi88]

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

так сперва получи все значения, час, минуты, секунды, год, месяц, число, а потом к к году прибавь/отними значение и эти данные примени в процедуре

а как все это выглядит в виде кода, если не сложно напишите

[RusMaXXX]

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

а как все это выглядит в виде кода, если не сложно напишите

вот

Код:

procedure SetDateTime(Year : word; Month, Day : byte; Hour, Min, Sec, MSec : byte);
var
  ATime: TSystemTime;
begin
  with ATime do
  begin
    wYear := Year;
    wMonth := Month;
    wDay := Day;
    wHour := Hour;
    wMinute := Min;
    wSecond := Sec;
    wMilliseconds := MSec;
  end;
  SetLocalTime(ATime);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ATime: TSystemTime;
begin
  GetLocalTime(ATime);
  SetDateTime(ATime.wYear+1,ATime.wMonth, ATime.wDay, ATime.wHour, ATime.wMinute, ATime.wSecond, ATime.wMilliseconds);         
end;

[dagi88]

все получилось, большое спасибо