O Delphi já tem uma função pra isso, com código fonte disponível. Chama-se IsLeapYear(). Pesquisem a respeito. []s
-----Mensagem original----- De: Alisson [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 1 de outubro de 2004 15:42 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] daniel; calculo para ano bissesto function Bissexto(Ano: Integer): Boolean; begin Result := (Ano mod 4 = 0) and ((Ano mod 100 <> 0) or (Ano mod 400 = 0)); end; ----- Original Message ----- From: danielromabr To: [EMAIL PROTECTED] Sent: Friday, October 01, 2004 9:47 AM Subject: [delphi-br] daniel; calculo para ano bissesto ola estou estudando no 1 ano de sistemas de informacao na umc e estou estudando pascal quero saber como se calcula se um ano é bissexto ou nao: tem a ver com o numero de dias do ano?cmo é a formula? obrigado -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: Assine Claudia em 5x de R$ 18,96 Assine Info em 5x de R$ 21,48 Mais... Capricho Manequim Boa Forma Nova Exame ------------------------------------------------------------------------------ Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 -- <<<<< 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