[Julià T.]

para cambiar a 1999

Var
DH:SystemTime;
begin
DateTimetoSystemTime(Now,DH);
DH.wYear:=1999;
SetLocalTime(DH);
end;


para volver a 2003

Var
DH:SystemTime;
begin
DateTimetoSystemTime(Now,DH);
DH.wYear:=2003;
SetLocalTime(DH);
end;