Somar Horas a uma Data.
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.
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
Curtidas 0
Respostas
Luizfernando777
26/11/2003
explique melhor,
como assim horas em uma data,
vc tem que passar os parametros
como assim horas em uma data,
vc tem que passar os parametros
GOSTEI 0
Aroldo Zanela
26/11/2003
Colega,
Inclua DateUtils ( a partir da versão 6) na lista de uses. Siga o exemplo abaixo:
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
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;
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
26/11/2003
Colega,
Inclua DateUtils ( a partir da versão 6) na lista de uses. Siga o exemplo abaixo:
Obrigado, funcionou pra mim!
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
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