رند کردن اعداد

[www.pc3enter.tk]

سلام دوستان خسته نباشید

یک سوال دارم


من یک برنامه دارم که زمان یا همان تایم می اندازه

برنامه ای که من نوشتم به طور مثال در هر دقیقه 42 تومان می اندازه که یک ساعت ان می شود 2520 تومان

و یا 5 دقیقه ی ان میشود 210


حالا اگر بخواهم این اعداد را رند نشان دهد باید چه کار کنیم
(مثل برنامه ی 7 سون در کافی نت)


باتشکر

[SlowCode]

سلام
اصطلاح رند کردن واسه اعداد اعشاری هست. شما الان میخوای 210 رو به چی رند کنه؟خودش رنده دیگه! میخوای تبدیلش کنه به 200؟ یا چی؟
توضیح کامل بده.

[mmssoft]

محسن جان درست میگن، یه کم بیشتر توضیح بده
در ضمن اگه بخوای مثلا 210 رو بکنه 200 یا 390 رو بکنه 400 ، بهش میگن گرد کردن ...

[hrj1981]

با سلام
يك مبحث تو حسابداري هست به نام روندينگ ، مثلا ميگن حقوق اشخاص رو 1000 روند بشه و به طور مثال عدد 8735 تبديل بشه به 9000
براي اينكار ما عدد مبناي روندينگ رو داريم (1000) و عدد ورودي را هم داريم ( 8735) ، خوب حالا ما سه رقم سمت راست ورودي را از عدد مبنا كسر و نتيجه را با عدد ورودي جمع ميكنيم
پروسه برنامه نويسيش فكر كنم با تحليل بالا راحتتر شد

[www.pc3enter.tk]

بله درست می گوید من مثلا می خواهم 210 را 200 نمایش بده

چون مثلا برنامه مثلا عدد را 960 نشون و طرف نمیاد از مشتری 960 بگیره میاد 1000 تومان می گیره

منظورم این بود حالا روش کد نویسی این گونه برنامه ها چطور است

[SlowCode]

بفرما:

num = 940
MsgBox Round(CDbl("." & num), 1) * 10 ^ Len(num)

یه کلک رشتی زدم، اومدم اول عدد رو به اعشاری تبدیل کردم بعد اونو رند کردم بعد ضرب در 10 به توان تعداد ارقام عدد اولش کردم.

[www.pc3enter.tk]

ممنون دوست

ولی این تا 1000 تومان کار میکنه
مثلا 1250 میزنه 1000 مشکل مال چیه

[SlowCode]

بفزما

num = 1250
MsgBox Round(CDbl("." & num), Len(num) - 2) * 10 ^ Len(num)