سؤال حسابي في الاستعلام

أخي العزيز جرب هذه الداله

private function xy (numValue as currency) as currency

dim strValue as string

dim strInt as string

dim strFact as string

strValue=format(nymValue,"00.00")

strint=left(strvalue,len(strvalue)-3)

strfact=right(strvalue,2)

if val(strFact) <=50 then strfact="00"

if val(strFact) =>85 then strfact="50"

strvalue=strInt & "." & strFact

return val(strvalue)

end function

أرجوا من الله الإفاده ان كانت صحيحة والمغفرة إن كانت خطأ

اسعد الله صباحك اخ KHALED-AFIFI وفقك الله لكل خير ان شاء الله

اسعدت جداً بردك ولكن كيف تعمل هذة الدالة فلقد جربت وعملت (Module) وعملت نموذج ولكن لم تعمل فتكرم علي انت والاخوة الاعزاء وشرح لي طريقة عمل هذة الدالة او اين اضعها مع جزيل الشكر .

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

جربت فكرة الاخ خالد بواسطة اكسل حسابيا وليس برمجيا ولكن عندما اكتب 11.40 يظهر الرقم بعد الفاصلة هكذ ا 4. فمن لدية الحل في سؤالي الاول عن كيفة وضع كود الاخ خالد وكيفة الغلب على المشكلة في سؤالي الثاني طبعا كلة في الاكسس مع جزيل الشكر .

للــــــرفع وعدم نسياني(f):confused::confused:

شباب اذا كان سؤال صعب عليكم انساة فصحتكم اهم من كل شيئ :'((clock)(gift)(f)

أخي الكريم

السلام عليكم

السؤال سهل جداً ولكن قبل أن أجيب أرجو منك الإجابة على ما يلي :

1- ما حدود الأرقام التي تريد التحكم بها هل هي مثلاً بين العشرة والعشرين أم ماذا

2- ماذا لو كان الكسر بين 50 و 84 ما التصرف في هذه الحالة

الرجاء التحديد حتى نستطيع كتابة دالة مناسبة لذلك

أخوك / أبو هاجر

بالنسبة لسؤالك الاول(ما حدود الأرقام التي تريد التحكم بها هل هي مثلاً بين العشرة والعشرين أم ماذا ) مثل المثال التالي :

11.85 اي (من 1 لغاية 20)

والسؤال الثاني (ماذا لو كان الكسر بين 50 و 84 ما التصرف في هذه الحالة) فهذا مااريد وهو لو اتى الرقم 10.40 يأتي 4..10 واذا اتى الرقم 1.58 يأتي 1.58. واذا كان 11.75 يأتي 11.50 وهو صحيح اما اذا اتى 11.70 فيأتي 7..11

والف الف الف شكر على ردك

أخي الكريم

السلام عليكم

أعتقد أن تعليقك الأخير خرج عن الحدود التي رسمتها في بداية سؤالك فتحويل الرقم 10.40 إلى 4..10 معناه أن يتحول إلى نص لأن 4..10 ليست صيغة رقمية كما تعلم

على كل هناك دالة ستفيدك كثيراً هي دالة Mod آمل منك قراءة كيفية استخدم هذه الدالة ومحاولة استخدامها بنفسك وأنا جاهز للمساعدة لكن بالطبع شريطة أن أحصل منك على مزيد من التوضيح فالصورة لدي لا يزال فيها غبش لأنك لم تعطنى حتى الآن قاعدة واضحة أسير عليها ويمكن أن أكتب لك دالة على أساسها

تحياتي

أخوك / أبو هاجر

اعنذر منك اخي ابو هاجر فلم اشرح ماافصد مرفق مثال عما اريدة اخي ابو هاجر ففي مجموع zakwan يأتي الرقم 20.92 وايدة ان يأتي 20.50 والآخر ايضاً Omar يأتي 16.42 وايدة ان بأتي 16.00 وايضا suzan 6.50 يبقى 6.50 اي بمعنى اي رقم بعد الفاصلة اذا كان اكبر من 50 يصبح 50 واقل من 50 يصبح 00 مثال 20.92 تصبح 20.50 و 8.44 تصبح 8.00 و 3.30 تصبح 3.00 و 6.50 تبقى 6.50

مع خالص تقديري واحترامي

نسيت الملف المرفق

annual_leave_provision.zip

أخي الكريم

السلام عليكم

الآن أصبحت الصورة واضحة تماماً

استخدم الدالة التالية في سطر الاستعلام مع تغيير حقل num إلى اسم الحقل الذي يحتوي على الرقم الذي تريد تحويله

result: Switch(([num]-Int([num]))>0.5;Int([num])+0.5;([num]-Int([num]))<0.5;Int([num]);([num]-Int([num]))=0.5;[num])

آمل التجربة والإفادة

أخوك / أبو هاجر

موضوع شيق

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

مهما قلت فلن اجد كلمة تعبر لك عن صادق امتناني وشكري واقول لك ادام الله عليك الصحة والعافية اخي ابو هاجر (f)(f)(f)(f)(f)(f)(f)(f)(f)