السلام عليكم و رحمه الله و بركاته
الاخوة المشرفين و الاعضاء
ممكن دالة لوضعها داخل استعلام لحساب المرتبات تقوم بقطع الارقام العشرية الى رقمين بدون تقريب مثل 75.233 الى 75.23
و ايضا 75.239 الى 75.23 بدون تقريب لاعلى او لاسفل
و اذا امكن مثال للتوضيح يكون به عمليات حسابية
سبحان الله و بحمده سبحان الله العظيم
اخي الكريم اهلا بك،،،،
دالة التقريب الموجوه في اوفيس أكسس وإكسل هي :
Round([Expression],NoDigits)
مثال: لديك حقل في استعلام،، اسم الحقل X
اكتب:
Expr1:Round([X],2)
هكذا تقرب الحقل X الى اقرب منزلتين،،،
طبق الدالة على اي تعبير حسابي او حقل رقمي وشاهد النتائج...
همام
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
السلام عليكم و رحمه الله و بركاته
اخى الكريم همام
شكرا جزيلا على المتابعة و الرد السريع
سوف اقوم بالتجربة و الرد عليك
جزاك الله كل خير
شكرا
سبحان الله و بحمده سبحان الله العظيم
الأخ الفاضل ...
يمكنك استخدام INT بالطريقة التالية:
Private Sub Form_Load() Dim Salary As Currency Salary = 75.233 MsgBox SalaryRound(Salary) Salary = 75.239 MsgBox SalaryRound(Salary) End Sub Private Function SalaryRound(Salary As Currency) As Currency SalaryRound = Int(Salary * 100) / 100 End Function
للمزيد راجع: الطرق المختلفة للتقريب
شكراً
تم تعديل هذه المشاركة بواسطة Eng. Usama El-Mokadem في 17 ديسمبر 2007 في 19:20
Nothing is impossible, the word impossible itself says that: I M - Possible
الاخوة الكرام الدالة تقو بالتقريب و انا لا اريد التقريب بل اريد ان تقوم الدالة بازالة الرقم الثالث بعد العلامة العشرية اينا كان مثل
مثل 75.233 الى 75.23
و ايضا 75.239 الى 75.23 بدون تقريب لاعلى او لاسفل
سبحان الله و بحمده سبحان الله العظيم
اخي الكريم عذرا لم انتبه لهذه النقطة من سؤالك،،
لكن بخصوص هذا اقول:
يمكن استخدام دوال معالجة النصوص: Left, Right Trim,Mid, Instr وغيرها ولكن لم اجربها مع ارقام،،
ساحاول ما استطيع من عمل في كل هذه...
همام
تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 17 يونيو 2007 في 13:33
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
Eng. Usama El-Mokadem كتب:= Int(Salary * 100) / 100للمزيد راجع: الطرق المختلفة للتقريب
تم تعديل هذه المشاركة بواسطة Eng. Usama El-Mokadem في 17 ديسمبر 2007 في 19:20
Nothing is impossible, the word impossible itself says that: I M - Possible
بعد اذن اخواني الاعزاء
اخي عادل
اعتقد بانك لا تحتاج في هذه الحالة الى دالة وبامكانك التحكم في عرض اي رقم او نتيجة بالنموذج او التقرير من خلال تغيير خاصية مربع النص المحتوي لهذه القيمة
الى الاتي
Format الى Fixed
Decimal Places الى 2
وسوف يظهر معك بالصورة المطلوبة
ارجو ان يكون هو ما تبحث عنه
واليك مثال على ذلك
وبالتوفيق
آسف هذا هو المثال
معذرة اخي اسامة
نعم هو بالفعل حلك الصحيح
بارك الله فيك ونفع بعلمك
معذرة مرة اخرى
الأخ الفاضل ... يوسف احمد
لا داعى للاعتذار، بالعكس انا استفيد من اى مشاركة يتم طرحها
وانت لك مشاركات كثيره متميزه :) وتحمل دائما افكار جديده
وكلما تعددة الحلول كلما عمت الفائده أكثر، أن لم يكن للسائل، فلمن يبحث عن نفس المسائلة مستقبلاً
شكراً
Nothing is impossible, the word impossible itself says that: I M - Possible
السلام عليكم
اود اسأل سؤال عن التقريب او بمعنى اصح عدم التقريب في الأكسس
اى باختصار نريد الارقام الصحيحة فقط بدون تقريب
علماً بأن هذا ممكن في الاكسل بواسطة الدالة TRUNC وهذه الدالة غير متاحة في الأكسس
شكراً
مبرمج مبتدئ...
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…