ROUND Ζητούμενη ακρίβεια στρογγυλοποίηση

[kapetang]

Καλησπέρα Δημήτρη

Συγκρίνοντας το γενικό τύπο με τον τύπο για 2 δεκαδικά νομίζω ότι στο γενικό πρέπει να προστεθούν κάποιες παρενθέσεις.

Συγκεκριμένα πιστεύω ότι πρέπει να γίνει:

Round_ok (x,2)=Round(Int(x * (10 ^ (n + 1))) / (10 ^ (n + 1)) + 1 / (10 ^ (n + 2)), n)

Παρακάτω βλέπουμε μια δοκιμή στο παράθυρο Immediate της VBA

x=402.4250000
n=2
?Round(Int(x * (10 ^ (n + 1))) / (10 ^ (n + 1)) + 1 / (10 ^ (n + 2)), n)
402,43 <---------------------σωστό
?round(x,2)
402,42 <---------------------λάθος

[dimmag]

Αρχική Δημοσίευση από kapetang

Καλησπέρα Δημήτρη

Συγκρίνοντας το γενικό τύπο με τον τύπο για 2 δεκαδικά νομίζω ότι στο γενικό πρέπει να προστεθούν κάποιες παρενθέσεις.

Συγκεκριμένα πιστεύω ότι πρέπει να γίνει:

Round_ok (x,2)=Round(Int(x * (10 ^ (n + 1))) / (10 ^ (n + 1)) + 1 / (10 ^ (n + 2)), n)

Παρακάτω βλέπουμε μια δοκιμή στο παράθυρο Immediate της VBA

x=402.4250000
n=2
?Round(Int(x * (10 ^ (n + 1))) / (10 ^ (n + 1)) + 1 / (10 ^ (n + 2)), n)
402,43 <---------------------σωστό
?round(x,2)
402,42 <---------------------λάθος

Σωστό για τις παρενθέσεις το έγραψα βιαστικά
η φιλοσοφία είναι να αφήνω 1 παραπάνω δεκαδικό από όσα θέλω να στρογγυλοποιήσω και να προσθέτω μικροποσότητα και αν το προχωρήσουμε την χρειάζεται μόνο όταν το επόμενο ψηφίο του ψηφίου στρογγυλοποίησης είναι 5 και έπονται μηδενικά δηλ αν

Int(x * (10 ^ (n + 1))) Mod 10 = 5 and (x -Int(x * (10 ^ (n + 1))) / (10 ^ (n + 1))) =0

γιατί τότε αν δεν κάνω λάθος δεν δουλεύει σωστά η round στην access

Γενικά η Int(x * (10 ^ (n + 1))) / (10 ^ (n + 1)) είναι χρήσιμη να περιορίζουμε τα δεκαδικά ψηφία σίγουρα σε n.
Ευχαριστώ

[kapetang]

Δημήτρη σωστά κατάλαβες ότι η Round, κάποιες φορές, όταν η ποσότητα που θα αποκοπεί είναι κοντά στο 0,5 (πχ 0.500000000000 ή 0.4999999999999) του τελευταίου ψηφίου που θα μείνει, δε δίνει σωστό αποτέλεσμα.

Θεωρώ χρήσιμο τον τύπο που πρότεινες.

Να είσαι καλά και καλή συνέχεια.

[pakos]

Καλησπερα
υπαρχει και αυτη η λυση


iif(RIGHT(ROUND([Ποσό];3);1)=5;ROUND([Ποσό]+0,001;2);ROUND([Ποσό];2))


ή

IF RIGHT(ROUND(ME.FIELD,3),1)=5 THEN
ME.FIELD = ROUND(ME.FIELD+0,001,2)
ELSE
ME.FIELD = ROUND(ME.FIELD,2)
END IF

η οποία δουλευει