Newsgroup: it.comp.lang.visual-basic
Titolo: Giorno di Pasqua - Come si calcola??

Vorrei sapere come si fa a calcolare la data in cui cade il giorno di
pasqua?
Ringrazio già d'ora x chi mi aiuterà.
ciao
--
I miei indirizzi di posta elettronica:
1° 
ronn...@tin.it
2° 
ronn...@yahoo.com
3° 
ronn...@iol.it
4° 
renpi...@yahoo.com
5° 
ronni...@supereva.it

 wrote in message 8dntdu$8o5$1...@nslave1.tin.it...


Pork! Me lo sono chiesto anch'io... Allora sono andato da un bel pretone e
gli ho fatto la domanda... Allora, non sono sicurissimo, ma dovrebbe essere
una cosa tipo: "la prima domeniche che c'é dopo...
...credo
...dopo il plenilunio che segue il primo plenilunio di marzo..."
Comunque se riesci a farmi sapere qualcosa tipo: come ti calcoli i
plenilunii te ne sarei molto grato...
cap...@fremail.it


 ha scritto nel messaggio
news:8dp7e2$hg3$1...@serv1.albacom.net...


 plenilunii te ne sarei molto grato...
... chi invece e' interessato a un algoritmo, puo' usare la formuletta
di Gauss, sei o sette righe di operazioni "modulo". Era stato uno dei
miei primi esercizi di programmazione in Fortran 25 anni fa. La trovate
nella Calendar FAQ 
http://www.tondering.dk/claus/cal/calendar22.html
a
http://www.tondering.dk/claus/cal/node3.html#SECTION003120000000000000000
-- 
----------------------------------------------------------------------
nos...@ifctr.mi.cnr.it
 is a newsreading account used by more persons to
avoid unwanted spam. Any mail returning to this address will be rejected.
Users can disclose their e-mail address in the article if they wish so.

plenilunii te ne sarei molto grato...
Dai un'occhiata sul Sito COmune: non ci sono pleniluni o lupi che ululano, ma solo l'algoritmo ed un
codice d'esempio...
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 pasqua?
"Sito Comune, Sito Comune, Sito Comune..... c'è tutto quello che cerchi.
[...]
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------"
(Sirri, Moreno "Tutto quello che vorresti sapere su MSVB e ti ostini a
chiedere sul ICLVB senza prima visitare il SC", pag. 1 di 1).
--
Ciao.
Maurizio

 pasqua?
Eccomi, questa è mia...
L'algoritmo da cui ho ricavato il codice risale al 1876 ed è di un certo
Butcher, che lo pubblicò nell'Ecclesiastical Calendar, ed è valido dal 1583 in
poi.
Public Function PasquaGregoriana(anno%) As Date 'by G.Paolo Bizzaro
 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)
 PasquaGregoriana = DateSerial(anno%, r \ 31, (r Mod 31) + 1)
End Function
Qualora programmassi in C:
// Restituisce il giorno della Pasqua Gregoriana passando come parametro l'anno.
// il giorno sarà: risultato & 0xFF; il mese: risultato >> 8
// tempo impiegato: circa 4,56 microsecondi su P100
int PasquaGregoriana2 (int anno)  //  by G.Paolo Bizzaro
{
 int a,b,c,p,q,r;
 a = anno % 19 ; b = anno / 100 ; c = anno % 100 ;
 p = (19 * (a) + b - (b / 4) - ((b - ((b + 8) / 25) + 1) / 3) + 15) % 30 ;
 q = (32 + 2 * ((b % 4) + (c / 4)) - p - (c % 4)) % 7 ;
 r = (p + q - 7 * ((a + 11 * p + 22 * q) / 451) + 114) ;
 return (((r / 31)<<8) | ((r % 31) + 1));
}
Ciao
        gpb

 ...dopo il plenilunio che segue il primo plenilunio di marzo..."
Fochino...
... dopo il primo plenilunio dopo l'equinozio di primavera.
Comunque se ti interessa ho postato anche la routine,
che trovi, pur leggermente piů lenta, anche sul sito comune.
Ciao
            gpb

chiedere sul ICLVB senza prima visitare il SC", pag. 1 di 1).
;-) 
manca il ©..... ^__^
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------


 manca il ©..... ^__^
Gia'. Ma se ce lo metto io poi tu non puoi piu' usare quel testo...
--
Ciao.
Maurizio



Grrrrr...... guai a te!!! ^___^
OK, chiudiamo l'OT...
P.S.:
Ancora Buona Pasqua!
