Aumente dois dias na data que voce informar ...
----- Original Message -----
From: RD Sistemas
To: Delphi BR
Sent: Tuesday, July 11, 2006 6:04 PM
Subject: [delphi-br] Aniversário
Salve nobres colegas. Utilizo esta query para verificar a data de aniversário
das pessoas cadastradas.
With qrAniBen do
Begin
Close;
Sql.Clear;
Sql.Add('Select * from SolicitanteCadastro');
Sql.Add('where Extract(Month From DataNascimento)=:Data');
Sql.Add('Order by NomeSolicitante');
ParamByName('Data').Value:=StrToInt(DataNas.Text);
Open;
end;
If qrAniBen.IsEmpty then ShowMessage('Nenhum registro encontrado')
Até ai tudo bem, a dúvida é a seguinte: como faço para que a data de
aniversário da pessoa me seja mostrada com dois dias de antecedência?
Gratos.
Ralp Alves Bezerra
[EMAIL PROTECTED]
MSN: [EMAIL PROTECTED]
---
avast! Antivirus: Mensagem livre de virus.
Virus Database (VPS): 0628-2, 11/07/2006
Testado em: 11/07/2006 18:04:31
avast! - copyright (c) 1988-2006 ALWIL Software.
[As partes desta mensagem que não continham texto foram removidas]
[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
