4 replies to this topic

[Fleon]

Hola a todos como puedo sumar horas a la fecha actual del sistema con delphi?, me explico, el sistema actual lanza la fecha 16/06/2016 14:00:00 y quiero sumarle vamos a decir 20 horas que sería 17/06/2016 12:00:00 del dia siguiente, ¿cómo se logra esto?.

[giulichajari]

IncHours incrementa las horas..
http://www.delphibas...sp?Name=IncHour

Debes incluir sysutils...
Enviado desde mi SM-G530M mediante Tapatalk

[genriquez]

php

Var
  Fecha1 : TDateTime;
  Hora : TTime;
Begin
   Fecha1 := Date+Time;  //Es igual a  Fecha1 := Now;
   Fecha1 := Fecha1+EncodeTime(20,0,0,0);
   ShowMessage(FormatDateTime('DD/MM/YYYY hh:nn:ss.zzzz', 
Fecha1);
 
   ShowMessage(FormatDateTime('DD/MM/YYYY 
hh:nn:ss.zzzz',Now+EncodeTime(20,0,0,0));
End;

Edited by genriquez, 16 June 2016 - 12:23 PM.

[Agustin Ortu]

Creo que se refiere a cambiar la hora del sistema

 

En Windows, podes hacer esto:

 

delphi

procedure CambiarHoraSistema(const FechaElegida: TDateTime);
var
  FechaSistema: TSystemTime;
begin
  GetSystemTime(FechaSistema);
  FechaSistema.wYear := YearOf(FechaElegida);
  FechaSistema.wMonth := MonthOf(FechaElegida);
  FechaSistema.wDay := DayOf(FechaElegida);
  FechaSistema.wHour := HourOf(FechaElegida);
  FechaSistema.wMinute := MinuteOf(FechaElegida);
  FechaSistema.wSecond := SecondOf(FechaElegida);
 
  if not SetLocalTime(FechaSistema) then
    RaiseLastOSError;
end;

[sir.dev.a.lot]

Buen dia,

 

En el Mensaje de @giulichajari

No seria en la unidad SysUtils, sino en la DateUtils.... "Creo" que es donde se guardan todos los procedimientos y funciones relativos a manejo de fechas y horas.

 

Saludos!