somando datas no delphi

Delphi

Firebird

03/01/2020

Boa noite,
tenho uma tabela no firebird chamado produto e nessa tabela tem um campo chamado qtd_dias.
como faço para quando clicar em um botão ele soma o dia atual com esse campo chamado qtd_dias e guarda o resultado em uma variável?
Diego Ribeiro

Diego Ribeiro

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

03/01/2020

soma simples:
var
  dData: TDateTime;
begin
  dData := Date + dataset.FieldByName('qtd_dias').AsInteger;

  [...]
end;
GOSTEI 0
Diego Ribeiro

Diego Ribeiro

03/01/2020

Como Faço para passar esse ddata para o fast reports?
GOSTEI 0
Anderson Gonçalves

Anderson Gonçalves

03/01/2020

soma simples:
var
  dData: TDateTime;
begin
  dData := Date + dataset.FieldByName('qtd_dias').AsInteger;

  [...]
end;


Isso aqui funcionou?

Mano como você vai somar um inteiro com uma data?

Se não funcionou me avisa que eu te ajudo.

Skype: anderson@case13.com.br
GOSTEI 0
Anderson Gonçalves

Anderson Gonçalves

03/01/2020

olha eu testei aqui numa select usando banco de dados firebird e o desgraçado faz essa soma na moral, nunca tinha experimentado mas esse codigo do parceiro ai eu não sei se ficou de boa mas faz isso aqui e na tua query e liga ela ao teu fastreport e lá você escolhe o campo onde quer que apareça e coloca o campo DATASOMADA.

select (data+4)as DataSomada from tabela
GOSTEI 0
POSTAR