چگونه سه رقم آخر یک عدد صحیح غیر اعشاری را به سمت بالا یا پایین روند کنیم ؟

چگونه سه رقم آخر یک عدد صحیح غیر اعشاری را به سمت بالا یا پایین روند کنیم ؟

سلام بر دوستان روز بخیر
یک فایل داریم حاوی چند عدد تصادفی غیر اعشاری
مهم:::::اعداد غیر اعشاری هستند
هدف : اگر سه رقم اخر اعداد 000 سه تا صفر نبود
به سمت بالا یا پایین روند شود
با سپاس

فایل نمونه
http://s16.picofile.com/file/8412977600/round_test.rar.html

نقل قول:

---

نوشته شده توسط narpco

چگونه سه رقم آخر یک عدد صحیح غیر اعشاری را به سمت بالا یا پایین روند کنیم ؟

سلام بر دوستان روز بخیر
یک فایل داریم حاوی چند عدد تصادفی غیر اعشاری
مهم:::::اعداد غیر اعشاری هستند
هدف : اگر سه رقم اخر اعداد 000 سه تا صفر نبود
به سمت بالا یا پایین روند شود
با سپاس

فایل نمونه
http://s16.picofile.com/file/8412977600/round_test.rar.html

---

Private Sub btn_roundDOWN_Click()

    Text23 = Int(inumber / 1000) * 1000

End Sub



Private Sub btn_roundup_Click()

    ronded = Int(-inumber / 1000) * -1000

End Sub

اگر بخواهید به نزدیکترین هزارگان (بالا یا پایین) گرد بشه :

    Text44 = Round(inumber / 1000) * 1000

سلام بسیار عالی دقیق کوتاه و کاربردی بود ......بسیار سپاسگزارم ....