pcst Postado Agosto 5, 2008 Denunciar Share Postado Agosto 5, 2008 pessoal...tenho um campo em dias em atrazo e data inicial e final....como faço para colocar dentro de uma tabela paradoxdipodiasematraso=datainicial-datafinalcomo faço este calculo e colocar no campo dbeditobrigado a todos Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Duduh_Capixaba Postado Agosto 5, 2008 Denunciar Share Postado Agosto 5, 2008 (editado) 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 pcst Postado Agosto 5, 2008 Autor Denunciar Share Postado Agosto 5, 2008 vixi..deu erro este comando de calculoError Undeclared indentiffier 'DaysBetWeen' Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Duduh_Capixaba Postado Agosto 5, 2008 Denunciar Share Postado Agosto 5, 2008 Opa, desculpa cara...esqueci de mencionar que você deve declarar o "DateUtils" no "uses" do formulário. Pronto, isso resolve. Abraço! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 pcst Postado Agosto 5, 2008 Autor Denunciar Share Postado Agosto 5, 2008 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 atrazoprocedure 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Duduh_Capixaba Postado Agosto 5, 2008 Denunciar Share Postado Agosto 5, 2008 (editado) 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 pcst Postado Agosto 5, 2008 Autor Denunciar Share Postado Agosto 5, 2008 é isso aiMuito Obrigado Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
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
Link para o comentário
Compartilhar em outros sites
6 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.