Calendario per input date, da condividere.

alfrimpa

VBA Expert
Supermoderatore
Expert
18 Dicembre 2015
24.416
1.845
66
Napoli
2019 Pro Plus
582
marconocciolini @marconocciolini

Per proporre propri lavori o altro c'è una sezione apposita "Lavori e giochi con Excel ed altri applicativi".

Ora sposto la discussione in quella sezione.
 
  • Like
Reactions: marconocciolini

marconocciolini

Nuovo utente
13 Settembre 2019
14
3
Viareggio
2010
1
La formula per verificare se anno è bisestile è sbagliata.
La formula dice che un anno è bisestile se divisibile per 4, e se inizio secolo
deve essere divisibile per 400, ergo è bisestile un inizio secolo ogni 4
Verissimo, ma considerato che il 2000, unico anno relativamente vicino ad oggi, e' eccezione all'eccezione, quindi bisestile anche se divisibile per 4, ho tralasciato.
Si dovrebbero usare veramente date molto lontane....
Ma la tua osservazione e' giusta ! E complimenti per l'analisi fatta !!!
 

Marco Lauria

Utente abituale
2 Gennaio 2017
628
30
55
Roma
www.artigianamaterassi.net
Excel 2016
51
Invece di usare la tua istruzione:

Visual Basic:
Bisestile = (NAnno MOD 4) = 0
usa:

Visual Basic:
Bisestile = SeBistesile(NAnno)
Visual Basic:
Public Function SeBisestile(dAnno As String) As Boolean
   SeBisestile = ((dAnno Mod 4) = 0 And (dAnno Mod 100)) Or (dAnno Mod 400) = 0
End Function
N.B. Questa funzione non è mia, la trovai su qualche Forum non ricordo dove

Se hai tempo e voglia, sempre in questa sezione, trovi il mio calendario un po' più
completo. Dagli un'occhiata
 

marconocciolini

Nuovo utente
13 Settembre 2019
14
3
Viareggio
2010
1
Sono bisestili gli anni divisibili per 4, ma non quelli divisibili per 100.
Poi tornano a essere bisestili anche gli anni divisibili per 400 annullando la regola della divisione per 100.
Non e' difficile fare la formula, magari la aggiungero'.
Pero' avendo messo dei limiti nel calendario costruito, non arrivavo mai a un anno con doppia eccezione.
In effetti costa poco aggiornarlo... appena ho un poco di tempo lo faro'.
Grazie 1000
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!