Dias de Atraso! Ajuda
09/11/2021
0
Upmilk
Post mais votado
09/11/2021
var
vencimento, pagamento: TDate;
nDiasAtraso: extended;
begin
vencimento := Trunc(ClientDataSet1.FieldByName('vencimento').AsDateTime);
pagamento := Trunc(ClientDataSet1.FieldByName('pagamento').AsDateTime);
if pagamento = 0 then // se não há data de pagamento, assume a data atual
pagamento := System.SysUtils.Date;
nDiasAtraso := System.Math.Max(pagamento - vencimento, 0);
ShowMessage(nDiasAtraso.ToString);
end;Emerson Nascimento
Mais Posts
09/11/2021
Upmilk
var
vencimento, pagamento: TDate;
nDiasAtraso: extended;
begin
vencimento := Trunc(ClientDataSet1.FieldByName('vencimento').AsDateTime);
pagamento := Trunc(ClientDataSet1.FieldByName('pagamento').AsDateTime);
if pagamento = 0 then // se não há data de pagamento, assume a data atual
pagamento := System.SysUtils.Date;
nDiasAtraso := System.Math.Max(pagamento - vencimento, 0);
ShowMessage(nDiasAtraso.ToString);
end;Show! procurei muito por isso, eu queria mais uma ajuda sua para imprimir nDiasAtraso no FastReport! com esse código eu consegui usando um variável, mais mostrou mesma data para todos os registros.
sou iniciante, não sei como fazer, tenho um campo na tabela DIFE_DATA mais não esta preenchido!
09/11/2021
Emerson Nascimento
09/11/2021
Emerson Nascimento
12/11/2021
Upmilk
Boa noite
Não estou conseguindo, queria mais uma ajuda sua
estou com esse codigo
with FDQuery_Padrao do begin
FDQuery_Padrao.Close;
FDQuery1.SQL.Add('');
FDQuery1.Params.Clear;
FDQuery1.SQL.Clear;
FDQuery1.SQL.Add('SELECT DATA_CADASTRO_SAIDA, DATA_ENTRADA FROM MOVIMENTACAO ');
FDQuery1.SQL.Add('WHERE DATA_CADASTRO_SAIDA LIKE :PDATASAIDA');
FDQuery1.SQL.Add('WHERE DATA_ENTRADA LIKE :PDATAENTRADA');
FDQuery_Padrao.Open;
vencimento := Trunc(FDQuery1.ParamByName
('PDATASAIDA').AsDateTime);
pagamento := Trunc(FDQuery1.ParamByName('PDATAENTRADA')
.AsDateTime);
if pagamento = 0 then // se não há data de pagamento, assume a data atual
pagamento := System.SysUtils.Date;
nDiasAtraso := System.Math.Max(pagamento - vencimento, 0);
// -- Imprimir Variavel no FastReport-------------
pFrxReport.Variables['NovaData'] := (nDiasAtraso);
END;
end;
Clique aqui para fazer login e interagir na Comunidade :)
