[Tasos]

Γεια σας!

Στα προϊόντα της Microsoft υπάρχουν αρκετές μέθοδοι στρογγυλοποίησης μια τιμής.

Αυτές οι μέθοδοι, μοιάζουν μεταξύ τους αλλά καμία δεν κάνει ακριβώς τη δουλειά της RounUp() της Excel (που είναι το ζητούμενο του θέματος)

Τι κάνουμε λοιπόν; Υπολογίζουμε στην Access με τη βοήθεια της Excel.

Πως;

• Πατάμε ALT+F11 για να εμφανίσουμε τον VBE.
• Εισάγουμε μια νέα λειτουργική μονάδα (Menu: Insert > Module) ή χρησιμοποιούμε τυχόν υπάρχουσα.
• Προσθέτουμε (τσεκάρουμε) την αναφορά: Microsoft Excel XX.0 Object Library (Menu: Tools>References)
  όπου XX.0 = η έκδοση Excel που υπάρχει στον υπολογιστή.

Στο παράθυρο της λειτουργικής μονάδας περνάμε το παρακάτω:

Function XLRoundUp(Number#, Optional Num_Digits% = 0) As Double
    XLRoundUp = Excel.WorksheetFunction.RoundUp(Number, Num_Digits)
End Function

και αποθηκεύουμε.

Στο πεδίο της φόρμας ή του ερωτήματος που θα εμφανίζεται το αποτέλεσμα
περνούμε τον τύπο:

=XLRoundUp([MyNunber];Num_Digits) που συμπεριφέρεται όπως η Excel (είναι Excel)

όπου:

• [MyNunber] = το πεδίο που περιέχει τον αριθμό που θα στρογγυλοποιηθεί προς τα πάνω
• Num_Digits = ο αριθμός των ψηφίων, στα οποία θα στρογγυλοποιηθεί ο αριθμός

Έτσι, για τον αριθμό 640,325 ο τύπος: =XLRoundUp([MyNunber];2) θα μας επιστρέψει 640,33.

Φιλικά

Τάσος