رند کردن اعشاری

[ff7ss]

سلام

دوستان عزیز اگر امکان رند کردن قسمت اعشاری یک عدد به شرح ذیل امکان پذیر است لطفاً راهنمایی بفرمائید :

1 - اگر عدد اعشاری بین 01 - 24 باشد پس رند به سمت صفر. مثال : 1 <---- 1.24

2 - اگر عدد اعشاری بین 25 - 50 باشد پس رند به سمت نیم. مثال : 1.5 <---- 1.43

3 - اگر عدد اعشاری بین 75 - 51 باشد پس رند به سمت نیم. مثال : 1.5 <---- 1.66

4 - اگر عدد اعشاری بین 99 - 76 باشد پس رند به سمت عدد صحیح بعدی. مثال : 2 <---- 1.80

با تشکر

[s.cheraghi]

RE: رند کردن اعشاری

با سلام
یک فایل براتون آماده کردم
توش هم با استفاده از شرط های تو در تو و هم با استفاده از یک تابع که با VB نوشته شده قرار دادم
امیدوارم بدردتون بخوره