Data de Nascimento Maior que Data Base
14/01/2016
0
procedure Tfrm_cadastro.db_edit_nascimentoExit(Sender: TObject);
var I,F:tdate;
begin
if dm_conexoes.tbl_cadastro.FieldByName('data_nascimento').AsDateTime > 15/07/2015
then
begin
ShowMessage('Data inválida. A data de nascimento não pode ser maior que 15/07/2015!');
db_edit_nascimento.Clear;
db_edit_nascimento.SetFocus;
exit;
end
else
begin
f:=(StrToDate('31/03/2016'));
i:=(StrToDate(db_edit_nascimento.Text));
lbl_idade.Caption:= CalculaIdade(f,i);
end;
end;
Wilter Porto
Posts
15/01/2016
Cauê Nishijima
15/01/2016
Wilter Porto
if dm_conexoes.tbl_cadastro.FieldByName('data_nascimento').AsDateTime > StrToDate('15/07/2015') then
begin
ShowMessage('Data inválida. A data de nascimento não pode ser maior que 15/07/2015!');
db_edit_nascimento.Clear;
db_edit_nascimento.SetFocus;
exit;
end
else
begin
DataF:=(StrToDate('31/03/2016'));
DataI:=(StrToDate(db_edit_nascimento.Text));
lbl_idade.Caption:= CalculaIdade(DataI,DataF);
end;
15/01/2016
Ronaldo Filho
Dá uma olhada nesse exemplo, coloquei a mensagem errada na tela, no caso a data tem que ser menos que a da lista, nele eu também estou usando o desenvolvimento do acesso à dados isolando o tratamento dos dados da conexão da base. Essa técnica deixa a velocidade de acesso bem mais rápida e garante segurança durante o manuseio dos dados.
[url:descricao=Teste de data usando ClientDataSet com configuração básica]https://drive.google.com/open?id=0By4hmKE2BJyzek8wSF8ydE1Pdzg[/url]
15/01/2016
Ronaldo Filho
Projeto teste - Delphi 7
15/01/2016
Ronaldo Filho
15/01/2016
Raimundo Pereira
Tópico Resolvido ?
Clique aqui para fazer login e interagir na Comunidade :)