Somar Horas a uma Data.

Delphi

26/11/2003

Olá, Pessoal.
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

Ovidio

Curtidas 0

Respostas

Luizfernando777

Luizfernando777

26/11/2003

explique melhor,
como assim horas em uma data,
vc tem que passar os parametros


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

26/11/2003

Colega,

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;



GOSTEI 0
Luizfernando777

Luizfernando777

26/11/2003

seria isso:

procedure TForm1.Button1Click(Sender: TObject);
var
Hora : TTime;
Data : TDate;
begin
Hora := StrToTime(´14:00:00´);
Data := Now;
Caption := DateTimeToStr(Data+Hora);
end;


GOSTEI 0
El Producoes

El Producoes

26/11/2003

Colega,

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;



Obrigado, funcionou pra mim!
GOSTEI 0
Casuc

Casuc

26/11/2003

It is possible for you to pay your metro pcs pay
bill online. That is something you can do on the Metro PCS website. As long as you can remember your Metro PCS number, and you have the required amount of money, it should be easy for you to pay your bill online.
GOSTEI 0
POSTAR