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 <*> 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