Ver se a pessoa é maior de 18 anos de idade comparando data.
Eu queria saber como faço para comparar datas e ver se a pessoa é maior de 18 anos.
Eu tenho a data de nascimento na tabela Cliebtes no campo Data_Nasc.
Eu uso Paradox e o campo é Date (D).
Eu tenho a data de nascimento na tabela Cliebtes no campo Data_Nasc.
Eu uso Paradox e o campo é Date (D).
Marcelototini
Curtidas 0
Melhor post
Carlosrm
26/08/2003
marcelototini,
aproveitando uma dica que veio (acho) do 4_olho (obrigado!), veja esta sugestão:
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
if ((now - ClientesData_Nasc.AsDateTime) >= 365.25 * 16) then
showmessage(´Maior de 16 anos.´)
else
showmessage(´Ainda não completou 16 anos !´);
end;
Obs: 365 é o numero de dias que tem uma ano.
.25 equivale a 1/4 de dia. A cada 4 anos, tem-se o ano bissexto (um
dia a mais no ano).
16 (ou qualquer outro número) é a idade limite que vc quer testar.
Espero ter sido útil. carlosrm
aproveitando uma dica que veio (acho) do 4_olho (obrigado!), veja esta sugestão:
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
if ((now - ClientesData_Nasc.AsDateTime) >= 365.25 * 16) then
showmessage(´Maior de 16 anos.´)
else
showmessage(´Ainda não completou 16 anos !´);
end;
Obs: 365 é o numero de dias que tem uma ano.
.25 equivale a 1/4 de dia. A cada 4 anos, tem-se o ano bissexto (um
dia a mais no ano).
16 (ou qualquer outro número) é a idade limite que vc quer testar.
Espero ter sido útil. carlosrm
GOSTEI 1