[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)