Amigos estou fazendo desta forma, aparentemente está correto, mais
esta gerando o erro:
`5//0//980' is not a valid" Mesmo inserindo a data corretamente,
Date, preciso testar o campo de digitação de data,
Alguém poderia ajudar..
agradeço
procedure TfrmCadAluno.btnSalvarClick(Sender: TObject);
begin
//
if EditNome.Text = '' then
begin
Application.MessageBox(PAnsiChar('Por Favor Informe o nome do
Aluno!'),'Atenção',MB_OK+ MB_ICONINFORMATION);
EditNome.SetFocus;
exit;
end;
if EditDataNascimento.Text = '' then
begin
Application.MessageBox(PAnsiChar('Por Favor Informe a Data de
Nascimento do Aluno!'),'Atenção',MB_OK+ MB_ICONINFORMATION);
EditDataNascimento.SetFocus;
exit;
end;
//
try
//EditIdade recebe a idade - EditDataNascimento - digita a data
EditIdade.text := floattostr( int((date - strtodate
(EditDataNascimento.text)) / 365)) + ' Anos';
QAluno.Post;
btnNovo.Enabled:=True;
except
on e:exception do
begin
// caso ocorra algum erro mostra esta informação
MessageDlg('Erro abrindo Banco de Dados - QAluno.
Mensagem: '+e.Message, mtError, [mbOk],0);
exit;
end;
end;
end;
