Fórum Calcular idade #319738
22/04/2006
0
Bom estou com uma duvida simples, coloquei um campo chamado Data de nascimento e quero fazer o calculo para eleme dar a idade quero
fazer algo do tipo - 22/04/2006 - 22/06/1982 = 23 anos, apenas colocar a data de nascimento e a dai ele calcula pelo dia atual e me da a idade em numeros inteiros. Acho que isto é possivel só não sei como :?:
Valeu pela ajuda !!!!!!!
Alecsandro Moura
Curtir tópico
+ 0Posts
22/04/2006
Edilcimar
Idade := RoundTo((Date() - Diadonascimento), -2) vai ter 23,45
Idade := Round(Date() - Diadonascimento) vai ter 23
Se quiser mudar a fração para meses, tem que fazer um processo de divisao por 12 e se quiser dias pega esta última fração e transforma em dias
Gostei + 0
22/04/2006
Dbergkamps10
var idade : integer; DataNasc,DataAtual : TDate ; begin DataNasc:=DataMod.ZTPacientepac_data_nasc.Value; DataAtual:=Now; Idade:=(trunc(DataAtual) - trunc(DataNasc)); IdadeCalculada:=StrtoInt(Formatfloat(´00´, Idade div 365)); end
Espero q funcione.
Gostei + 0
22/04/2006
Alecsandro Moura
var
idade:real;
Dtnasc:tdate;
begin
Dtnasc:=StrToDate(Enasc.Text);
idade:=Round((date-Dtnasc)/365);
eidade.Text:=FloatToStr(idade);
end;
Como posso resolver isto?
Valeu pela ajuda!
Gostei + 0
23/04/2006
José Henrique
function IdadeEmAnos(const DataNascimento : TDateTime) : integer;
var
AnoNasc , MesNasc, DiaNasc : Word;
Ano, Mes, Dia : Word;
intAno : integer;
begin
DecodeDate (DataNascimento, AnoNasc , MesNasc, DiaNasc);
DecodeDate (Now, Ano, Mes, Dia);
intAno := Trunc(Ano- AnoNasc);
if (MesNasc > Mes) or (Mes = MesNasc) and (Dia < DiaNasc) then
Dec(intAno);
Result := intAno;
end;
end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)