Função para validar se o motorista é maior de idade

Declarar a função na area private
function Tfrm.ValidarMaior18Anos(strData: String): Boolean;

————————————————————————-

function Tfrm.ValidarMaior18Anos(strData: String): Boolean;

var
bolRetorno: Boolean;
DataRetorno: TDate;
MesAtual, MesNasc, DiaAtual, DiaNasc, AnoAtual, AnoNasc: Word;
begin
try
DataRetorno:= strtodate(strData);
DecodeDate(dataRetorno, AnoNasc, MesNasc, DiaNasc);
DecodeDate(Date, AnoAtual, MesAtual, DiaAtual);
if ((AnoAtual – AnoNasc) < 18)  then //se o ano for menor que 18
begin
ShowMessage(‘O Motorista é Menor de Idade’);
bolRetorno:= false;
end else if ((AnoAtual – AnoNasc) = 18)  then
begin
if (MesNasc > MesAtual) then
begin
ShowMessage(‘O Motorista é Menor de Idade’);
bolRetorno:= false;
end else if MesNasc = MesAtual then
begin
if DiaNasc > DiaAtual then
begin
ShowMessage(‘O Motorista é Menor de Idade’);
bolRetorno:= false;
end else
bolRetorno:= true;
end else
bolRetorno:= true;
end else
bolRetorno:= true;

except
on E: Exception do
begin
bolRetorno:= false;
showmessage(‘A data não está no formato correto, verefique o erro gerado: ‘ + #13 + E.Message);
end;
end;
result:= bolResultado
end;

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s