+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ايجاد الفرق بين عددين (/showthread.php?tid=5247)
ايجاد الفرق بين عددين - format82 - 22-05-2013
السلام عليكم
استخدم QRExpr في التقرير كيف ايجاد الفرق بين عددين لانه عند طرح عددين اذا كان العدد الثاني سالب يقوم بجمعهم وايجاد الفرق بينهم
ايجاد الفرق بين عددين - Najy Ibraheem - 22-05-2013
السلام عليكم...
بالطبع سيكون الفرق موجباً و لكن ذلك ليس بسبب الجمع بل لأن الفرق هو هكذا. فمثلاً الفرق بين 3 و -3 ليس صفراً بل هو 6. و الفرق بين -3 و 3 هو -6.
على أية حال، إذا كنت تريد التعامل مع القيم كقيم مطلقة بصرف النظر عن إشارتها فاستعمل الدالة ABS ضمن الـ Expression. مثلاً كل الصيغ التالية تعطي نفس النتيجة (= 15):
كود :
ABS(ABS(60) - ABS(-75))
ABS(ABS(75) - ABS(-60))
ABS(ABS(-60) - ABS(75))
ABS(ABS(-75) - ABS(60))
ABS(ABS(60) - ABS(75))
ABS(ABS(75) - ABS(60))
ABS(ABS(-60) - ABS(-75))
ABS(ABS(-75) - ABS(-60))نرجو الاستفادة و السلام.
ايجاد الفرق بين عددين - format82 - 22-05-2013
جزاك الله خيرا
وشكرا علي سرعة الرد
قمت بتجربتها ولكن لا يعمل مع QuickRep
عند الكتابة في الحدث Print لل QRExpr يعمل
اما في Expression يعطي رسالة خطا
ايجاد الفرق بين عددين - Najy Ibraheem - 22-05-2013
السلام عليكم...
معك حق. في المرة السابقة جربتها بعمل Preview أثناء التصميم و كان يعطي النتيجة الصحيحة، أما عند التنفيذ فلا.
الحل: أضف الوحدة QRPExpr إلى جملة uses الموجودة في القسم interface.
نرجو الاستفادة و السلام.