.... AsDateTime <= StrToDate('01/01/2008') Rodinei Amorim Programador Delphi [EMAIL PROTECTED] (11) 8208-9503 - (11) 2024-2723
From: marcossrobertoo Sent: Thursday, October 02, 2008 4:33 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Ajuda 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]