تقريب الكسور العشرية بحقل بالاكسس

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء 

لدي كود بنموذج يساوي كود بنموذج اخر مضروب بنسبة (0.0025)  لكن اغلب النتائج تظهر بالكسور مثلا الحقل ( 30,100=n28) * (0.0025) =(75,25) 

Forms![form1_1]![n28] = Me![MAG] * 0.0025

المطلوب : اذا كانت النتيجة فيها كسر = 75,5  فهي مقبولة

اذا كانت النتيجة للكسر اكبر من 5 تتحول الى 1  قيصبح المجموع (76)

اذا كانت النتيجة للكسر اقل من 5 تتحول الى 0  قيصبح المجموع (75)

علما انني جربت الدوال التالية (Int,Round,Fix) ولم تنفع اعتقد يمكن عملها بدالة iff

تحياتي للجميع

تم تعديل يوليو 31, 2021 بواسطه Ahmed_J

[Eng.Qassim]

  في 31‏/7‏/2021 at 07:19, Ahmed_J said:

السلام عليكم اساتذتي الاعزاء 

لدي كود بنموذج يساوي كود بنموذج اخر مضروب بنسبة (0.0025)  لكن اغلب النتائج تظهر بالكسور مثلا الحقل ( 30,100=n28) * (0.0025) =(75,25) 

Forms![form1_1]![n28] = Me![MAG] * 0.0025

المطلوب : اذا كانت النتيجة فيها كسر = 75,5  فهي مقبولة

اذا كانت النتيجة للكسر اكبر من 5 تتحول الى 1  قيصبح المجموع (76)

اذا كانت النتيجة للكسر اقل من 5 تتحول الى 0  قيصبح المجموع (75)

علما انني جربت الدوال التالية (Int,Round,Fix) ولم تنفع اعتقد يمكن عملها بدالة iff

تحياتي للجميع

Expand  

وعليكم السلام.. استخدمت الدالة وكانت النتيجة كماتريد

=Round(([Forms]![frmProjects]![frmPaid]![txtpaidTotal])*0.0025)

 

[Ahmed_J]

السلام عليكم استاذ @Eng.Qassim

لكن لو كان الرقم بالحقل ( 30,200=n28) * (0.0025) =(76)  وهذا خطا بالنسبة لي  المفروض يبقى (75,5)

وشكرا لك  استاي العزيز 

[Eng.Qassim]

اعتقد هذا الموضوع يفيدك

 

 

[Ahmed_J]

شكرا لك استاذي العزيز

لكني جربت دالة round لكن النتيجة غير مطابفة معي

 

[husamwahab]

جرب هذا الكود

 

Database1.rarFetching info...

[Ahmed_J]

شكرا لك استاذ @husamwahab

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

الرجاء ملاحظة الكود  واصبح التالي لو كان فيه خطا

Forms![form1_1]![n13] = IIf([MAG] * 0.0025 - Int([MAG] * 0.0025) = 0.5, [MAG] * 0.0025, Int([MAG] * 0.0025 + 0.5))

تحياتي لك

[Eng.Qassim]

  في 31‏/7‏/2021 at 13:41, Ahmed_J said:

شكرا لك استاذ @husamwahab

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

الرجاء ملاحظة الكود  واصبح التالي لو كان فيه خطا

Forms![form1_1]![n13] = IIf([MAG] * 0.0025 - Int([MAG] * 0.0025) = 0.5, [MAG] * 0.0025, Int([MAG] * 0.0025 + 0.5))

تحياتي لك

Expand  

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

[Hawiii]

جرب هذه الدالة ، ضعها في موديول ثم استخدمها في معادلاتك كما تستخدم الدالة الأصل Round

Function myRound(Number As Double) As Double
  If Number - Fix(Number) = 0.5 Then
    myRound = Number
  Else
    myRound = Round(Number, 0)
  End If
End Function

 

[Ahmed_J]

السلام عليكم استاذ @Hawiii

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

Forms![form1_1]![n13] = myRound(Me![MAG] * 0.0025)

وشكرا لك

[Hawiii]

  في 3‏/8‏/2021 at 05:30, Ahmed_J said:

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

Forms![form1_1]![n13] = myRound(Me![MAG] * 0.0025)

Expand  

نعم صحيح
ويمكنك التخلص من الأقوس المربعة فلا داعي لها هنا .. وربما بعد إزالتها ستضظر لتبديل علامة التعجب (!) بالنقطة (.) غير متأكد ولكن اللغة سوف تساعدك في حال وجود خطأ برمجي.

[Hawiii]

  في 3‏/8‏/2021 at 05:38, Hawiii said:

Forms![form1_1]![n13] = myRound(Me![MAG] * 0.0025)

Expand  

ويمكن كتابتها كالتالي:
 

Forms("form1_1").n13 = myRound(Me.MAG * 0.0025)

 

[Ahmed_J]

شكرا لك استاذ @Hawiii

بارك اله فيك