cambio fecha y se cambia la hora
Publicado por edusus (68 intervenciones) el 17/03/2006 07:20:50
Con el siguiente código cambio la fecha del ordenador pero en cada cambio se adelanta una o dos horas el reloj. ¿Dónde está el error? Yo creo que con este código no tendría que modificarse la hora.
procedure TForm1.CambiarClick(Sender: TObject);
var
fecha:TSystemTime;
year, month, day: integer;
begin
GetLocalTime(Fecha);
day:= strtoint(eDia.Text);
month:= strtoint(eMes.Text);
year:= strtoint(eAnio.Text);
fecha.wyear:=year;
fecha.wMonth:=month;
fecha.wDay:=day;
SetLocalTime(Fecha);
end;
Gracias por vuestra ayuda
procedure TForm1.CambiarClick(Sender: TObject);
var
fecha:TSystemTime;
year, month, day: integer;
begin
GetLocalTime(Fecha);
day:= strtoint(eDia.Text);
month:= strtoint(eMes.Text);
year:= strtoint(eAnio.Text);
fecha.wyear:=year;
fecha.wMonth:=month;
fecha.wDay:=day;
SetLocalTime(Fecha);
end;
Gracias por vuestra ayuda
Valora esta pregunta
0