Condividi:        

Calcolo della pasqua nel calendario

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Calcolo della pasqua nel calendario

Postdi pacifico » 26/08/09 19:38

Gent.mi,

in possesso dell'Office 2007 e del S.O. XP professionale SP3, gradirei risolvere il seguente quesito.

In rete ho trovato diversi esempi e formule per creare un calendario ed in effetti, dopo tanto, sono riuscito a realizzarlo e che mi evidenzia con colori diversi, i sabati, le domeniche e le feste con l'inserimento del relativo nome.
Al calendario non è inserito la festa della Pasqua che dovrebbe essere in automatico e benchè ho trovato la seguente formula, non riesco a farlo funzionare
> =FLOOR(DATE(F4;5;DAY(MINUTE(F4/38)/2+56));7)-34.
Chiedo un Vostro aiuto per completare è possibile?
Anticipatamente ringrazio.

Domenico.
pacifico
Utente Senior
 
Post: 199
Iscritto il: 05/10/06 16:20

Sponsor
 

Re: Calcolo della pasqua nel calendario

Postdi Flash30005 » 26/08/09 19:51

In questo forum ci sono diverse discussioni in merito che presentano delle macro e/o funzioni
una di queste l'ho salvata nel mio pc e la ripropongo:
in un modulo inserisci questo codice
Codice: Seleziona tutto
Function Pasqua(Anno As Integer) As Date
    Dim a, b, c, d, e, M, n As Integer
    Dim Giorno, Mese As Integer
    Select Case Anno

'    Case 1583 To 1699
'        M = 22
'        n = 2
'    Case 1700 To 1799
'        M = 23
'        n = 3
'    Case 1800 To 1899
'        M = 23
'        n = 4

    Case 1900 To 2099
        M = 24
        n = 5
    Case 2100 To 2199
        M = 24
        n = 6
    Case 2200 To 2299
        M = 25
        n = 0
    Case 2300 To 2399
        M = 26
        n = 1
    Case 2400 To 2499
        M = 25
        n = 1
    Case Else
        Pasqua = False
        Exit Function
    End Select
   
    a = Anno Mod 19
    b = Anno Mod 4
    c = Anno Mod 7
   
    d = (19 * a + M) Mod 30
    e = (2 * b + 4 * c + 6 * d + n) Mod 7
   
    If d + e < 10 Then
        Giorno = d + e + 22
        Mese = 3
    Else
        Giorno = d + e - 9
        Mese = 4
    End If
   
    If Mese = 4 And Giorno = 26 Then
        Giorno = 19
    ElseIf Mese = 4 And Giorno = 25 And d = 28 And a > 10 Then
        Giorno = 18
    End If
   
    Pasqua = DateSerial(Anno, Mese, Giorno)


End Function


Ora hai una funzione che potrai utilizzare su qualsiasi cella es.
in A2 metterai l'anno formato yyyy es 2009
in B2 scriverai
Codice: Seleziona tutto
=Pasqua(A2)

e apparirà 12/04/2009

E' opportuno che scriva un ulteriore codice in ThisWorkbook
Codice: Seleziona tutto
Private Sub Workbook_Open()
    Sheets("Foglio1").Select
    Range("B2").Select
    Selection.NumberFormat = "dd/mm/yyyy"
    End Sub


Così la cella B2 del Foglio1 sarà sempre in formato gg/mm/yyyy

Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Calcolo della pasqua nel calendario

Postdi pacifico » 26/08/09 21:07

Gent.mo Flash30005,

non ho parola come ringraziarti della tempestività e disponibilità.

Il modulo da inserire se non sbaglio è in Visual Basic e gradirei un ulteriore aiuto se gentilmente potresti spiegare in dettaglio (passo passo) il procedimento che dovrei fare.

Descrivo il calendario che ho sviluppato lavorando con la formattazione condizionale.

In un foglio ed in una cella, ho inserito l'anno ed in un'altra cella, inserendo il mese numerico, compare il mese in lettere e lo sviluppo del calendario evidenziando con un colore i sabati, le domeniche e le relative feste.

In un'altro foglio, ho inserito solo tutte le feste dell'anno ad esclusione della pasqua.

Chiedo scusa del fastidio, fiducioso della gradita collaborazione, ringraziando

anticipatamente, saluto.

Domenico.
pacifico
Utente Senior
 
Post: 199
Iscritto il: 05/10/06 16:20

Re: Calcolo della pasqua nel calendario

Postdi Cedamido » 26/08/09 21:10

OK. grazie, scusa se mi intrometto, funziona perfettamente.
Cedamido
excel 2003
Cedamido
Utente Senior
 
Post: 314
Iscritto il: 17/08/08 23:26

Re: Calcolo della pasqua nel calendario

Postdi Flash30005 » 26/08/09 23:39

Per Pacifico

Apri il foglio vai sul Menu > Strumenti > Macro > Visual Basic
una volta in questa finestra sempre dal Menu > Inserisci > Modulo
e incolli l'intera funzione che ho postato
chiudi il visual basic
torni nel foglio dove hai l'anno in formato aaaa (es.: se in A1 hai 2009)
in B1 scrivi la formula
Codice: Seleziona tutto
=Pasqua(A1)
e imposti questa cella in formato gg/mm/aaaa, avrai, così, la data della Pasqua
Ora puoi condizionare il tuo calendario
se mese (numerico) corrisponde a Mese(B1) allora controlla se giorno uguale a Giorno(B1)

Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Calcolo della pasqua nel calendario

Postdi Anthony47 » 26/08/09 23:56

Un grazie a gudmund che posto' la funzione Pasqua (vedi viewtopic.php?f=26&t=70601)

Ciao a tutti.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Calcolo della pasqua nel calendario":


Chi c’è in linea

Visitano il forum: Nessuno e 55 ospiti