Apenas para colocar o texto entre plics !!! De uma olhada no help
Eduardo LuKr escreveu: > 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] > > > > _______________________________________________________ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com -- <<<<< 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