Não faça isso! Não sacrifique a performance do seu aplicativo! Resolva isso com uma instrução SQL
Const DiasAtrazados= 90; Var DataLimite: TDateTime; DataLimite:= Now - DiasAtrazados; ... Dentro da sua cláusula where coloque a seguinte condição DataVencimento < DataLimite Se a pesquisa retornar vazia, é sinal que não existem mensalidades com mais de 3 meses de atraso. Mas isso só vai funcionar se o período que quer medir é dias corridos à partir do vencimento. Se for por dias acumulados de todos os atrasos, a cláusula where acima não irá funcionar. -----Mensagem original----- De: Giovani - Terra [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 15 de fevereiro de 2005 14:47 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Mensalidades... Bom, primeiramente, o teu sistema provavelmente terá alguém para realizar a baixa desse pagamento. Então é fácil. Quando o sócio for pagar, a pessoa vai inserir os dados dentro do sistema, certo? Nesse momento, faça um loop dentro da sua base de dados, verificando se há um atraso de 3 meses de pagamento. Se houver, dê uma mensagem para a pessoa que estiver inserindo os dados. Por exemplo: A hora que for clicado em um botão (por exemplo), faça o seguinte: DataAtual := Data de hoje; (22/12/1999) //Datas fictícias Pegue o mês da data atual (use o decodedate), e diminua 3 (pois daí serão os 3 últimos meses). Então vai ficar no mes 9. Faça um loop, verificando se houve pagamento no mes 9, 10 e 11. Se os três estiverem em branco, é sinal que o cara está atrasado :) Acho que é mais ou menos isso que você tem que fazer... Qualquer coisa, dá um toque, ok? -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 14/02/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
