[alsalamoni]

(21-02-20, 09:46 PM)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

كود :

Dim value As Double = val(textbox1.text)

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

textbox2.text=fees