Ανανέωση ιστοσελίδας

[Dimi]

Καλημέρα και χρόνια πολλά σε όλους και όλες!

Η ερώτηση μου δεν ταιριάζει και τόσο με τις γιορτές των Χριστουγέννων και της
Πρωτοχρονιάς αλλά…

Πως μπορώ να υπολογίσω (με VBA ή χωρίς) την Κυριακή του Πάσχα
σε προγράμματα του Office όπως Word, Excel, Access?

Ευχαριστώ για τον χρόνο σας.

Φιλικά

Δημήτρης

[Chris]

Αγαπητε φιλε Δημητρη καλήμερα & χρονια πολλα

Αυτο που ζητας μπορεις να το βρεις εδω ( http://www.msaccess.gr/index.php/el/-vba/15-2008-12-24-22-04-51)

αλλα και εδω ( http://www.eortologio.gr/arthra/pasxa.php.) Ελπιζω να σε βοηθησα να βρεις αυτο που ζητας.

[Tasos]

Καλημέρα σε όλους!
Αγαπητέ φίλε Δημήτρη, σου προτείνω μερικές λύσεις υπολογισμού του Πάσχα
για έτη από το 1924:

Excel

Έστω ότι στο κελί A1 έχουμε το Έτος πχ. 2010.
Ο τύπος για τον υπολογισμό του Πάσχα είναι:

=DATE(A1;IF(3+(MOD(19*MOD(A1;19)+16;30))+(MOD(2*(MOD(A1;4))+4*(MOD(A1;7))+6*(MOD(19*MOD(A1;19)+
16;30));7))>30;5;IF(3+(MOD(19*MOD(A1;19)+16;30))+(MOD(2*(MOD(A1;4))+4*(MOD(A1;7))+6*(MOD(19*MOD(A1;19)+16;30))
;7))<1;3;4));IF(3+(MOD(19*MOD(A1;19)+16;30))+(MOD(2*(MOD(A1;4))+4*(MOD(A1;7))+6*(MOD(19*MOD(A1;19)+16;30));7))>30;3+
(MOD(19*MOD(A1;19)+16;30))+(MOD(2*(MOD(A1;4))+4*(MOD(A1;7))+6*(MOD(19*MOD(A1;19)+16;30));7))-30;IF(3+(MOD(19*
MOD(A1;19)+16;30))+(MOD(2*(MOD(A1;4))+4*(MOD(A1;7))+6*(MOD(19*MOD(A1;19)+16;30));7))<1;3+(MOD(19*MOD(A1;19)
+16;30))+(MOD(2*(MOD(A1;4))+4*(MOD(A1;7))+6*(MOD(19*MOD(A1;19)+16;30));7))+31;3+(MOD(19*MOD(A1;19)+16;30))+
(MOD(2*(MOD(A1;4))+4*(MOD(A1;7))+6*(MOD(19*MOD(A1;19)+16;30));7)))))

VBA (για όλα τα προγράμματα του Office)

Function P(Y%) As Date 'όπου Y% = το έτος
    P = 3 + ((19 * (Y Mod 19) + 16) Mod 30) + (2 * (Y Mod 4) + 4 * _
    (Y Mod 7) + 6 * ((19 * (Y Mod 19) + 16) Mod 30)) Mod 7
    P = DateSerial(Y, IIf(P > 30, 5, 4), IIf(P > 30, P - 30, P))
End Function

Access
Χρειάζονται 3 πεδία σε μια φόρμα.

Στο πρώτο πεδίο με το όνομα "iDay"
περνάμε τον τύπο:

=3+((19*([iYear] Mod 19)+16) Mod 30)+(2*([iYear] Mod 4)+4*([iYear] Mod 7)+6*((19*([iYear] Mod 19)+16) Mod 30)) Mod 7

Στο δεύτερο πεδίο με το όνομα "iYear" για να δίνουμε το έτος προς υπολογισμό.

Στο τρίτο πεδίο περνάμε τον τύπο:

=IIf(IsNull([iDay]);"";DateSerial([iYear];IIf([iDay]>30;5;4);IIf([iDay]>30;[iDay]-30;[iDay])))

Δείτε και το συνημμένο (Access)

Ελπίζω να βοήθησα

Φιλικά

Τάσος

[Chris]

Τασο καλησπερα και καλη χρονια

τον κωδικα VBA πω μπορουμε να τον χρησιμοποιησουμε σε Word;

[Tasos]

Καλησπέρα σε όλους!
Φίλε Χρήστο, μπορείς κάλλιστα να εφαρμόσεις τον κώδικα σε οποιαδήποτε εφαρμογή περιέχει VB - VBA.
Στο Word μπορείς να χρησιμοποιήσεις το παρακάτω:

Option Explicit

Function P(Y%) As Date
    P = 3 + ((19 * (Y Mod 19) + 16) Mod 30) + (2 * (Y Mod 4) + 4 * _
    (Y Mod 7) + 6 * ((19 * (Y Mod 19) + 16) Mod 30)) Mod 7
    P = DateSerial(Y, IIf(P > 30, 5, 4), IIf(P > 30, P - 30, P))
End Function

Sub Pasxa() ' Αυτό τρέχεις
    Dim x%
    On Error Resume Next
    x = InputBox("Enter Year", "Pasxa", Year(Date))
    If x <> 0 And x > 1923 And x < 4000 Then Selection.Text = P(x)
End Sub

Φιλικά

Τάσος

[Dimi]

Καλησπέρα!

Σας ευχαριστώ πολύ για τις απαντήσεις.
Οι συναρτήσεις στην Access και ο κώδικάς VBA δουλεύουν μια χαρά.
Αντιμετώπισα ένα πρόβλημα στην Excel.

Μου βγάζει το λάθος #NAME?

Κάνω κάτι λάθος;

Ευχαριστώ και πάλι!

Δημήτρης

[Tasos]

Καλησπέρα Δημήτρη!
Μόλις τώρα παρατήρησα στο Δημόσιο προφίλ σου ότι έχεις Office στη γερμανική γλώσσα.

Η γερμανική Excel, σε αντίθεση με την Access, δεν αναγνωρίζει το 99% των συναρτήσεων που υπάρχουν σε εκδόσεις όπως η ελληνική ή η αγγλική κατά την πληκτρολόγηση τους.

Χρησιμοποίησε λοιπόν τον παρακάτω τύπο:

=DATUM(A1;WENN(3+(REST(19*REST(A1;19)+16;30))+(REST(2*(REST(A1;4))+4*(REST(A1;7))+6*
(REST(19*REST(A1;19)+16;30));7))>30;5;WENN(3+(REST(19*REST(A1;19)+16;30))+(REST(2*(REST(A1;4))+4*(REST(A1;7))+6*
(REST(19*REST(A1;19)+16;30));7))<1;3;4));WENN(3+(REST(19*REST(A1;19)+16;30))+(REST(2*(REST(A1;4))+4*(REST(A1;7))+6*
(REST(19*REST(A1;19)+16;30));7))>30;3+(REST(19*REST(A1;19)+16;30))+(REST(2*(REST(A1;4))+4*(REST(A1;7))+6*
(REST(19*REST(A1;19)+16;30));7))-30;WENN(3+(REST(19*REST(A1;19)+16;30))+(REST(2*(REST(A1;4))+4*(REST(A1;7))+6*
(REST(19*REST(A1;19)+16;30));7))<1;3+(REST(19*REST(A1;19)+16;30))+(REST(2*(REST(A1;4))+4*(REST(A1;7))+6*(REST(
19*REST(A1;19)+16;30));7))+31;3+(REST(19*REST(A1;19)+16;30))+(REST(2*(REST(A1;4))+4*(REST(A1;7))+6*(REST(19
*REST(A1;19)+16;30));7)))))

Έλεγξε για τυχόν κενά στον τύπο που ίσως δημιουργήθηκαν κατά την επικόλληση.

Φιλικά

Τάσος

[Dimi]

Τάσο, σ ευχαριστώ πολύ!

Έπαιξε αμέσως!

Δημήτρης

[spirosgr]

Καλημέρα
Θα ήθελα να κάνω μία παρατήρηση αν και το επίπεδο μου είναι πολύ πιό κάτω από του φίλου Τάσου
Όσοι φίλοι κάνουν copy paste τον εξαιρετικό τύπο στο EXCEL για τον υπολογισμό Πάσχα
να προσέξουν γιατί υπάρχουν "κενά" όπως στα M OD της 1ης και 3ης σειράς και σε κάποια άλλα σημεία με αποτέλεσμα να μην λειτουργεί σωστά για κάποιες χρονιές.
Χαίρομαι πάντως που ο τύπος υπολογίζει τα χρόνια από το 1924 έτος ίδρυσης της ΑΕΚ !!!

Με πολύ σεβασμό στις γνώσεις του Τάσου.
Φιλικά ΣΠΥΡΟΣ

[Tasos]

Καλησπέρα σε όλους!

Αγαπητέ Σπύρο, σωστή η παρατήρηση σου.

Τα κενά που παρουσιάζονται στους τύπους δημιουργούνται κατά την επικόλληση τους στον επεξεργαστή του μηνύματος.

Αν βάλουμε τους τύπους σε πλαίσιο κώδικα (το έκανα ήδη σ αυτό το θέμα) νομίζω ότι βελτιώνεται η κατάσταση.

Να είσαι καλά και σ ευχαριστώ για τη συμμετοχή σου!

Φιλικά

Τάσος