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. leap years), YearsBetween returns an approximation based on an assumption of 365.25 days per year. Unlike the YearsBetween function, which does not report fractional years, YearSpan reports incomplete years as a fraction of a 365.25-day year. (*** FIM DA TRADUÇÃO ***) -----Mensagem original----- De: Info Desenvolvimento [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 9 de março de 2005 16:28 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] IDADE ATUAL ESTOU CRIANDO UMA FUNÇÃO PARA EXTRAIR A IDADE DE UMA PESSOA: ONDE ESTOU ERRANDO? procedure IDADEATUAL(Date: TDateTime; var Year, Month, Day: Word); var DATA: TDateTime; ANO_ATUAL, MES_ATUAL, DIA_ATUAL, ANO_DN, MES_DN, DIA_DN: Word; begin DATA:= Now; DecodeDate(DATA, ANO_ATUAL, MES_ATUAL, DIA_ATUAL, ANO_DN, MES_DN, DIA_DN); BEGIN IDADE:= ANO_ATUAL - ANO_DN IF MES_ATUAL < MES_DN THEN IDADE:= IDADE - 1 IF MES_ATUAL = MES_DN THEN IDADE:= IDADE -1 IF DIA_ATUAL < DIA_DN THEN IDADE:= IDADE - 1 END end; Mensagem: [Error] URel_FxEtaria.pas(143): Too many actual parameters [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 09/03/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 09/03/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
