Mas a que se refere este QUOTEDSTR SERIA SQL?
_____ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Enviada em: sexta-feira, 11 de agosto de 2006 10:00 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] LISTAR ANIVERSARIANTES DO MES Por q o datasource ???? Tente assim. var dia,mes,ano:word; begin DecodeDate(Date, Ano, Mes, Dia); Dia := 1; Table1.Filtered := False; Table1.Filter := 'Campo >= ' + QuotedStr(formatdatetime('dd/mm/yyyy', EncodeDate(dia, Mes, ano))) + ' and ' + 'Campo <= ' + QuotedStr(FormatDateTime('dd/mm/yyyy', IncMonth(EncodeDate(Ano, Mes,Dia), 1) - 1)); //Oformato da data tem q ser o mesmo da maq. Table1.Filtered := True; end; Eduardo Lu Kr escreveu: > A Parte que destaquei em vermelho, aparece com o cursor piscando em > frente ao formatdatetime, poderiam me ajudar. > O Que quero: quando clicar em um button, ele mostre em um dbgrid > somente os aniversariantes do mes atual. P.S. Estou usando paradox. > componentes no form TABLE1 e DATASOURCE1. NOME DA TABELA cadintII. > ABAIXO O CÓDIGO: SE alguém puder corrigir, grato > > var > dia,mes,ano:word; > begin > DecodeDate(Date, Ano, Mes, Dia); > Dia := 1; > Table1.Filtered := False; > Table1.Filter := 'Campo >= ' + > datasource1(formatdatetime('dd/mm/yyyy', EncodeDate(dia, Mes, ano))) + ' > and ' + > 'Campo <= ' + > datasource1(FormatDateTime('dd/mm/yyyy', IncMonth(EncodeDate(Ano, Mes, > Dia), 1) - 1)); > //Oformato da data tem q ser o mesmo da maq. > Table1.Filtered := True; > > END > > > --------------------------------- > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu > celular. Registre seu aparelho agora! > > [As partes desta mensagem que não continham texto foram removidas] > > > > _______________________________________________________ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ __________ NOD32 1.1678 (20060725) Information __________ This message was checked by NOD32 antivirus system. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] -- <<<<< 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] 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