Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Macro Pasqua

58 views
Skip to first unread message

Previ

unread,
Jul 5, 2010, 6:39:17 AM7/5/10
to
Ho una macro che mi permette di visualizzare quando ricade la Pasqua in
un determinato anno e funziona bene con Excel 2010 ma non con Calc 3.2.1
La macro è la seguente:

Sub Pasqua()
Dim luna As Variant
luna = Array(14, 3, 24, 11, 31, 18, 8, 28, 16, 5, 25, 13, 2, 22, 10, 17,
7, 27)
anno = InputBox("Immettere l'anno")
resto = anno Mod 19
xgiorno = luna(resto)
If xgiorno > 21 Then xmese = 3 Else xmese = 4
xdata = DateSerial(anno, xmese, xgiorno)
giosett = Weekday(xdata) - 1
resto2 = giosett Mod 7
Dompasquale = xdata + 7 - resto2
MsgBox Dompasquale, , "La Pasqua viene in data..."
End Sub

--
Notebook Acer 1652: - CPU: Centrino 1,7 GHz - RAM: 1 GB DD2 - HD: 100 GB
E-IDE - SO: Windows XP Home SP3 OEM + aggiornamenti

VITRIOL

unread,
Jul 5, 2010, 6:48:44 AM7/5/10
to
Il 05/07/2010 12.39, Previ ha scritto:

> Ho una macro che mi permette di visualizzare quando ricade la Pasqua in
> un determinato anno e funziona bene con Excel 2010 ma non con Calc 3.2.1

In Calc non è necessaria una macro in quanto esiste la funzione nativa
DOMENICA.DI.PASQUA(Anno).

--
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Scarica "OpenOffice.org 3: Soluzioni a raccolta", molto più di semplici
FAQ! http://it.openoffice.org/doc/manuali/

gumo

unread,
Jul 5, 2010, 6:49:14 AM7/5/10
to

in Calc esiste la funzione

=DOMENICA.DI.PASQUA(anno)

digitala in una cella per avere la data della domenica di pasqua,
forse la macro diventa inutile ...
g

AT@diesel

unread,
Jul 5, 2010, 7:20:45 AM7/5/10
to
in data 05/07/2010 12.49 gumo ha scritto:

> in Calc esiste la funzione
>
> =DOMENICA.DI.PASQUA(anno)
>
> digitala in una cella per avere la data della domenica di pasqua,
> forse la macro diventa inutile ...
> g

perchè la funzione è invece utile?

VITRIOL

unread,
Jul 5, 2010, 7:24:26 AM7/5/10
to
Il 05/07/2010 13.20, AT@diesel ha scritto:

> perchè la funzione è invece utile?

Dipende dai punti di vista. Così a naso direi che è utile se devi
calcolare la data di Pasqua, altrimenti è inutile :-)

Previ

unread,
Jul 5, 2010, 7:25:05 AM7/5/10
to
VITRIOL ha scritto:

> In Calc non è necessaria una macro in quanto esiste la funzione nativa
> =DOMENICA.DI.PASQUA(Anno).
>
Come mai se provo con l'anno 2010 mi vengono visualizzate due date diverse?
Con Calc, la Pasqua 2010 ricade il 4 Aprile 2010, mentre con Excel 2010
ricade il 18 Aprile 2010 ?
Chi è che sbaglia a fare i calcoli?

VITRIOL

unread,
Jul 5, 2010, 7:27:50 AM7/5/10
to
Il 05/07/2010 13.25, Previ ha scritto:

> Come mai se provo con l'anno 2010 mi vengono visualizzate due date diverse?
> Con Calc, la Pasqua 2010 ricade il 4 Aprile 2010, mentre con Excel 2010
> ricade il 18 Aprile 2010 ?
> Chi è che sbaglia a fare i calcoli?

Sbaglia ma macro di Excel:

http://www.gmarts.org/index.php?go=413

Previ

unread,
Jul 5, 2010, 7:37:22 AM7/5/10
to
VITRIOL ha scritto:

>
> Sbaglia ma macro di Excel:
>
> http://www.gmarts.org/index.php?go=413
>
Quindi potrebbe essere considerato un "bug" di Excel ?
Ciao.

VITRIOL

unread,
Jul 5, 2010, 7:40:28 AM7/5/10
to
Il 05/07/2010 13.37, Previ ha scritto:

> Quindi potrebbe essere considerato un "bug" di Excel ?

No, sicuramente ᅵ l'algoritmo usato nella macro che non ᅵ corretto.

--
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.

Scarica "OpenOffice.org 3: Soluzioni a raccolta", molto piᅵ di semplici
FAQ! http://it.openoffice.org/doc/manuali/

Previ

unread,
Jul 5, 2010, 7:44:05 AM7/5/10
to
VITRIOL ha scritto:

> Il 05/07/2010 13.37, Previ ha scritto:
>
>> Quindi potrebbe essere considerato un "bug" di Excel ?
>
> No, sicuramente ᅵ l'algoritmo usato nella macro che non ᅵ corretto.
>
E cosa bisognerebbe fare per "aggiornare" la data esatta della Pasqua
con Excel?

VITRIOL

unread,
Jul 5, 2010, 7:47:48 AM7/5/10
to
Il 05/07/2010 13.44, Previ ha scritto:

> E cosa bisognerebbe fare per "aggiornare" la data esatta della Pasqua
> con Excel?

Non saprei, l'algoritmo per calcolare la Pasqua non ᅵ banale e io non lo
conosco. Dovresti trovare un algoritmo funzionante, magari giᅵ
implementato in VBA, ma io non ne conosco e comunque siamo OT.

Roberto Montaruli

unread,
Jul 5, 2010, 8:41:05 AM7/5/10
to
On 5 Lug, 13:47, VITRIOL <vitriol_vitriolTOGL...@katamail.com> wrote:
> Il 05/07/2010 13.44, Previ ha scritto:
>
> > E cosa bisognerebbe fare per "aggiornare" la data esatta della Pasqua
> > con Excel?
>
> Non saprei, l'algoritmo per calcolare la Pasqua non banale e io non lo

> conosco. Dovresti trovare un algoritmo funzionante, magari gi
> implementato in VBA, ma io non ne conosco e comunque siamo OT.

Qui
http://en.wikipedia.org/wiki/Computus

al paragrafo Gauss algorithm

Roberto Montaruli

unread,
Jul 5, 2010, 8:42:36 AM7/5/10
to
On 5 Lug, 13:24, VITRIOL <vitriol_vitriolTOGL...@katamail.com> wrote:
> Il 05/07/2010 13.20, AT@diesel ha scritto:
>
> > perchè la funzione è invece utile?
>
> Dipende dai punti di vista. Così a naso direi che è utile se devi
> calcolare la data di Pasqua, altrimenti è inutile :-)

Il calcolo della data della Pasqua e' FONDAMENTALE per determinare i
giorni festivi anno per anno.
Visto che il lunedi di Pasqua e' festivo e cambia di anno in anno...

Giacomo Boffi

unread,
Jul 7, 2010, 5:02:20 PM7/7/10
to
Roberto Montaruli <rmont...@gmail.com> writes:

senza contare pentecoste, corpus domini e ascensione, che in larga
parte di europa vengono tuttora festeggiate,
--
infatti dovrebbe essere [...] gruyère, che insomma
non è molto distante dal parmigiano.
-- Ruggine, in IHC

ludo

unread,
Jul 8, 2010, 8:25:02 AM7/8/10
to

"Roberto Montaruli" <rmont...@gmail.com> ha scritto nel messaggio
news:46700c5e-bffc-4957...@x21g2000yqa.googlegroups.com...

> On 5 Lug, 13:47, VITRIOL <vitriol_vitriolTOGL...@katamail.com> wrote:
>> Il 05/07/2010 13.44, Previ ha scritto:
>>
>> > E cosa bisognerebbe fare per "aggiornare" la data esatta della Pasqua
>> > con Excel?

Cerca calendario con excel in google, . Anche io ho letto e cercato tanto
poi ho trovato una formula in Excel di poche parole che trova la data esatta
della PASQUA.
Ti assicuro che sorprendentemente č precisa.
Io l'ho usata per parecchio tempo ed ha sempre funzionato benissimo.
Purtroppo non la ricordo perchč dopo che sono passato a calc non ne ho piů
avuto bisogno.
Ciao
Ludo


0 new messages