Come calcolare la data di Pasqua in Excel?

Come tutti sappiamo, la Pasqua è sempre la prima domenica dopo il primo plenilunio ecclesiastico che si verifica il 21 marzo o dopo, quindi la data della Pasqua può variare ogni anno, come mostrato nello screenshot seguente. Per ottenere la data specifica della Pasqua per un determinato anno, questo articolo potrebbe esserti utile.

Calcola la data di Pasqua di un anno dato con una formula

Calcola la data di Pasqua di un anno dato con una Funzione Definita dall'Utente

Calcola la data di Pasqua di un anno dato con una formula

Per ottenere la data di Pasqua di un anno specifico, la seguente formula può aiutarti, procedi come segue:

1. Inserisci questa formula: =FLOOR("5/"&GIORNO(MINUTO(A2/38)/2+56)&"/"&A2,7)-34 in una cella vuota accanto all'anno dato, ad esempio B2, vedi screenshot:

2. Quindi trascina la maniglia di riempimento verso il basso fino alle celle in cui desideri calcolare la data di Pasqua della data specificata e vedrai numeri a cinque cifre visualizzati nelle celle, vedi screenshot:

3. Successivamente, dovresti formattare i numeri nel formato data:

(1.) Seleziona i numeri a cinque cifre, fai clic con il tasto destro del mouse e scegli Formato celle dal menu contestuale;

(2.) Nella finestra di dialogo Formato celle apparsa, fai clic sulla scheda Numero, seleziona Data dal riquadro Categoria, quindi scegli il formato data che preferisci dall'elenco a destra, vedi screenshot:

4. Dopodiché, i numeri saranno formattati nel formato data di cui hai bisogno e potrai ottenere la data di Pasqua dell'anno specificato, vedi screenshot:

Calcola la data di Pasqua di un anno dato con una Funzione Definita dall'Utente

La seguente Funzione Definita dall'Utente può anche aiutarti a calcolare la data di Pasqua di un anno specifico.

1. Tieni premuti i tasti ALT + F11, quindi si aprirà la finestra Microsoft Visual Basic per Applications.

2. Clicca su Inserisci > Modulo e incolla il seguente codice nella finestra Modulo.

Codice VBA: Calcola la data di Pasqua di un anno dato:

Public Function EasterDate(Yr As Integer) As Date
'Updateby Extendoffice 20160530
  Dim x As Integer
  x = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
  EasterDate = DateSerial(Yr, 3, 1) + x + (x > 48) + 6 - ((Yr + Yr \ 4 + _
      x + (x > 48) + 1) Mod 7)
End Function

3. Salva e chiudi questo codice, torna al foglio di lavoro e inserisci questa formula: =easterdate(A2) in una cella vuota accanto ai tuoi dati corrispondenti, quindi trascina la maniglia di riempimento verso il basso fino alle celle in cui desideri applicare questa formula, otterrai alcuni numeri a cinque cifre, vedi screenshot:

5. Dopodiché, dovresti cambiare i numeri nel formato data di cui hai bisogno. Consulta il passaggio 3 del metodo precedente per formattarli in data.