المشاركات : 106
المواضيع 34
الإنتساب : Feb 2020
السمعة :
0
الشكر: 25
تم شكره 150 مرات في 88 مشاركات
السلام عليكم
محتاج كود 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 دج مهما كان الثمن
المشاركات : 260
المواضيع 0
الإنتساب : Jan 2020
السمعة :
41
الشكر: 0
تم شكره 381 مرات في 213 مشاركات
(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)
المشاركات : 106
المواضيع 34
الإنتساب : Feb 2020
السمعة :
0
الشكر: 25
تم شكره 150 مرات في 88 مشاركات
21-02-20, 09:46 PM
(آخر تعديل لهذه المشاركة : 21-02-20, 09:54 PM {2} بواسطة 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))))
المشاركات : 260
المواضيع 0
الإنتساب : Jan 2020
السمعة :
41
الشكر: 0
تم شكره 381 مرات في 213 مشاركات
21-02-20, 09:53 PM
(آخر تعديل لهذه المشاركة : 21-02-20, 09:54 PM {2} بواسطة 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
المشاركات : 106
المواضيع 34
الإنتساب : Feb 2020
السمعة :
0
الشكر: 25
تم شكره 150 مرات في 88 مشاركات
شكراااااااااااااا نجح الكود
المشاركات : 260
المواضيع 0
الإنتساب : Jan 2020
السمعة :
41
الشكر: 0
تم شكره 381 مرات في 213 مشاركات
(21-02-20, 11:01 PM)paveldida كتب : شكراااااااااااااا نجح الكود
العفو اخي
اذا اردت عرض تفاصيل الشرائح في مربعات نص
كود :
Dim value As Double = Val(TextBox1.Text) ' ثمن البيع
Dim segment1, segment2, segment3 As Double
segment1 = 15000
Dim fees As Double = 15000
If value > 1000000 Then
fees = 15000 + 10000 + ((value - 1000000) * 0.01)
segment2 = 10000
segment3 = ((value - 1000000) * 0.01)
ElseIf value > 500000 Then
fees = 15000 + ((value - 500000) * 0.02)
segment2 = ((value - 500000) * 0.02)
segment3 = 0
End If
TextBox2.Text = segment1 ' الشريحة الاولى
TextBox3.Text = segment2 ' الشريحة الثانية
TextBox4.Text = segment3 ' الشريحة الثالثة
TextBox5.Text = fees ' مجموع الرسم المستحق
المشاركات : 106
المواضيع 34
الإنتساب : Feb 2020
السمعة :
0
الشكر: 25
تم شكره 150 مرات في 88 مشاركات
(21-02-20, 11:18 PM)alsalamoni كتب : (21-02-20, 11:01 PM)paveldida كتب : شكراااااااااااااا نجح الكود
العفو اخي
اذا اردت عرض تفاصيل الشرائح في مربعات نص
كود :
Dim value As Double = Val(TextBox1.Text) ' ثمن البيع
Dim segment1, segment2, segment3 As Double
segment1 = 15000
Dim fees As Double = 15000
If value > 1000000 Then
fees = 15000 + 10000 + ((value - 1000000) * 0.01)
segment2 = 10000
segment3 = ((value - 1000000) * 0.01)
ElseIf value > 500000 Then
fees = 15000 + ((value - 500000) * 0.02)
segment2 = ((value - 500000) * 0.02)
segment3 = 0
End If
TextBox2.Text = segment1 ' الشريحة الاولى
TextBox3.Text = segment2 ' الشريحة الثانية
TextBox4.Text = segment3 ' الشريحة الثالثة
TextBox5.Text = fees ' مجموع الرسم المستحق
بارك الله فيك ، عندي طلب آخر ، كيف اجعل النتيجة تتضمن رقمين فقط بعد الفاصلة
يعني اجعل الارقام تضهر بالشكل التالي: 5.000.000,00
المشاركات : 260
المواضيع 0
الإنتساب : Jan 2020
السمعة :
41
الشكر: 0
تم شكره 381 مرات في 213 مشاركات
(21-02-20, 11:34 PM)paveldida كتب : (21-02-20, 11:18 PM)alsalamoni كتب : (21-02-20, 11:01 PM)paveldida كتب : شكراااااااااااااا نجح الكود
العفو اخي
اذا اردت عرض تفاصيل الشرائح في مربعات نص
كود :
Dim value As Double = Val(TextBox1.Text) ' ثمن البيع
Dim segment1, segment2, segment3 As Double
segment1 = 15000
Dim fees As Double = 15000
If value > 1000000 Then
fees = 15000 + 10000 + ((value - 1000000) * 0.01)
segment2 = 10000
segment3 = ((value - 1000000) * 0.01)
ElseIf value > 500000 Then
fees = 15000 + ((value - 500000) * 0.02)
segment2 = ((value - 500000) * 0.02)
segment3 = 0
End If
TextBox2.Text = segment1 ' الشريحة الاولى
TextBox3.Text = segment2 ' الشريحة الثانية
TextBox4.Text = segment3 ' الشريحة الثالثة
TextBox5.Text = fees ' مجموع الرسم المستحق
بارك الله فيك ، عندي طلب آخر ، كيف اجعل النتيجة تتضمن رقمين فقط بعد الفاصلة
يعني اجعل الارقام تضهر بالشكل التالي: 5.000.000,00
كود :
TextBox2.Text = FormatNumber(fees, 2)
المشاركات : 106
المواضيع 34
الإنتساب : Feb 2020
السمعة :
0
الشكر: 25
تم شكره 150 مرات في 88 مشاركات
(21-02-20, 11:44 PM)alsalamoni كتب : (21-02-20, 11:34 PM)paveldida كتب : (21-02-20, 11:18 PM)alsalamoni كتب : (21-02-20, 11:01 PM)paveldida كتب : شكراااااااااااااا نجح الكود
العفو اخي
اذا اردت عرض تفاصيل الشرائح في مربعات نص
كود :
Dim value As Double = Val(TextBox1.Text) ' ثمن البيع
Dim segment1, segment2, segment3 As Double
segment1 = 15000
Dim fees As Double = 15000
If value > 1000000 Then
fees = 15000 + 10000 + ((value - 1000000) * 0.01)
segment2 = 10000
segment3 = ((value - 1000000) * 0.01)
ElseIf value > 500000 Then
fees = 15000 + ((value - 500000) * 0.02)
segment2 = ((value - 500000) * 0.02)
segment3 = 0
End If
TextBox2.Text = segment1 ' الشريحة الاولى
TextBox3.Text = segment2 ' الشريحة الثانية
TextBox4.Text = segment3 ' الشريحة الثالثة
TextBox5.Text = fees ' مجموع الرسم المستحق
بارك الله فيك ، عندي طلب آخر ، كيف اجعل النتيجة تتضمن رقمين فقط بعد الفاصلة
يعني اجعل الارقام تضهر بالشكل التالي: 5.000.000,00
كود :
TextBox2.Text = FormatNumber(fees, 2)
شكرا أخي
المشاركات : 260
المواضيع 0
الإنتساب : Jan 2020
السمعة :
41
الشكر: 0
تم شكره 381 مرات في 213 مشاركات
(22-02-20, 11:21 AM)paveldida كتب : (21-02-20, 11:44 PM)alsalamoni كتب : (21-02-20, 11:34 PM)paveldida كتب : (21-02-20, 11:18 PM)alsalamoni كتب : (21-02-20, 11:01 PM)paveldida كتب : شكراااااااااااااا نجح الكود
العفو اخي
اذا اردت عرض تفاصيل الشرائح في مربعات نص
كود :
Dim value As Double = Val(TextBox1.Text) ' ثمن البيع
Dim segment1, segment2, segment3 As Double
segment1 = 15000
Dim fees As Double = 15000
If value > 1000000 Then
fees = 15000 + 10000 + ((value - 1000000) * 0.01)
segment2 = 10000
segment3 = ((value - 1000000) * 0.01)
ElseIf value > 500000 Then
fees = 15000 + ((value - 500000) * 0.02)
segment2 = ((value - 500000) * 0.02)
segment3 = 0
End If
TextBox2.Text = segment1 ' الشريحة الاولى
TextBox3.Text = segment2 ' الشريحة الثانية
TextBox4.Text = segment3 ' الشريحة الثالثة
TextBox5.Text = fees ' مجموع الرسم المستحق
بارك الله فيك ، عندي طلب آخر ، كيف اجعل النتيجة تتضمن رقمين فقط بعد الفاصلة
يعني اجعل الارقام تضهر بالشكل التالي: 5.000.000,00
كود :
TextBox2.Text = FormatNumber(fees, 2)
شكرا أخي
العفو اخي
|