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

[narpco]

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

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

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

[the king]

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

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

فایل نمونه
http://s16.picofile.com/file/8412977600/round_test.rar.html (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

[narpco]

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