تقريب الى اقري 250 دينار

ياريت احد ايجاوب لين فعلا ماكو حل

اخي الكريم

للتحويل الى عدد صحيح يمكن استخدام clng

dim x as long

x=clng(455.2)

تكون النتيجة في x هي 455 لكن اذا كانت الاعشار اكبر من 5 سيتم التقريب الى العدد الاكبر اي تصبح النتيجة 456 لكن يمكن تجوازها كما يلي

y=455.6

x=clng(y)

if x>y then x=x-1

لمعرفة كم 250 في العدد

x=clng(y)/250

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

if x * 250> y then x=x-1

حيث يكون في x عدد ال 250

الأخ الفاضل ...

للتقريب لأقرب 250 عن طريق حذف الكسور (أى الرقم 490 سوف يقرب إلى 250) يمكن استخام الكود التالى

Public Function Get250Floor(num As Double) As Long
	Get250Floor = Int(num / 250) * 250
End Function

للتقريب لأقرب 250 عن طريق تقريب لأقرب وحدة (أى الرقم 490 سوف يقرب إلى 500) يمكن استخام الكود التالى

Public Function Get250Round(num As Double) As Long
	Get250Round = Round(num / 250) * 250
End Function

شكراً

____________________250.rar