نوشته شده توسط
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