Início > Funções > Descobrindo Anos Bissextos

Descobrindo Anos Bissextos

Este código pode lhe ser útil caso você esteja trabalhando com datas, calendários ou algo do tipo.

Se você quer saber se um determinado ano é bissexto ou não, esta função lhe dará precisamente a resposta.

Basta chamá-la passando o ano por parâmetro, assim:

isBissexto([ANO])

O retorno dessa função é um boolean (0 ou 1), indicando verdadeiro para anos bissextos.

A função:

sub isBissexto(){
          my $ano = $_[0];
          if ($ano%400==0){
            return 1;
          }elsif ($ano%4==0 && $ano%100!=0){
            return 1;
          }else{
            return 0;
          }
}

Veja o Código Completo
(func-isbissexto.pl)

#!/usr/bin/perl

print &isBissexto(1996);
# Mostrará na tela '1', pois 1996 é um ano bissexto.

sub isBissexto(){
        my $ano = $_[0];

        if ($ano%400==0){
            return 1;
        }elsif ($ano%4==0 && $ano%100!=0){
            return 1;
        }else{
            return 0;
        }
}
  1. Nenhum comentário ainda.
  1. No trackbacks yet.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: