اهمال الخانة الثانية من الكسر (معدل)

[agha4m]

aaa.accdbالسلام عليكم

هل يتكرم ويساعدني احدكم بايجاد بديل لدالة  floor

حيث انني اريد العمل كما في الصورة (ازالة اول رقم فينزل لرقم صفر )

زمرفق ملف للتعديل عليه

وشكرا

[Moosak]

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

جرب الدالة Round مثلا ..

وهذا شرح استخدامها ومميزاتها من موقع مايكروسوفت : 

https://support.microsoft.com/en-us/office/round-function-921ce538-c9a6-41e2-be87-28e685b59935

وهذه بعض الأمثلة عليها :

Round (12.55, 1)
Result: 12.6   (rounds up)

Round (12.65, 1)
Result: 12.6   (rounds down)

Round (12.75, 1)
Result: 12.8   (rounds up)

 

تم تعديل نوفمبر 6, 2022 بواسطه Moosak

[jjafferr]

وعليكم السلام 🙂

 

نعم ، قد تكون الدوال Round ، RoundUp ، RoundDown بديلة :

 

.

ولكن ، لو تخبرنا بالضبط عن المطلوب ، فقد نستطيع عمل التعديل المطلوب بدوال اخرى 🙂

 

 

ويمكنك استخدام دوال الاكسل من الاكسس مباشرة ، ولكن لا يُحبذ عمل ذلك ، لأن البرنامج سيكون ابطأ في العمل ،

واليك طريقة العمل:

 

.

او استعمال الكود التالي، وبدون اختيار مكتبة الاكسل (كما في المثال اعلاه) :

Dim objExcel as Object

Set objExcel = CreateObject("Excel.Application")
msgbox objExcel.WorksheetFunction.Floor (me.Filed_Name_in_Form, 0.1)

set objExcel=nothing

 

جعفر

[agha4m]

شكرا لجميع من ساهم في حل المشكلة

لكن

اريد 42.64

تصبح

42.60

اي اول رقم في العدد ينزل للمستوى الأدنى (0)فيتحول 0.12  او 0.13  او  0.14  او  0.15  او  0.16  او  0.17  او  018  او  019     الى  0.10 وهكذا في كل الارقام فيزيل جزء الكسر

[jjafferr]

جرب هذه المعادلة

Format([total],"0.0") & 0

 

جعفر

[agha4m]

 من 0 الى 4 ترجع 0

من 5 ال 9 بتقرب للأعلى

يعني 63.74 تصبح 63.70

63.75  تصبح 63.80

انا اريد في كل الحالات 63.70

 

[jjafferr]

طلعت النتيجة عندي صحيحة من المعادلة اعلاه !!

 

طيب جرب

Mid([total],1,Len([total])-1) & 0