Notifications
Clear all

ANO É BISSEXTO?

6 Posts
5 Usuários
0 Reactions
2,441 Visualizações
(@rilust)
Posts: 0
New Member
Topic starter
 

=SE(OU(MOD(B1;400)=0;E(MOD(B1;4)=0;MOD(B1;100)<>0));"É BISSEXTO";"NÃO E BISSEXTO")

onde b2 tem o ano a ser testado

Espero ter Ajudado.
Se a mensagem foi util Favor Clicar na mãozinha.

 
Postado : 31/10/2015 10:50 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

rilust,

Boa Noite!

Muito boa a dica! Parabéns.

Para aqueles que desejam utilizar via código VBA, segue aqui minha sugestão:

Public Function Bissexto(intAno As Integer) As Boolean
'
' verifica se um ano é bissexto
'
Bissexto = False

  If intAno Mod 4 = 0 Then
     If intAno Mod 100 = 0 Then
        If intAno Mod 400 = 0 Then
            Bissexto = True
        End If
     Else
           Bissexto = True
     End If
  End If

End Function
 
Postado : 31/10/2015 5:21 pm
(@gilbertol)
Posts: 0
New Member
 

Segundo estudos, há uma citação que diz:
Estabeleceu-se para o calendário gregoriano que seriam bissextos todos os anos múltiplos de 4, exceto se, sendo um ano múltiplo de 100 (1600, 1700 (…)), não fosse também múltiplo de 400 (1700 por exemplo). Na prática isso significa que há 97 anos bissextos a cada 400 anos.
Assim, o ano 2100 não será bissexto.

 
Postado : 29/01/2016 6:39 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Uma forma matricial que acabei de inverntar, com ano em B2:

=CONT.NÚM(LIN(INDIRETO(DATA(B2;1;1) & ":" & DATA(B2;12;31))))

Esta forma literalmente conta a quantidade de dias de um ano. Como se fosse a função LINS() que conta as linhas de um intervalo. Com se fosse a teoria da função inexistente: DIAS().

 
Postado : 28/10/2016 11:09 am
(@djunqueira)
Posts: 0
New Member
 

Nesse caso então melhor seria fazer a subtração:

=SE(DATA(A11+1;1;1)-DATA(A11;1;1)=365;"Ano normal";"Ano bissexto")

Tb poderia:

=SE(MÊS(DATA(A11;2;29))=3;"Ano normal";"Ano bissexto")
 
Postado : 28/10/2016 11:23 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Existem mil maneiras de preparar Neston... e para chegar num resultado qualquer, também :D

 
Postado : 01/11/2016 7:21 am