Buscar

Excluir arquivo entre 2 datas

Código

Tabela.Filter := '(Vencimento >=' +QuotEdStr(MEPeriodo1.Text) +
                        ') and (Vencimento <='+QuotEdStr(MEPeriodo2.Text)+')';
Tabela.First;
While Not Tabela.Eof do
   begin
      If (tabelaVencimento.AsDateTime >= StrToDate(MEPeriodo1.Text)) and tabelaVencimento.AsDateTime <= StrToDate(MEPeriodo2.Text)) then
       Tabela.Delete;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Data e hora
Adicionada dia: 04/05/07
Por: Luiz Ribeiro De Morais Filho
Visualizada: 2340 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009