jo_2010 قام بنشر يناير 16 قام بنشر يناير 16 الخبراء الاعزاء بعد التحية اود مساعدتى فى احتساب الحافز بفرض عندنا مبالغ معينة 19000 21000 9000 اريد عمل استعلام بة حقل اسمة 10% يقوم باحتساب نسبة 10% من هذة المبالغ حتى 15000 والمبلغ المتبقى نعمل حقل جديد اسمة 15% نقوم باحتساب نسبة 15% من المبالغ بعد 15000 مثال بمعنى 9000 حقل 10% = 900 وحفل 15% =0 اما 21000 حقل 10% = 1500 والباقى 6000 فى حقل 15% = 900 اتمنى يكون طلبى واضح
تمت الإجابة Barna قام بنشر يناير 16 تمت الإجابة قام بنشر يناير 16 57 دقائق مضت, jo_2010 said: الخبراء الاعزاء بعد التحية اود مساعدتى فى احتساب الحافز بفرض عندنا مبالغ معينة 19000 21000 9000 اريد عمل استعلام بة حقل اسمة 10% يقوم باحتساب نسبة 10% من هذة المبالغ حتى 15000 والمبلغ المتبقى نعمل حقل جديد اسمة 15% نقوم باحتساب نسبة 15% من المبالغ بعد 15000 مثال بمعنى 9000 حقل 10% = 900 وحفل 15% =0 اما 21000 حقل 10% = 1500 والباقى 6000 فى حقل 15% = 900 اتمنى يكون طلبى واضح اعمل استعلام وضع فيه هذا مع تعديل اسم الحق الذي به المبلغ واسم الجدول لديك SELECT Amount, IIf([Amount] <= 15000, [Amount] * 0.1, 15000 * 0.1) AS [10%], IIf([Amount] > 15000, ([Amount] - 15000) * 0.15, 0) AS [15%] FROM YourTableName; 4 3
أبوبسمله قام بنشر يناير 16 قام بنشر يناير 16 12 ساعات مضت, Barna said: اعمل استعلام وضع فيه هذا مع تعديل اسم الحق الذي به المبلغ واسم الجدول لديك SELECT Amount, IIf([Amount] <= 15000, [Amount] * 0.1, 15000 * 0.1) AS [10%], IIf([Amount] > 15000, ([Amount] - 15000) * 0.15, 0) AS [15%] FROM YourTableName; السلام عليكم مشاركه مع اخى واستاذى محمد البرناوى اخى محمد حلك جميل ولكن بالنسبه للفقره الاول انت اختبرت المبلغ لو اقل ومع امثله الاستاذ الفاضل هو عاوز المبلغ اللى اكبر يتم طرحه يعنى مث ما هو موضح بالمثال بالاعلى 21000 هتكون 15000 *0.1 والباقى اللى هو 6000 *0.15 Option Compare Database Function calc(val As Double, Optional colVal = "") Const val_15 = 15000 Dim bak If colVal = 10 Or colVal = 0.1 Or colVal = "" Then colVal = 0.1 ElseIf colVal = 15 Or colVal = 0.15 Then colVal = 0.15 End If If val <= val_15 Then calc = val * colVal If val > val_15 Then bak = val - val_15 val = val_15 End If If colVal = 0.1 Then calc = val * colVal ElseIf colVal = 0.15 Then calc = bak * colVal Else calc = 0 End If End Function وتقبلوا مشاركتى ومرورى واحبكم فالله 2 2
أبوبسمله قام بنشر يناير 17 قام بنشر يناير 17 10 ساعات مضت, أبوبسمله said: اخى محمد حلك جميل ولكن بالنسبه للفقره الاول انت اختبرت المبلغ لو اقل وجب الاعتذار من اخى واستاذى لعدم انتباهى للجزء الثانى من الشرط 2 1
Barna قام بنشر يناير 17 قام بنشر يناير 17 27 دقائق مضت, أبوبسمله said: وجب الاعتذار من اخى واستاذى لعدم انتباهى للجزء الثانى من الشرط هلا اخي ابا بسملة ... لك وحشه من يعتذر ممن ... هل يعتذر الاخ من اخيه بل استفدنا من الردك ومرورك بالموضوع بارك الله فيك واحسن اليك .. جزاك الله خيرا 3
أبوبسمله قام بنشر يناير 17 قام بنشر يناير 17 4 ساعات مضت, Barna said: هلا اخي ابا بسملة ... لك وحشه من يعتذر ممن ... هل يعتذر الاخ من اخيه بل استفدنا من الردك ومرورك بالموضوع بارك الله فيك واحسن اليك .. جزاك الله خيرا ليكم وحشه كبيره اخى محمد وجزاكم الله خيرا ع ما تقدموه لاخوتكم وبارك الله فيك اخى وجزاك الله عنا خرا
الردود الموصى بها