KutoolsforOffice — Uma solução, cinco ferramentas poderosas.Fazer mais com menos esforço.

Como verificar se um ano é bissexto no Excel?

AutorXiaoyang Data de Modificação

Sabe como determinar se um ano é bissexto? No Excel, não existe um método direto para verificar isso, mas pode criar uma função definida pelo utilizador ou utilizar uma fórmula para resolver o problema.

Verifique se um ano é um Ano Bissexto com fórmula

Verifique se um ano é um Ano Bissexto com Função Definida pelo Utilizador


seta azul direita balão Verifique se um ano é um Ano Bissexto com fórmula

Suponha que tenha uma lista de anos na sua folha de cálculo; a fórmula seguinte pode ajudá-lo a identificar facilmente se um determinado ano é bissexto ou não. Siga estes passos:

1. Além das células com anos, introduza esta fórmula numa célula vazia:

=IF(OR(MOD(A2,400)=0,AND(MOD(A2,4)=0,MOD(A2,100)<>0)),«[[PH_8]]», «NOT a [[PH_9]]»), ()A2contém o ano ao qual pretende aplicar esta fórmula; pode alterá-la conforme necessário) veja a imagem:

doc-check-if-leap-year-1

2. Em seguida, arraste a alça de preenchimento até ao intervalo onde pretende aplicar esta fórmula e todos os anos serão automaticamente verificados quanto à sua condição de ano bissexto ou não.

doc-check-if-leap-year-2

Nota: Se a célula correspondente estiver em branco, esta fórmula também indicará «Ano Bissexto».


seta azul direita balão Verifique se um ano é um Ano Bissexto com Função Definida pelo Utilizador

Também pode criar uma Função Definida pelo Utilizador para verificar se o ano é um Ano Bissexto; proceda da seguinte forma:

1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o código seguinte na Janela do Módulo.

Código VBA: verificar se um ano é um Ano Bissexto

Function IsLeapYear(pYear As Integer) As Boolean
'Update 20140623
If (pYear Mod 4) = 0 And (pYear Mod 100) <> 0 Or ((pYear Mod 400) = 0) Then
   IsLeapYear = True
Else
   IsLeapYear = False
End If
End Function

3.Depois, Salvar e fechar este código, regresse à sua folha de cálculo e introduza esta fórmula: =isleapyear(A2), veja a imagem:

doc-check-if-leap-year-3

4. Em seguida, arraste a alça de preenchimento até às células onde pretende aplicar esta fórmula e todos os anos serão verificados: o valor FALSO indica que não é um ano bissexto e o valor VERDADEIRO indica um ano bissexto. Veja a imagem:

doc-check-if-leap-year-4


Artigo relacionado:

Encontre o mínimo múltiplo comum ou o máximo divisor comum no Excel

As Melhores Ferramentas de Produtividade para o Office

🤖KUTOOLS AI Assistente: Revolucione o Análise de Dados com base em:Execução Inteligente   |  Gerar Código|  Criar fórmulas personalizadas  |  Analisar Dados e Gerar Gráficos|  Invocar Funções Aprimoradas
Funcionalidades Populares:Localizar, Destacar ou Marcar Duplicatas   |  Excluir linhas em branco   |  Combinar Colunas ou Células sem Perder Dados   |   Arredondamento sem usar fórmula...
Super PROC:VLookup com Múltiplos Critérios  |  VLookup com Múltiplos Valores  |   VLookup em Múltiplas Folhas   |   Correspondência Fuzzy....
Lista Suspensa Avançada:Criar Rapidamente Lista de Seleção   |  Lista de Seleção Dependente   |  Lista de Seleção com Múltipla Escolha....
Gestor de Colunas:Adicionar um Número Específico de Colunas|Mover Colunas|Alternar Estado de Visibilidade de Colunas Ocultas|Comparar Intervalos e Colunas...
Funcionalidades em Destaque:Grade de foco   |  Visualização de Design   |Barra de fórmulas aprimorada   | Gestor de Pastas de Trabalho e Folhas   |  Biblioteca de Recursos(Texto Automático)|  Seleção de Data   |  Consolidar Planilhas  |  Encriptar/Descriptografar Células   | Enviar Emails por Lista   |  Super Filtro   |   Filtro Especial(Filtrar Células com Fonte em Negrito/itálico/rasurado...) ...
Principais Conjuntos de Ferramentas 15:12 Ferramentasde Texto(Adicionar Texto,Excluir Caracteres Específicos, ...)|   50+Tiposde Gráfico(Gráfico de Gantt, ...)|   40+ Fórmulas Práticas(Calcular a idade com base na data de nascimento, ...)|   19 Ferramentasde Inserção(Inserir QR Code,Inserir Imagem a Partir do Caminho, ...)|   12 Ferramentasde Conversão(Converter em Palavras,Conversão de moeda, ...)|   7 Ferramentasde Mesclar e Dividir(Mesclar Linhas Avançado,Dividir Células, ...)|... e muito mais
Utilize o Kutools na sua língua preferida – suporta inglês, espanhol, alemão, francês, chinês e mais 40+ idiomas!

Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...


Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil

  • Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
  • Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!

Todos os suplementos Kutools — num único instalador.

Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.

ExcelWordOutlookTabsPowerPoint
  • Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
  • Um instalador, uma licença— configuração em minutos (pronto para MSI)
  • Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
  • Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
  • Melhor relação qualidade-preço— poupe face à compra individual dos suplementos