تابع RoundUp در اکسس

بسم الله الرحمن الرحیم

سلام

 

قطعا شما هم با تابعRoundUp و توابع زیر مجموعه آن (به تعبیری) مثل RoundUp در اکسل آشنا هستید. (اطلاعات بیشتر در فرساران)

ولی مشکل جایی خودنمایی میکنه که شما در اکسس این تابع رو پیدا نخواهید کرد!

پس با استفاده از یک فانکشن، این تابع رو به توابع برنامه خودتون اضافه کنید و در موارد لزوم ازش بهره‌مند شوید.

در بخش ماژول‌های اکسس اقدام به ایجاد یک ماژول خام کنید و کدهای زیر رو درونش قرار بدین؛

Public Function RoundUp(number As Double, significant As Integer) As Double
'Published by Access-Training.blog.ir'
'You are allowed to expand this module. Please do not delete the publisher name.'

Dim m As Double
RoundUp = Round(number, significant)
m = Round(number, significant + 1)

If RoundUp < m Then
   RoundUp = RoundUp + (1 / (10 ^ significant))
End If

End Function

---

اگر سوالی بود در بخش نظرات اعلام کنید