بسم الله الرحمن الرحيم
بعد إجراء عملية حسابية إحياناً يخرج الناتج فى الحقل هكذا 8.873333333
ما أريد تنفيذه فى المرفقات هو أن يكون الناتج هكذا 8.87
على أن لا يتم تقريب آى رقم بعد العلامة يعنى الرقم 8.87 لا يبقى 8.9 بعد التقريب
يعنى رقمين بعد العلامة أو رقم دون تقريب للأرقام
قمت بوضع ماسك لم ينفع - و طبعاً خواص الـ Fixed و Standard أيضاً لا تنفع
أرجوا أن يكون السؤال واضح و أرجوا أن أجد الحل
خالص شكرى و تحياتى.
السلام عليكم
اخي الكريم
عمليات الحسابات لاتتم في الجداول
وانما تتم في الاستعلامات
ومن ثم ابني نموذجك على الاستعلام
اسالك ماهي العملية بين الحقول الثلاثة؟؟؟؟
أخى الكريم
ما دمت تريد اجراء عمليات حسابية
يفضل أن يكون نوع البيانات فى الجدول أرقام و ليس نصوص
عموما جرب هذا التعديل على كود الحساب
hdd = (RHt) / 45 * (Ret) Me.Correct.Text = Int(hdd) + Left(hdd - Int(hdd), 4)
بسم الله الرحمن الرحيم
سلام الله عليكم ورحمتة وبركاتة
أخوانى الأعزاء أشكر لكم تفاعلكم معنا
أخى omr_g الوضع Standard مع الـ Decimal Places يعطى النتيجة لكن نتيجة ظاهرية فقط يعنى يتم تسجيل الرقم كامل و الدليل على هذا
عند وضع المؤشر فى الخانة الحسابية تظهر كل الأرقام و تدخل معنا عند إستعمال هذا الحقل فى الحساب وليس هذا المطلوب ...عموماً بارك الله لك
أخى سلامنا لكم الأمر لا يستحق إستعلام لآنة مش هيأدى المطلوب ..و العمليات الحسابية بين الحقول فى الحقل الثالث فى الحدث GotFocus
أخى و أستاذنا Abo_Yossof بارك الله لك هو المطلوب و عجبتمى جداً اللفة الحسابية الإخيرة لإستخراج أربع ارقام من ضمنهم العلامة العشرية
و أستفسار بسيط لماذا أستخدمت الدالة Int وليس الدالة Round .... أرجوا الرد
السلام عليكم
اخي بكر
انا قصدت المعادلة مباشرة داخل عنصر التحكم ولم انتبه الى الحدث?
عموما عملت تعديلين الاول تقرب الى 8.95
والثاني تقرب الى 8.94 وانت اردت التعديل الثاني مالحكمة ؟؟هل التعديل الاول لايفي بالغرض؟
أسال في المعادلة يوجد في نهايتهه رقم 4 والرقم تقرب الى منزلتيين عشريتيين.مالفكرة ؟؟؟
افيدونا جزاكم الله خير.
تم تعديل هذه المشاركة بواسطة سلامنا لكم في 27 ديسمبر 2011 في 16:22
bakkar2000 كتب:بسم الله الرحمن الرحيم
أخى و أستاذنا Abo_Yossof بارك الله لك هو المطلوب و عجبتمى جداً اللفة الحسابية الإخيرة لإستخراج أربع ارقام من ضمنهم العلامة العشرية
و أستفسار بسيط لماذا أستخدمت الدالة Int وليس الدالة Round .... أرجوا الرد
أخى الدالة round ستقوم بالمطلوب بشكل أبسط و لكن سيتم التقريب
و أنت طلبت عدم التقريب لذلك استخدمنا الدالة int لتعطينا الرقم الصحيح ثم جمعنا عليه الكسر المطلوب
عموما مادام ذلك يناسبك فهذا الكود أفضل لاحتمال أن يكون الكسر أقل من رقمين
Dim frc As Double
hdd = (RHt) / 45 * (Ret) frc = hdd - Int(hdd) Me.Correct.Text = Int(hdd) + IIf(Len(frc) < 4, frc, Left(frc, 4))
السلام عليكم
اخونا واستاذنا ابو يوسف
أسال في المعادلة يوجد في نهايتهه رقم 4 والرقم تقرب الى منزلتيين عشريتيين.مالفكرة ؟؟؟
وجزاكم الله خير
بسم الله الرحمن الرحيم
أخى و أستاذنا Abo_Yossof
عمل ممتاز شرط الضمان هذا لم يدع آى إحتمال لنقص الرقمين بعد العلامة ... بارك الله لك
أخى الكريم سلامنا لكم ... بعد إذن أستاذنا Abo_Yossof
برجاء مراجعة الدالة Left
left(text,num)
و هى تقوم بنسخ عدد محدد من المحارف من اليسار .. يعنى آية ... خليك معايا
فى سؤالى لهذا الموضوع طلبت رقمين بعد العلامة يعنى الرقم 8.78333333 هو عبارة عن 9 ارقام فى رؤيتنا نحن لكن
عند الدالة Left العلامة عبارة عن حرف أو رقم يعنى 8.78333333 بالنسبة لها 10 أرقام
فإذا طلبت منها إعطائى أول أربع أرقام من اليسار Left(8.78333333,4) سوف يكون جوابها 8.78 و ذى ما قلنا العلامة محسوبة
و إذا كان أقل أو أكثر تحدد من Num يعنى خمسة أرقام من اليسار Left(8.78333333=8.783)
و هكذا
أرجوا أن أكون أفدتكم
أستاذنا Abo_Yossof لك منى أسمى آيات الإحترام
تم تعديل هذه المشاركة بواسطة bakkar2000 في 29 ديسمبر 2011 في 01:37
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…