اذا كان هناك رقم ويحتوى على كسر اريد تقريبه لرقم معين
مثل
150.12 هذا المبلغ اريد تقريبه الى 150.25 أو لو الرقم 150.42 يتم تقريبه الى 150.50 او لو الرقم 150.78 يتم تقريبه الى 151 وهكذا
ياترى الحل ايه
جربت دالة Round مش وصلت للمطلوب
واهم جزء لو الرقم مثلا 150.96 يتم تقريبه الى 151 جنيه
مع خالص تقديري للمنتدى
تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 24 فبراير 2009 في 16:13
السلام عليكــم ورحمـة الله وبركاتــة ،،
أخي الكريم جرب هذا الفانكشكن ممكن يساعدك
Public Function MBRound(Vin)
Dim vinn As Double
If IsNull(Vin) Then
MBRound = 0
Else
If (Vin - Int(Vin)) >= 0.5 Then vinn = Int(Vin) + 1 Else vinn = Int(Vin)
MBRound = vinn
End If
End Function
تحياتي
من مواضيعي
برنامج لإدارة مؤسسة نقل الطالبات
_______________________
سبحان الله وبحمده سبحان الله العظيم
وعليكــم السـلام ورحمة الله وبركاتـه..
اخي الكريم ..
هذا مثال من الاخ العزيز اكسير الحياة بس لا تنساه من دعائك ....
ابو عدنان ...
الاخ محمد سمير اشكرك على ارشادى للحل
والشكر كل الشكر للاخ اكسير الحياه
وجزاكم الله خيراً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…