[Συναρτήσεις] Υπολογισμός ημερών μήνα 30 ημερών

[Σπύρος -psp]

Καλησπέρα. Ειναι η πρώτη φορά που εισέρχομαι σε αυτόν τον ενδιαφέροντα τόπο ανταλλαγής γνώσεων.
Επικαλούμαι την καλή διάθεση και τη βοήθεια των μελών.Το πρόγραμμα που επισυνάπτω είναι
μόνο ένα μέρος μεγαλύτερου προγράμματος και έχει σαν σκοπό - στο συγκεκριμμένο κομμάτι του - να υπολογίζει τις ημέρες μητρότητας για την συμπληρωματική παροχή και την απόδοση ΑΠΔ. Εργάζομαι στο Δημόσιο και ακόμα ο υπολογισμός γίνεται χειροκίνητα.H Βασική έννοια της λειτουργίας:Εστω στο κελί Β8 έχουμε εισαγωγή ημερομηνίας που προκύπτει από άλλους υπολογισμούς. Η βασική φιλοσοφία της επιδότησης στη συγκεκριμμένη ρουτίνα είναι από την ημερομηνία αυτή πάντα να έχουμε στο διπλανό κελί C8 το τέλος του αντίστοιχου μήνα (των 30 ημερών). Στο κελί F8 τη διαφορά ημερών ανάμεσα στις δύο ημερομηνίες. Η διαφορά αυτή στο Ε8 πολλαπλασιάζεται με το 25 και διαιρείται με το 30. Στο κελί D8 παίρνουμε τον αμέσως επόμενο ακέραιο από το κλάσμα που έχει προκύψει.
Όπως βλέπετε στο συνημμένο αρχείο έχω ζωγραφίσει μία από τις εναλλακτικές μορφές σε ότι αφορά τους τύπους υπολογισμών. Στο κελί Β9 αρχίζουμε από την 1η του επόμενου μήνα από το C8 κ.ο.κ. επαναλαμβανόμενη η ρουτίνα μέχρι το τέλος της ημερομηνίας μεταφοράς π.χ. κυοφορίας έστω στο C11.
Πάντα συμβαίνουν αποκλίσεις και χρειάζεται να επεμβαίνω δια χειρός για τις διορθώσεις. Υπάρχει κάτι πιό σταθερό σε υπολογισμό? Μεγάλο πρόβλημα επίσης ο Φεβρουάριος. Στη μητρότητα υπολογίζεται σαν μήνας με 30 κάτι που δεν δέχεται το excel.π.χ. 18/02/2015- 28/02/2015 11 ημέρες 9,16 ακέραιος 10 που είναι λάθος. Το σωστό 18/02/2015 - 30/02/2015 13 ημέρες 10,83 που δίνουν 11 ημέρες. Δεν υπάρχεi περίπτωση to excel να δεχτει ημερομηνία 30/02. Υπάρχει λύση ή θα καταφύγω στο χειρόγραφο? Ευχαριστώ για όποια προσπάθειά σας.Στο γραφείο εγκαταστημένο excel 2003.

[kapetang]

Καλησπέρα

Σπύρο, καλωσόρισες στην παρέα μας.

Στο συνημμένο αρχείο μπορείς να δεις μια προσέγγιση του ζητούμενου.

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

Κάνε δοκιμές για να δεις αν καλύπτει όλες τις περιπτώσεις.

Φιλικά/Γιώργος

[Σπύρος -psp]

Γιώργο έλαβα το μήνυμά σου και το συνημμένο αρχείο. Ευχαριστώ για την προσπάθεια. Θα δοκιμαστεί στην πράξη και εύχομαι να λειτουργήσει. Σε ενημερώνω αν προκύψει κάποια ιδιαιτερότητα. Ευχαριστώ και πάλι.

[Σπύρος -psp]

Καλημέρα σε όλους. Φίλε Γιώργο σχετικά με τη βοήθεια που μου είχες προσφέρει, δουλεύουν οι συναρτήσεις στον υπολογισμό ΑΠΔ άψογα δίχως καμμά εξαίρεση από το πλήθος των περιπτώσεων. Θα ήθελα να ζητήσω τη βοήθεια σου άλλη μία φορά. Στο συνημμένο φύλλο έχω ένα πινακα μέρος προγράμματος. Σε αυτό του το κομμάτι πρέπει από την ημερ/νια έναρξης της επιδότησης (I2) έως το τέλος του ίδιου μήνα να μετρηθούν σαν σύνολο οι εργάσιμες μαζί με τα Σαββατα (J2). Στο επόμενο κελί (Κ3) μόνον οι Κυριακές.Στην από κάτω σειρά η 1η του επόμενου μήνα (Ι3) έως το τέλος ανεξάρτητα αν είναι μήνας με 30 ή 31 ημέρες με αντίστοιχες τιμές στα κελιά J3 και Κ3 με το σχετικό σύνολο σε επόμενες σειρές. Πρσπάθησα με συνδιασμό IF(WEEKDAY αλλά δεν δούλεψε αθροιστικά . Σε ευχαριστώ γιά κάθε βοήθεια σου.

[kapetang]

Καλησπέρα

Δες μια πρόταση στο συνημμένο.

[Σπύρος -psp]

Ευχαριστώ για τον κόπο σου, η βοήθειά σου πολύτιμη.

[Σπύρος -psp]

Καλημέρα σε σε όλους. Φίλε Γιώργο θα χρειαστώ άλλη μία φορά τη βοήθειά σου. Το πρόβλημα ανάγεται σε υπολογισμό ημερών με μήνα 30 ημερών με πλαστό αποτέλεσμα + - 1 ημέρας λόγω παρεμβολής μηνών με 31 ημέρες. Δεν έχω δύο ημερομηνίες για να εφαρμόσω την days360. Σε ένα κελί Β13 εισάγεται ημερομηνία από άλλο τμήμα προγράμματος και σε αυτήν θα πρέπει να προστεθεί το πλήθος των ημερών από τη βεβαίωση εργοδότη D13(ακέραιος). Όταν εφαρμόζεται η σχέση Β3+D13 χρειάζεται χειροκίνητη διορθωτική παρέμβαση. Επισυνάπτω σχετικό αρχείο παραδείγματος με 2ο ερώτημα όμοιο του προαναφερόμενου. Ευχαριστώ για το χρόνο σου και τη βοήθειά σου. on line from office, Σπύρος.

[kapetang]

Καλησπέρα

Σπύρο, ελπίζω να κατάλαβα το ζητούμενο.

Στο συνημμένο παρουσιάζω διάφορες περιπτώσεις.

Η τελευταία περίπτωση, που μάλλον αποτελεί και το ζητούμενο, υλοποιείται με κώδικα VBA.

Φιλικά/Γιώργος

[Σπύρος -psp]

Καλησπέρα φίλε Γιώργο, να είσαι πάντα καλά, η βοήθειά σου πραγματικά ανεκτίμητη. Ένας δυνατός κώδικας VBA με λίγες γραμμές έλυσε το πρόβλημα. Το πρωί στο γραφείο θα ενσωματώσω τον κώδικα, ελπίζω να δουλέψουν οι συναρτήσεις με office 2003, στο σπίτι λειτουργούν άψογα. Ευχαριστώ και πάλι.

[kapetang]

Καλησπέρα

Σπύρο βλέποντας τον κώδικα διαπίστωσα ότι στη γραμμή:

Do Until WorksheetFunction.Days360(startDate, dt + 1) = iDays

το σύμβολο = θα πρέπει να αντικατασταθεί με το >=

Δηλαδή η γραμμή κώδικα να γίνει:

Do Until WorksheetFunction.Days360(startDate, dt + 1) > = iDays