Delphi - Apis para la fecha y hora

 
Vista:

Apis para la fecha y hora

Publicado por Horacio Navarro (1 intervención) el 17/03/2001 00:29:31
Buen dia, alguien sabe con que apis, puedo modificar la hora y la fecha del sistema
o bien si se puede hacer con funciones de delphi, cuales son???, desde ya gracias
y saludos,,,,
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Apis para la fecha y hora

Publicado por José Oronas (89 intervenciones) el 17/03/2001 07:03:07
Podes usar
SetLocalTime(SystemTime : TSystemTime);

tSystemTime está definida en la unidad Windows y tiene una estructura como para pasar fecha y hora.

...= Record
wYear: Word;
wMonth: Word;
wDayOfWeek: Word;
wDay: Word;
wHour: Word;
wMinute: Word;
wSecond: Word;
wMilliseconds: Word;
End ;

Por lo que si solo necesitas cambia la fecha (por Ej) deberias primero leer el contenido actual y luego cambiar los componentes necesarios

Ej .

procedure CambiarFecha(Fecha: TDateTime);
var
FSist: TSystemTime;
A, M, D: Word;
begin
DecodeDate(Fecha, A,M,D);
// Recuperas valorea actuales de Fecha y hora
// del sistema
GetLocalTime(FSist);
// Solo cambias las comonentes de fecha
FecSys.wYear := A;
FecSys.wMonth := M;
FecSys.wDay := D;
SetLocalTime(FSist);
end;

Algo similar deberias hacer si solo vas a cambiar la hora, si vas a modificar todo no sería necesario recuperar lo actual.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar