[ تمت الإجابة ]معادلة تقريب الصافى عاجز من حلها

السلام عليكم ورحمة الله :

أخي الكريم الحقيقة لم أحمل مرفق الأكسل انما

وضعت لك دالة مخصصة تحول العدد حسب ماتفضلتم

به من شرح أرجو أن يحقق غرضك وموفق دوما وأبدا

Ek_ChangetNuM.rar

شكرا للاخ الكريم على مجهوده

وارجوا منه بعض الشرح

اقتباس

وارجوا منه بعض الشرح

أخي الكريم أنظر الى هذه الدالة

Function NumberDeci(NumVal As Double) As Double
   Dim EDNuM As Long
   Dim EkIdFun As Double
   EDNuM = Int(NumVal)
   EkIdFun = NumVal - EDNuM
   Select Case EkIdFun
   Case Is > 0.9
   NumberDeci = EDNuM + 1
	  Case Is > 0.7
   NumberDeci = EDNuM + 0.75
	  Case Is > 0.4
   NumberDeci = EDNuM + 0.5
	  Case Is > 0.2
   NumberDeci = EDNuM + 0.25
	  Case Is < 0.2
   NumberDeci = EDNuM
   End Select
End Function

المتغير EDNuM يمثل العدد الصحيح

المتغير EkIdFun يمثل العدد الكسري

ثم طبقنا ا قاعدة Select Case على العدد العشري اللي هو EkIdFun

فطلبنا من الكود اذا كان العدد العشري اكبر من 0.9 أن يكون مجمل العدد هو العدد الصحيح + 1

واذا كان العدد العشري اكبر من 0.75 أن يكون مجمل العدد هو العدد الصحيح + 0.75

وهكذا مع بقية الخيارات كما حددت في طلبك .. سابقا ارجو أن يكون الامر واضح الأن .. موفق

شكرا اخى الكريم

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

أخ ekseer جزاك الله كل خير

كت أبحث عن نفس العملية من فترة

ولله الحمد وجدتها على يديك

فشكرا