حذف الارقام العشرية

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

بافتراض أن لديك جدولا اسمه Table1 ، واسم الحقل Number ، وبه مجموعة من القيم ذوات الخانات العشرية الثلاث. إفتح استعلاماً جديداً وأدخل الأمر التالي

SELECT (INT(Number * 100))/100 AS [Trimmed Decimal] FROM Table1;

بالتوفيق،

عبدالله،،،

اخي الفاضل

استخدم هذا التعبير في الإستعلام بهذه الطريقة

Result: Format((Int([sNumber]*0.75*100)/100);"Fixed")

عددين عشريين بعد الفاصلة بدون تقريب

لا تنسانا من التقييم بارك الله بك

za-QryNumber.rar

بالتوفيق

وإذا احتجت إلى نقل الفكرة بحيث تصبح دالة تستفيد منها خلال برنامجك كاملا، أنشيء وحدة جديدة Module ، وأدخل الأسطر التالية:

Option Explicit

Public Function TrimDec(dblInput As Double, lngDecPlaces As Long) As Double
'On Error GoTo Error_Handler

    'Raise number of decimal places to power of 10
    lngDecPlaces = 10 ^ lngDecPlaces

    'Trim the double variable to intDecPlaces
    TrimDec = (Int(dblInput * lngDecPlaces)) / lngDecPlaces

Exit_Here:
    Exit Function

Error_Handler:
    Debug.Print Err.Number & ": " & Err.Description
    TrimDec = 0
    'Extra code goes here in case the function returned wrong values
    '

End Function

هذه الدالة تُعطيك مرونة أكبر، رغم بعض المحاذير المتعلقة بها. فهي تستقبل منك متغيران؛ الرقم العشري، وعدد الخانات المطلوب احتسابها. تستطيع إستخدامها بإصدار الأمر كالتالي:

TrimDec(246.675, 2)

ولكي نستخدم دالتنا الجديدة TrimDec مع الإستعلامات مُباشرة، نستطيع أن نُعيد كتابة الإستعلام على الشكل التالي

SELECT TrimDec(Number,2) AS [Trimmed Decimals] FROM Table1;

نقطة أخيرة، إذا زادت خانات الرقم العشري عن خمسة، فسوف تبدأ الدالة في التقريب العشري، وهو حسب فهمي ما لا تريده.

بالتوفيق،

عبدالله،،،

بارك الله فيكم

و يعطيكم علي قدر نيتكم

جزاكم الله خيرا اخواني الكرام

وفقنا الله واياكم لما فيه الخير

تحياتي

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

اخواني الكرام

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

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

المشكلة باختصار اذا قمت بضرب قيمة الحقل sNumber * 0.5 مثال :

506.91 * 0.5 = 253.45

اما اذا قمت بضرب قيمة الحقل sNumber * sNumbe1

مثال : 506.91 * 0.5 = 253.46

لاحظوا معي الفرق بين الناتج الاول 253.45 والناتج الثاني 253.46

المشكلة موضحة بالصورة

مرفق الملف الذي به المشكلة

Up-za-QryNumber.rar

ولكم جزيل الشكر مقدما

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

تفضل اخي الكريم

لا تنسانا من التقييم بارك الله بك

za-QryNumber-END.rar

بالتوفيق

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

طبعاً وكما جرت العادة فإن المتألقة الأستاذة زهرة كل المواسم لم تبخل علينا بعلمها

أحببت أن أقوم بتعديل صغير من بعد إذن الأخ Ab Techno في دالته لتعطينا النتائج الصحيحية

والتعديل هو إضافة Cdec :

	'Trim the double variable to intDecPlaces

 TrimDec = Int(CDec(dblInput) * lngDecPlaces) / lngDecPlaces

وإليكم المرفقات بعد التعديل

وسلامي وتحياتي لأستاذتنا الجليلة ولكم ياأخوتي الأفاضل

za-QryNumber-END2.rar

ما شاء الله مبدعة كعادتك اختى الفاضلة زهرة المنتدى

وجزيل الشكر لاخونا الفاضل إياد بيك لتعديل الدالة

وجزاكم الله خيرا اخواني الكرام

تحياتي