Somar Horas a uma Data.
26/11/2003
0
Estou com um probleminha. De repente alguém já fez isso e sabe como fazer.
Preciso somar uma quantidade de horas a uma data.
Será que alguém já fez isso antes ?
Sem mais, agradeço desde já.
Ovidio Jr.
Ovidio
Posts
26/11/2003
Luizfernando777
como assim horas em uma data,
vc tem que passar os parametros
26/11/2003
Aroldo Zanela
Inclua DateUtils ( a partir da versão 6) na lista de uses. Siga o exemplo abaixo:
var DataHora: TDateTime; begin DataHora := Now; ShowMessage(DateTimeToStr(DataHora)); DataHora := IncHour(DataHora, 1); ShowMessage(DateTimeToStr(DataHora)); end;
26/11/2003
Luizfernando777
procedure TForm1.Button1Click(Sender: TObject);
var
Hora : TTime;
Data : TDate;
begin
Hora := StrToTime(´14:00:00´);
Data := Now;
Caption := DateTimeToStr(Data+Hora);
end;
19/12/2018
El Producoes
Inclua DateUtils ( a partir da versão 6) na lista de uses. Siga o exemplo abaixo:
[code:1:08b322d1ae]
var DataHora: TDateTime;
begin
DataHora := Now;
ShowMessage(DateTimeToStr(DataHora));
DataHora := IncHour(DataHora, 1);
ShowMessage(DateTimeToStr(DataHora));
end;
[/code:1:08b322d1ae]
Clique aqui para fazer login e interagir na Comunidade :)