احتساب الحافز

[jo_2010]

الخبراء الاعزاء

بعد التحية

اود مساعدتى فى احتساب الحافز

بفرض عندنا مبالغ معينة

19000

21000

9000

اريد عمل استعلام بة حقل اسمة 10%

يقوم باحتساب نسبة 10% من هذة المبالغ حتى 15000 والمبلغ المتبقى 

نعمل حقل جديد اسمة 15%

نقوم   باحتساب نسبة 15% من المبالغ بعد 15000

مثال

بمعنى 9000     حقل 10% = 900   وحفل 15% =0

اما 21000    حقل 10% = 1500  والباقى 6000 فى حقل 15% = 900

اتمنى يكون طلبى واضح

[Barna]

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;

 

[أبوبسمله]

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

وتقبلوا مشاركتى ومرورى 

واحبكم فالله

[أبوبسمله]

10 ساعات مضت, أبوبسمله said:

اخى محمد حلك جميل ولكن بالنسبه للفقره الاول انت اختبرت المبلغ لو اقل 

وجب الاعتذار من اخى واستاذى لعدم انتباهى للجزء الثانى من الشرط 

 

[Barna]

27 دقائق مضت, أبوبسمله said:

وجب الاعتذار من اخى واستاذى لعدم انتباهى للجزء الثانى من الشرط 

 

هلا اخي ابا بسملة ... لك وحشه

من يعتذر ممن ... هل يعتذر الاخ من اخيه

بل استفدنا من الردك ومرورك بالموضوع

بارك الله فيك واحسن اليك .. جزاك الله خيرا

[أبوبسمله]

4 ساعات مضت, Barna said:

هلا اخي ابا بسملة ... لك وحشه

من يعتذر ممن ... هل يعتذر الاخ من اخيه

بل استفدنا من الردك ومرورك بالموضوع

بارك الله فيك واحسن اليك .. جزاك الله خيرا

ليكم وحشه كبيره اخى محمد وجزاكم الله خيرا ع ما تقدموه لاخوتكم 

وبارك الله فيك اخى وجزاك الله عنا خرا