Gustavo .... Aparentemente seria só substituir o message pelo seu DBedit, mas eu penso que isso daria errado gravar a idade em um campo de dados, quando passar um certo tempo ja não estara correto os dados (idade), o correto seria fazer que calcula-se essa idade e jogaria em uma variavel, se vc por pra calcular a idade, tipo toda vez que vc abrir o sistema, imagine um sistema rodando em rede com 20 micros, com 10000 pacientes/clientes, toda vez que uma maquina entra no sistema tem que fazer esse calculo, dar um while na tabela alterando e gravando, é de matar qualquer rede !!!!!! Eu tinha um sistema para imprimir cartão de aniversariantes do municipio que eu colocava uma Label só pra mostrar a idade !!!!!!
Espero ter ajudado !!!! Luciano Angelini gustavoandref escreveu: > > > Luciano, > fico muito grato pela sua ajuda, mas estou precisando pegar esse valor > e colocar em um outro dbedit, como faço isso? > um abraço, > > --- Em delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.com.br>, Luciano Angelini > <luciano.angel...@...> escreveu > > > > > > Boa Tarde Gustavo ..... > > > > > > Eu uso assim .... > > > > > > function TForm1.CalcAnos(const Data1, Data2: TDateTime): integer; > > var > > D1, M1, A1, > > D2, M2, A2: Word; > > begin > > DecodeDate(Data1, A1, M1, D1); > > DecodeDate(Data2, A2, M2, D2); > > > > Result := A2 - A1; > > > > if (M1 > M2) or ((M1 = M2) and (D1 > D2)) then > > Dec(Result); > > end; > > > > procedure TForm1.Button1Click(Sender: TObject); > > var > > DataNasc: TDateTime; > > begin > > DataNasc := StrToDate(MaskEdit1.Text); > > ShowMessage(IntToStr(CalcAnos(DataNasc, Date)) + ' anos'); > > > > end; > > > > Espero ter ajudado !!!!!1 > > > > > > Luciano Angelini > > Prefeitura de Lupionópolis-Pr > > > > gustavoandref escreveu: > > > > > > > > > Pessoal, > > > estou precisando que na tela de cadastro de pacientes ao digitar a > > > data de nascimento apareça em outro campo a idade do paciente (isso é > > > necessário para definir qual especialidade médica ele será > direcionado). > > > > > > sei que é possível fazer via eventos do delphi, mas não sei como > > > fazer. se alguém tiver a solução por favor poste aqui, > > > > > > um grande abraço, > > > > > > Gustavo Freitas > > > Hospital Geral de Linhares > > > > > > > > > >
