Notifications
Clear all

ANO É BISSEXTO?

6 Posts
5 Usuários
0 Reactions
2,451 Visualizações
(@rilust)
Posts: 387
Reputable 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.

Espero ter Ajudado. Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]

 
Postado : 31/10/2015 10:50 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 31/10/2015 5:21 pm
(@gilbertol)
Posts: 16
Active 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
Fernando Fernandes
(@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().

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/10/2016 11:09 am
DJunqueira
(@djunqueira)
Posts: 772
Prominent 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")

Se sua dúvida foi respondida marque o tópico como RESOLVIDO usando o botão com marca verde.

 
Postado : 28/10/2016 11:23 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/11/2016 7:21 am