Υπολογισμός ημερών μήνα 30 ημερών
 

Καλησπέρα. Ειναι η πρώτη φορά που εισέρχομαι σε αυτόν τον ενδιαφέροντα τόπο ανταλλαγής γνώσεων.
Επικαλούμαι την καλή διάθεση και τη βοήθεια των μελών.Το πρόγραμμα που επισυνάπτω είναι
μόνο ένα μέρος μεγαλύτερου προγράμματος και έχει σαν σκοπό - στο συγκεκριμμένο κομμάτι του - να υπολογίζει τις ημέρες μητρότητας για την συμπληρωματική παροχή και την απόδοση ΑΠΔ. Εργάζομαι στο Δημόσιο και ακόμα ο υπολογισμός γίνεται χειροκίνητα.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.

Καλησπέρα

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

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

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

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

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

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

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

Καλησπέρα

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

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

πρόσθεση ημερών σε μήνες 30 ημερών
 

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

Καλησπέρα

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

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

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

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

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

Καλησπέρα

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

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

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

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

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

Καλημέρα Γιώργο, κάνω τη διόρθωση στον κώδικα τώρα στο γραφείο. Αν κάτι δεν πάει καλά, σε ειδοποιώ, Σε ευχαριστώ και πάλι.

Φίλε Γιώργο από 22/09/2015 σου έστειλα μήνυμα με ένα μεγάλο ευχαριστώ για τη βοήθειά σου, αλλά δεν το βλέπω στο forum, το έστειλα δύο φορές, έσβησα το δεύτερο και πιθανόν να έσβησα και το πρώτο από τη πίεση του γραφείου.Για άλλη μία φορά ευχαριστώ. Σου στέλνω δειγματοληπτικά 3 φύλλα από το βιβλίο εργασίας. Στο πρώτο φύλλο "χτύπησε" ο υπολογισμός στο διάστημα μίας ημέρας. Προσπάθησα να διορθώσω την DateLast που μου έστειλες με αποτέλεσμα λίαν επιεικώς να τα κάνω χάλια. Την μάζεψα πάλι με backup. Δοκίμασα το σημείο startDate, dt + 1 σε συνδιασμώ με το σύμβολο >=. Δεν κατάφερα τίποτα. Στο δεύτερο φύλλο υπάρχει το ίδιο υποπρόγραμμα με μεταφορά κυοφορίας - δουλευει- και στο τρίτο φύλλο ακριβώς την ίδια περίπτωση με δίχως μεταφορά. Κάτι πρέπει να έχω πειράξει στον πίνακα της ΑΠΔ. Στα σημεία φύλλου1 (υπολογισμός 1 ημέρας) και φύλλου 3 ( δίχως την μεταφορά κυοφορίας - 3η γραμμή εισαγωγής), δουλεύω χειροκίνητα. Αν μπορείς να μαζέψεις κάτι, για άλλη μία φορά υπόχρεος.

Καλησπέρα

Σπύρο, τη λογική χορήγησης και προσδιορισμού της αμοιβής αυτών των αδειών, δεν τη γνωρίζω.

Συνεπώς τη βασική εργασία θα πρέπει να την κάνεις εσύ.

Στο βιβλίο σου υπήρχαν περίπου 50 κενές (άχρηστες) λειτουργικές μονάδες (Module) ακόμα και κλάσεις (Classes). Λαβύρινθος.

Στο συνημμένο, θα βρεις μία νέα συνάρτηση (LastDate2) και κάποιες οδηγίες.

Πριν αποφασίσεις ποια από τις 2 συναρτήσεις θα χρησιμοποιήσεις κάνε τον έλεγχο που σου προτείνω.

Προσθήκη
Έλεγξε τους τύπους στα κελιά: D28, D30 και Δ32.

Ειδικά ο τύπος: =IF(C28=F15;C28-B28+1;C28-B28+1) αποτελεί πρωτοτυπία, αφού το αποτέλεσμα είναι: C28-B28+1, ανεξάρτητα από την ισχύ της συνθήκης


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

Γιώργο σε ευχαριστώ για την πολυτιμη βοήθεια σου. Δοκίμασα ημερολογιακές εκδοχές, όπως υπέδειξες. Ο υπολογισμός των ημερών απέκλινε πάντα την τελευταία ημέρα κάθε μήνα, ανεξάρτητα αν είχε 30 ή 31 ημέρες. Με την LastDate2 το πρόβλημα διορθώθηκε. Σε ευχαριστώ πολύ.

γράφημα οριζόντιου άξονα
 

Γιώργο εύχομαι να είσαι καλά μαζί όλα τα μέλη του forum. Αν δε σπαταλώ το χρόνο σου θα ζητούσα άλλη μία φορά τη βοήθειά σου. Σε γράφημα μόνο οριζόντιου άξονα δεν έχω πολλές επιλογές αφού τόσο σε γράφημα διασποράς όσο και γραμμής ο κάθετος άξονας μου χαλάει όλη τη δουλειά. Οι ημερομηνίες που θέλω δεν βγαίνουν. Δοκίμασα πολλές εκδοχές αλλαγής δεδομένων στις επιλογές γραφήματος αλλά μάταια. Δεν μπορώ να απαλλαγώ από τις ασυναρτησίες του κάθετου άξονα. Αν δεν κάνω κάτι καλά έχει καλώς. Η λύση συμβουλευτικώς θα είναι εύκολη. Αν όχι, χρειάζομαι κώδικα. Σου στέλνω συνημμένο αρχείο γιά να καταλάβεις. Ελπίζω να μη σε κουράζω.
Φιλικά Σπύρος.

Καλησπέρα

Σπύρο, δες στο συνημμένο μια πρόχειρη λύση.

Ίσως μπορέσεις να τη βελτιώσεις.

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

Γράφημα οριζόντιου άξονα
 

Καλημέρα Γιώργο. Προσάρμοσα το γράφημά σου στα δεδομένα μου. Έχω καλύτερη εικόνα της απεικόνισης τώρα. Σε ευχαριστώ για τη βοήθειά σου.
Φιλικά, Σπύρος

Καλημέρα

Σπύρο, θα μπορούσες να εξετάσεις και τη χρήση συγκεντρωτικού γραφήματος.

Δες το συνημμένο.

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

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

Ευχαριστώ και πάλι, Σπύρος.

Καλησπέρα

Σπύρο, στο συνημμένο, πρόσθεσα ένα διάγραμμα διασποράς

Νομίζω είναι πιο βολικό.

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

Καλησπέρα Γιώργο. Είναι πολύ καλύτερο το διάγραμμα διασποράς με βηματισμό ανά τρίμηνο. Πολύ χρήσιμο θα μου χρειαστεί αφάνταστα. Σε ευχαριστώ για το χρόνο σου. Η βοήθειά σου πραγματικά ανεκτίμητη.