*كود* تقريب الي الاعلي و الادني بدرجة محددة

للرفـــــــــــــع

لا أعتقد بوجود دالة جاهزة

حاولت عمل دالة علي السريع و لم أنجح بعد و ساحاول ثانية قريبا باذن الله

جرب هذه

Function ROUNDTO(MYNO As Double, MyFraction As Double)
Dim MYBASE As Double, MYREM As Double
MYNO = MYNO * 100
MyFraction = MyFraction * 100
MYREM = MYNO Mod MyFraction
'MsgBox "rem : " & MYREM
MYBASE = MYNO - MYREM
'MsgBox "Base : " & MYBASE

 If MYREM > 0 Then
  If MYREM > MyFraction / 2 Then
  ROUNDTO = MYBASE + MyFraction
  Else
  ROUNDTO = MYBASE
  End If
 Else
  ROUNDTO = MYNO
 End If
 ROUNDTO = ROUNDTO / 100

End Function

ملحوظة

اتضطررت للضرب فى 100 أولا ثم القسمة بعد ذلك

لأن الدالة Mod لم تعمل مع الكسور فكان هذا الحل للتحايل

شكرا جزيلا اخى محمد واود ان اضيف هذا الكود ايضا والذى حصلت عليه من مايكروسوفت

Public Function Ceiling(x,y)
y*(Int(x/y)-(Int(x/y) <> x/y))
End Function

وقد عمل بطريقة جيدة ولكن لم اجربه بالنسبة للأرقام السالبة

وشكرا لله ان جعل فى هذا المنتدى مبرمجا نشيطا مثلك

واود ان اسال سؤال اخر ما معنى " للـــرفع ""

عصام ربيع

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

(( يعني لا تنسوا تردوا على هذا الموضوع ))

أهلا عصام

فينك من زمان

ثانيا

ماذا تقصد ب حصلت عليها من ميكروسوفت

ثالثا

الدالة من ميكروسوفت تقرب للاعلي فى جميع الاحول

أي بتقريب 1.53 بدرجة 0.25 تكون 1.75 و ليس 1.5 كما هو المفروض

و لكن تنجح فى تقريب 1.72 بدرجة 0.25 الي 1.75 فقط