رند کردن تقسیم

[shervin_boy]

سلام
من یه برنامه بانک خانواده نوشتم. می خوام برای راحتی بازپرداخت وام اگه
هر قسط برابر 137/526 تومانه برنامه بیاد 130/000 جدا کنه و باقی مانده (7/526) هر ماه رو به آخرین قسط اضافه کنه
شدنی هست؟
با تشکر فراوان

[محمد فدوی]

کار نشد نداره.

Dim original As Integer
Dim rounded As Integer

original = 137526
rounded = (original \ 10000) * 10000

کافیه بدهی این ماه فرد رو rounded (مقدار گرد شده) در نظر بگیری و اختلاف original و rounded رو به عنوان بخشی که نادیده گرفته شده به ماه بعد اضافه کنی.

[علیرضا5]

Text1.Text = 137.526
Text2.Text = (Int(Text1.Text / 10)) * 10
Text3.Text = Text1.Text - Text2.Text