تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حل مشكلة الفاصلة الرقمية لحقل العملة
#1
السلام عليكم ورخمة الله وبركاته 

اصدقائي الاعزاء 

لدي عملية حسابية بين حقل من نوع decimal(8, 2)  وحقل اخر من نوع int وقمت بعملية حسابية كتالي :

الحقل الاول                    الحقل الثاني 

4.00                    *               150
15.00                  *                300
30.00                  *                500
80.00                  *               800

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

المفترض الناتج يظهر بهذه الطريقة : 84.100.00

ولكن يظهر لي بهذه الطريقة  :  84100.00


كود :
   Sub sum_totl()
       Dim tt, qut As Double
       For i As Integer = 0 To FlowLayoutPanel1.Controls.Count - 1
           tt += FlowLayoutPanel1.Controls(i).Controls("Label1").Text
           qut += FlowLayoutPanel1.Controls(i).Controls("Label5").Text
       Next
       Label14.Text = tt
       Label15.Text = qut
       Label13.Text = Val(Label14.Text) * Val(Label15.Text)
     
   End Sub
الرد }}}
تم الشكر بواسطة: ابو انس
#2
السلام عليكم ورحمة الله وبركاته
تفضل اخي هذه كما في الكود عندك
كود :
TextBox3.Text = (Val(TextBox1.Text) * Val(TextBox2.Text)).ToString("0,0.00")
وهذه طريقتي
كود :
Dim AA As Decimal
       AA = Val(TextBox1.Text) * Val(TextBox2.Text)
       'هذا السطر
       TextBox3.Text = String.Format("{0:0,0.00}", AA)
       'أو هذا السطر
       TextBox3.Text = AA.ToString("0,0.00")
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: ابو انس



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم