Ir para conteúdo
Fórum Script Brasil
  • 0

Dias em atrazo...data


pcst

Pergunta

6 respostass a esta questão

Posts Recomendados

  • 0

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 por Duduh_Capixaba
Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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 por Duduh_Capixaba
Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...