Marcos, Voce está pegando os registros que são anteriores a 01.01.2008. Troque o sinal < por >
Quer uma sugestão melhor? Faça isso com SQL: Select count(*) from tabela where CITM=:editCodigo and DRCB>'01/01/2008' Depois alimente o parametro editCodigo com o seu editCodigo.text e dê um open na query. Muito mais fácil e rápido do que você varrer toda a tabela como está fazendo. [] Andrei 2008/10/2 marcossrobertoo <[EMAIL PROTECTED]> > Estou desenvolvendo um sistema e dentro desse sistema > tenho uma form > onde eu digito tal item e ele me busca a quantidade que ele achou > desse item do inicio desse ano 01/01/2008 ate o exato momento. > > Cara estou usando essa sintaxe. > > while not dmdbx.ADOConsMovimento.Eof do > begin > if (dmdbx.ADOConsMovimentoCITM.Text = > EditCodigo.Text) and (dmdbx.ADOConsMovimentoDRCB.AsDateTime < > 01012008) then > begin > contcon1 := contcon1 + 1; > end; > end; > Editmensf01.Text := IntToStr(contcon1); > > O resultado esta saindo como zero(0), mas eu tenho informações da > tabela. > [As partes desta mensagem que não continham texto foram removidas]