Dias em atrazo...data

[pcst]

pessoal...tenho um campo em dias em atrazo e data inicial e final....

como faço para colocar dentro de uma tabela paradox

dipo

diasematraso=datainicial-datafinal

como faço este calculo e colocar no campo dbedit

obrigado a todos

[Duduh_Capixaba]

Sobre a questão de calcular os dias em atraso, tente o comando "DaysBetween", exemplo:

procedure TForm1.Button1Click(Sender: TObject);
var
  Dias: Integer;
  DtVenc, DtAtual: TDate;

begin
  DtVenc  := DateTimePicker1.Date;
  DtAtual := DateTimePicker2.Date;
  Dias    := DaysBetween(DtAtual, DtVenc);

  if DtVenc < DtAtual then
    if Dias = 0 then
      ShowMessage('Prestação vence hoje.')
    else
      ShowMessage('Prestação está vencida em ' + IntToStr(Dias) + ' dia(s).')
  else
    ShowMessage('Prestação está em dia.')
end;

Sobre gravar em uma tabela Paradox, você pode usar os comandos "Table.Insert" (inserir) ou "Table.Edit" (editar) ou "Table.Append" (acrescentar) com um "Table.Post" no final (estou levando em consideração que você está usando uma tabela).

Editado Agosto 5, 2008 por Duduh_Capixaba

[pcst]

vixi..deu erro este comando de calculo

Error Undeclared indentiffier 'DaysBetWeen'

[Duduh_Capixaba]

Opa, desculpa cara...esqueci de mencionar que você deve declarar o "DateUtils" no "uses" do formulário. Pronto, isso resolve. Abraço!

[pcst]

cara..o codigo deu certo ..mas não sei por que o calculo de dias esta errado...

veja o codigo que fiz para o calculo..claro que estou pegando os dados da Data inicial da divida para calcular os dias em atrazo

procedure TfrmAcordos.FormCreate(Sender: TObject);

var

Dias:Integer;

DtInic,DtAtual:TDate;

begin

DataInicio.Date:=tblTitulos.fieldbyname('DataInicio').AsDateTime;

DtAtual := DataFim.Date;

DtInic:=DataInicio.Date;

Dias := DaysBetWeen(DtAtual,DtInic);

tblTitulos.Edit;

tblTitulos.fieldbyname('DiasAtrazo').AsInteger:=Dias;

DadaAcordo.caption:=datetostr(date);

txtdataAcordo.Text:=datetostr(date);

end;

desde já obrigado

[Duduh_Capixaba]

O seu código funcionou direitinho aqui. A única coisa que mudei foi essa linha:

de:

DataInicio.Date:=tblTitulos.fieldbyname('DataInicio').AsDateTime;

para:

DataInicio.Date:=tblTitulos.FieldValues['DataInicio'];

ou:

DataInicio.Date:=tblTitulos.FieldByName('DataInicio').Value;

Tente fazer assim pra ver se funciona. Abraço!

Editado Agosto 5, 2008 por Duduh_Capixaba

[pcst]

é isso ai

Muito Obrigado