.... 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]

Responder a