Πρόσθεση Συμμιγών Αριθμών

VB Script και κολπάκια, Excel macro, Word, Powerpoint, κτλ

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
dimigo
Δημοσιεύσεις: 44
Εγγραφή: 19 Μαρ 2004 17:08

Πρόσθεση Συμμιγών Αριθμών

Δημοσίευση από dimigo » 25 Φεβ 2013 18:37

Θέλω να κάνω ένα αρχείο για να υπολογίζω αθροίσματα τριών τεσσάρων ημερομηνιών (συμμιγών αριθμών με Έτη, μήνες, μέρες). Προσπάθησα να το κάνω με το if αλλά δεν ξέρω καλά την σύνταξή της και θέλω την βοήθειά σας:

Για παράδειγμα, στο κελί Ε13 έχω γράψει τον τύπο [=IF(F12>29;E12+1;E12)] όπου F12 το σύνολο των ημερών, Ε12 το σύνολο των μηνών.... Αν ο αριθμός των ημερών στο F12 είναι μέχρι 59 λειτουργεί κανονικά και προσθέτει έναν μήνα στο Ε12......

Όμως, αν ο αριθμός των ημερών είναι πάνω από 60 θα πρέπει να προσθέτει δυο μήνες, πάνω από 90 τρεις κτλ. υποψιάζομαι ότι θα πρέπει να χρησιμοποιήσω or ή and αλλά δεν ξέρω πώς....

Μπορεί κάποιος να βοηθήσει στην σύνταξη της IF μέχρι και τις 90 ημέρες;


Υπάρχει άλλος τρόπος να μετατρέψεις τον πλεονάζων χρόνο σε μονάδες ανώτερης τάξης;

Άβαταρ μέλους
dva_dev
Script Master
Δημοσιεύσεις: 3790
Εγγραφή: 16 Σεπ 2005 01:32
Επικοινωνία:

Πρόσθεση Συμμιγών Αριθμών

Δημοσίευση από dva_dev » 25 Φεβ 2013 18:48

Δεν σε βολεύει να τα κάνεις πρόσθεση ανά 2;

(Ε1,Μ1,Η1) + (Ε2,Μ2,Η2)
(...) + (Ε3,Μ3,Η3)
(...) + (Ε4,Μ4,Η4)

Τι σημαίνει πλεονάζων χρόνος και πως τον υπολογίζεις;

dimigo
Δημοσιεύσεις: 44
Εγγραφή: 19 Μαρ 2004 17:08

Πρόσθεση Συμμιγών Αριθμών

Δημοσίευση από dimigo » 25 Φεβ 2013 21:14

dva_dev έγραψε:Δεν σε βολεύει να τα κάνεις πρόσθεση ανά 2;

(Ε1,Μ1,Η1) + (Ε2,Μ2,Η2)
(...) + (Ε3,Μ3,Η3)
(...) + (Ε4,Μ4,Η4)

Τι σημαίνει πλεονάζων χρόνος και πως τον υπολογίζεις;
... έχω να προσθέσω τέσσερις αριθμούς του τύπου Έτη, Μήνες, Ημέρες σε τρεις στήλες κι έστω ότι βρίσκω άθροισμα 20 Έτη, 25 Μήνες και 78 Ημέρες. Στον αριθμό αυτό ότι είναι πάνω από τις βασικές μονάδες θέλω να προστίθεται στην επόμενη, δηλαδή: οι 78 ημέρες να γίνονται 2 Μήνες (2*30) και 18 Ημέρες. Έπειτα οι 2 μήνες με τους 25 που ήδη έχω γίνονται 27 που σημαίνει 2 Έτη (2*12) και περίσσευμα 3 μήνες.

Τελικό αποτέλεσμα: 22 Έτη, 3 μήνες και 18 ημέρες.

Θα μου πείτε γιατί δεν το κάνεις χειροκίνητα!! Γιατί θέλω οι μετατροπές αυτές να γίνονται αυτόματα από το excel.

Άβαταρ μέλους
nikosdimos
Δημοσιεύσεις: 70
Εγγραφή: 22 Σεπ 2007 17:07

Πρόσθεση Συμμιγών Αριθμών

Δημοσίευση από nikosdimos » 25 Φεβ 2013 22:23

Μονομιάς δεν νομίζω να γίνεται, έτσι όπως το σκέφτομαι είναι να το κάνεις ανά πεδίο. Δηλαδή πρώτα τις μέρες να τις περάσεις στους μήνες, μετά τους μήνες στα έτη.

Έφτιαξα ένα παράδειγμα και το ανέβασα εδώ.

Για περαιτέρω πληροφορίες να σου πω ότι οι χρήσιμες συναρτήσεις ήταν:
  • QUOTIENT: Σου επιστρέφει το ακέραιο μέρος μιας διαίρεσης.
    78 μέρες /30 μέρες/μήνα = 2.6 μήνες.
    Δηλαδή θα σου επιστρέψει 2. Το οποίο αποτέλεσμα μετά το προσθέτεις στους αρχικούς μήνες που είχες.
  • MOD: Σου επιστρέφει το υπόλοιπο μιας διαίρεσης. Αυτό το χρησιμοποιείς για να δεις αν οι μέρες και οι μήνες είναι πέραν ενός ορίου, 30 μέρες και 12 μήνες αντίστοιχα.
Συνημμένα
test.zip
(4.06 KiB) Μεταφορτώθηκε 176 φορές

Άβαταρ μέλους
dva_dev
Script Master
Δημοσιεύσεις: 3790
Εγγραφή: 16 Σεπ 2005 01:32
Επικοινωνία:

Πρόσθεση Συμμιγών Αριθμών

Δημοσίευση από dva_dev » 25 Φεβ 2013 23:56

Για δοκίμασε και αυτό
(χρησιμοποιεί τις ίδιες συναρτήσεις που αναφέρει και ο nikosdimos).
Συνημμένα
test1.zip
(8.01 KiB) Μεταφορτώθηκε 255 φορές

dimigo
Δημοσιεύσεις: 44
Εγγραφή: 19 Μαρ 2004 17:08

Πρόσθεση Συμμιγών Αριθμών

Δημοσίευση από dimigo » 26 Φεβ 2013 15:27

... είναι αυτό ακριβώς που ήθελα. Ευχαριστώ!

Μόνος μου δεν θα έλυνα το πρόβλημα που είχα, γιατί δεν γνώριζα ούτε την QUOTIENT ούτε την MOD.... Στο forum αυτό υπάρχει πάντα βοήθεια προς εμάς τους ερασιτέχνες του excel,...

Ευχαριστώ ιδιαίτερα τους nikosdimos και dva_dev για τα πολύ κατατοπιστικά παραδείγματα που έκαναν για την κατανόηση των παραπάνω συναρτήσεων. Η βοήθειά τους ήταν για μένα πολύτιμη.

Απάντηση

Επιστροφή στο “Office, Excel, Word VB Scripts και Tips”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες