RES: [delphi-br] idade atual

Se vc usa o Delphi 7, teste esta minha sugestão: { Precisa da unit DateUtils. Para esta função, vc passa a data de nascimento da pessoa e uma data de referência. Se não passar nada na data de referência, assume data atual. } function CurrentAge(BirthDate: TDateTime; ReferenceDate: TDateTim

RES: [delphi-br] IDADE ATUAL

Se vc usa Delphi 6 ou 7, use a função HourSpan() da unit DateUtils. (*** INÍCIO DA TRADUÇÃO ***) function YearSpan(const ANow, AThen: TDateTime): Double; Description: Call YearSpan to obtain the difference, in years, between two TDateTime values. Because years are not all the same length (e.g.