[paveldida]

شكراااا سأجرب

---

(21-02-20, 09:41 PM)alsalamoni كتب :

(21-02-20, 09:16 PM)paveldida كتب : السلام عليكم
محتاج كود visual basic يحسبلي قيمة الرسوم على مبلغ بيع محدد 
مثال: ثمن البيع 5.000.000,00 دج
الرسم المستحق يكون بالشكل التالي:
الشريحة الأولى : من 0 إلى 500.000,00 دج تخضع لرسم قدره :3% أي ان الرسم المستحق هو = 15.000,00 دج
الشريحة الثانية : من 500.001,00 إلى 1.000.000,00 دج تخضع لرسم قدره :2% أي ان الرسم المستحق هو = 10.000,00 دج
الشريحة الثالثة: من 1.000.001,00 دج فما فوق تخضع لرسم قدره :1% أي ان الرسم المستحق هو = 40.000,00 دج
مجموع الرسم المستحق هو: 65.000,00 دج
ملاحظة: الرسم المستحق له حد ادنى هو 15.000,00 دج مهما كان الثمن

كود :

Dim value As Double = 5000000

Dim fees As Double = 15000

If value > 1000000 Then
   fees = 15000 + 10000 + ((value - 1000000) * 0.01)
ElseIf value > 500000 Then
   fees = 15000 + ((value - 500000) * 0.02)
End If

MsgBox(fees)

انا عندي textbox1 اضع فيه المبلغ
و اريد ان تكون النتيجة في textbox2
كنت احسب بالأكسيل بالمعادلة التالية :
=SI(ET(E9>0;E9<500000);15000;SI(ET(E9>1;E9<=500000);E9*0,03;SI(ET(E9>500000;E9<=1000000);500000*0,03+(E9-500000)*0,02;SI(E9>1000000;500000*0,03+500000*0,02+(E9-1000000)*0,01;0))))