Eliminare errore giorno di Pasqua

[Cedamido]

Nella cella A2 digito l'anno nella cella B2 =datadiPasqua(A2) quando cancello l'anno cella A2 nella cella B2 esce l'errore #VALORE
come fare? Grazie

[Ricky0185]

Cella B2==ARROTONDA.DIFETTO(DATA($A$2;5;GIORNO(MINUTO($A$2/38)/2+56));7)-34
A2 formato Generale e B2 Data
Ciao

[Cedamido]

Grazie per la risposta,questa formula non funziona, se cancello l'anno cella A2 nella cella B2 porta una data strana del 1900. Ho messo la spunta su 1904 ma non funziona esce #num.

[Anthony47]

Se cancelli A2 allora otterrai la data della Pasqua del 1900, 15-apr-1900
Idem se in A2 scrivi 1900; infatti le date in Excel hanno come base l'anno 1900 (o 1904, ma la formula funziona correttamente solo col sistema 1900)

Se invece vuoi usare la "funzione datadiPasqua" allora devi allegarci il suo codice vba.

Ciao

[Cedamido]

Scusa, da dove lo prendo questo codice vba. nel file c'è questo

Codice: Seleziona tutto

Function IndiceDove(Dato, Vettore) As Integer
  Dim i As Integer
  For i = UBound(Vettore) To 0 Step -1
    If Dato >= Vettore(i) Then Exit For
  Next
  IndiceDove = i
End Function

Codice: Seleziona tutto

Function DataDiPasqua(Anno As Integer) As Date
  Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer
  Dim Anni, M, Q, ind As Integer
  Anni = Array(1583, 1700, 1800, 1900, 2100, 2200, 2300, 2400)
  M = Array(22, 23, 23, 24, 24, 25, 26, 25)
  Q = Array(2, 3, 4, 5, 6, 0, 1, 1)
  ind = IndiceDove(Anno, Anni)
  a = Anno Mod 19
  b = Anno Mod 4
  c = Anno Mod 7
  d = (19 * a + M(ind)) Mod 30
  e = (2 * b + 4 * c + 6 * d + Q(ind)) Mod 7

  Dim didimar As Integer, MesePasq As Integer, GiorPasq As Integer
  didimar = 22 + d + e
  If didimar > 31 Then
    MesePasq = 4
    GiorPasq = didimar - 31
  Else
    MesePasq = 3
    GiorPasq = didimar
  End If
  DataDiPasqua = DateSerial(Anno, MesePasq, GiorPasq)
End Function

[Ricky0185]

Metti questo codice/funzione pubblica in un modulo del workbook

Codice: Seleziona tutto

Public Function Pasqua(ByVal anno As Integer) As Date
   Dim a%, b%, c%, p%, q%, r%
   a = anno% Mod 19: b = anno% \ 100: c = anno% Mod 100
   p = (19 * a + b - (b \ 4) - ((b - ((b + 8) \ 25) + 1) \ 3) + 15) Mod 30
   q = (32 + 2 * ((b Mod 4) + (c \ 4)) - p - (c Mod 4)) Mod 7
   r = (p + q - 7 * ((a + 11 * p + 22 * q) \ 451) + 114)
   Pasqua = DateSerial(anno%, r \ 31, (r Mod 31) + 1)
End Function


poi in qualunque cella a piacere scrivi
=Pasqua(anno che vuoi) cioè per il 2020 =Pasqua(2020)

[Anthony47]

(se usate i tag per incapsulare il codice allora non rischiate di vedere le faccine)

Ognuna delle due funzioni "funziona" regolarmente se gli si passa un Anno ragionevole
La funzione di Ricky accetta anche gli anni in formato "abbreviati" (da 50 a 99 si intendono 19xx; da 0 a 49 si intendono 20xx)

Se nella DataDiPasqua non vuoi avere come risultato un errore se l'anno e' sballato (minore di 1900) allora modifica come segue:

Codice: Seleziona tutto

Function DataDiPasqua(Anno As Integer) As Variant       'MMM Riga Modificata
If Anno < 1900 Then DataDiPasqua = "": Exit Function    '+++ Riga AGGIUNTA
'seguono le altre istruzioni:
  Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer


Ciao a tutti

[Ricky0185]

(se usate i tag per incapsulare il codice allora non rischiate di vedere le faccine)

Denkiù
Mattiniero neh?
Ciao

[wallace&gromit]

OpenOffice è più avanti, esiste la funzione specifica integrata per il calcolo della pasqua.

[Ricky0185]

Grande OT
Ti rispondo perchè con l'aria che tira non mi sconquinfera stare a 17 post.
Stiamo parlando di office 2003 e fra le varie proposte peraltro ci sono anche 2 funzioni, vabbè devi riempire la cella per attivarle, circa 2 secondi, più la quota parte per inserire la funzione nel VBE, facciamo che la userai fino al (formula considerando l'aspettativa di vita uomo=81 anni) =(81 - Propria età) per cui la quota parte è =10 secondi (tempo per inserire la funzione)/(81-Propria età) che per me da 2,2 decimi. Quindi per conoscere il giorno in cui cade la Pasqua fino al 2066 io impiego circa 2"2d2c.
Ora dimmi quanto impieghi tu col tuo OO. Fra l'altro l'ho disinstallato perchè con le macro è una tregenda.

[Anthony47]

Immagino che nel rapporto prezzo/prestazioni OpenOffice sia davanti a Office, se licenza per uso personale e non business; questo perche' OO se non sbaglio e' gratuito

Poi se Office ha ancora un buon mercato devo dedurre che qualche vantaggio ce l'ha....

COMUNQUE, visto che la data della Pasqua vi intriga, vi elenco altre formule idonee, testate con date comprese tra 1900 e 2200:

Codice: Seleziona tutto

=ARROTONDA.DIFETTO(GIORNO(MINUTO(A1/38)/2+56)&" / 5 / "&A1;7)-34

By Norbert Hetterich

Codice: Seleziona tutto

=VALUTA(("4/"&A1)/7+RESTO(19*RESTO(A1;19)-7;30)*14%;)*7-6

By Thomas Jansen

Codice: Seleziona tutto

=ARROTONDA.DIFETTO(DATA(A1;3;RESTO(18,37*RESTO(A1;19)-6;29));7)+29

By Roger Friederich

In aggiunta a quella presentata da Ricky:

Codice: Seleziona tutto

=ARROTONDA.DIFETTO(DATA(A1;5;GIORNO(MINUTO(A1/38)/2+56));7)-34

La Function Pasqua restituisce la data sbagliata per l'anno 2079

La Function DataDiPasqua sbaglia sugli anni 1954, 1981,2049, 2076, 2079

Tutte calcolano la Pasqua per le chiese dell'occidente (non per gli Ortodossi, quindi)

Se siete troppo interessati, potete consultare il sito della Astronomical Society of South Australia, che descrive la teoria dei calcoli (non di queste formule Excel), e presenta anche una routine Basic, facilmente convertibile in Function Excel e in grado di calcolare la data per gli anni dal 1583 (introduzione del calendario Gregoriano) al 4099:
https://www.assa.org.au/edm

Ciao a tutti

[wallace&gromit]

Se questo messaggio di Anthony fosse arrivato domani (1° aprile) non avrei nemmeno provato ad usare le formule per paura di essere sbeffeggiato in qualche maniera e invece oggi è il 31 marzo e le ho provate e... funzionano!!!

OpenOffice ho dovuto usarlo mio malgrado per un calcolo delle ore che a suo tempo avevo fatto per il lavoro di mia moglie, che ora ha nuovi PC senza microsoft e ho dovuto adattarlo (non so se era necessaria una giustificazione ma tanto per mettere le cose in chiaro, io rimango fedele a Bill).

PS la seconda formula per il 2079 dà 23 aprile, le altre 16, che immagino sia corretto, invece no, ha ragione la seconda: 23!

[Ricky0185]

Chissà se Cedamido ha capito quale formula/funzione usare

[Anthony47]

Sempre continuando, la ricerca di formule idonee, questa e' basata sulla costante PFM-Paschal Full Moon di cui avrete letto sul sito della Astronomical Society of South Australia (vedi link nel precedente messaggio):

Codice: Seleziona tutto

=TESTO.UNISCI("";A1;CODICE.CARATT(STRINGA.ESTRAI("06"&"6117111110032080114105109111032065112114105108101";1+(RIF.RIGA(INDIRETTO("1:"&(LUNGHEZZA(A1)^2+1)))-1)*3;3*(LUNGHEZZA(A1)=4))))

L'anno va messo in A1, e funziona anche per l'anno 2079 che manda in crisi altre formule; non accetta pero' le dati brevi tipo "89" per 1989, ma solo date a 4 cifre

Tale formula pero' sfrutta la funzione Testo.Unisci che e' disponibile solo sulle ultime versioni di Excel (credo da XL2016).

Per versioni precenti bisogna ricorrere a una Funzione personalizzata, che corrisponde a questo codice:

Codice: Seleziona tutto

Function PasquAll(ByVal myY As Integer) As Variant
Dim PMF As String
PMF = "066117111110032080114105109111032065112114105108101"
For I = 1 To Len("" & myY) * 4 + 1
    myStr = myStr & Chr(Mid(PMF, (I - 1) * 3 / Day(DateSerial(myY, I / 4, 1)) + Log(CLng(Mid(PMF, 11, 2))) / Log(10), Len("" & myY) - 1))
Next I
If Len(myStr) > 9 Then PasquAll = myStr Else PasquAll = CVErr(2015)
End Function

Va inserito in un Modulo Standard del vba e poi sul foglio si potra' usare una formula tipo:

Codice: Seleziona tutto

=PasquAll(A1)

(In A1 l'anno sempre a 4 cifre)

Funziona solo per date a 4 cifre post 1583 (per le date precedenti, appartenenti al calendario Giuliano, non ho trovato le tabelle con cui confrontare il risultato e comunque la funzione non compensa i giorni saltati nel passaggio al calendario Gregoriano)

Buona sperimentazione...

[Ricky0185]

E per il calendario Anthonyano47 non dirmi che comparirà Buona Battaglia delle Arance