[paveldida]

السلام عليكم

ممكن الطريقة او الكود المستعمل لجعل المبلغ المكتوب داخل TEXTBOX يضهر بتناسق بهذا الشكل 1.200.456,56 دج

استعمل هذا الكود 

TextBox1.Text = FormatNumber(a, 2)

لاكن عند الحساب الرقم بعد الفاصلة يتحول ال صفرين

[ابراهيم ايبو]

السلام عليكم اخي الكريم
اولا بالنسبة للفاصلة العشرية حسب ماهو مفعل لديك في خيارات الويندوز Decimal Symbol اما النقطة او الفاصلة
بالنسبة لي انا مفعل النقطة هي علامة الفاصلة العشرية وهي الافتراضية في ويندوز 10 
وهي التي تميز الرقم العادي من الرقم الذي يحوي على فاصلة عشرية
اما فاصلة التقسيم Format number فهي تقوم بجعل كل 3 خانات في مجموعة ليتم تسهيل القراءة ان كان الرقم كبيرا
وبما انك وضعت رقم 2 يعني ان ارقام الفاصلة العشرية عبارة عن خانتين وان اردت 3 خانات اكتب 3 وان اردت 5 خانات اكتب 5
هنا في هذا الكود سيجعل الفاصلة العشرية مؤلفة من 4 خانات اما المجموعات فتبقى 3 ثلاثة لان تسهيل القراءة هو 3 خانات

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       TextBox1.Text = FormatNumber(TextBox1.Text, 4)
   End Sub

[paveldida]

(06-05-20, 03:35 AM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
اولا بالنسبة للفاصلة العشرية حسب ماهو مفعل لديك في خيارات الويندوز Decimal Symbol اما النقطة او الفاصلة
بالنسبة لي انا مفعل النقطة هي علامة الفاصلة العشرية وهي الافتراضية في ويندوز 10 
وهي التي تميز الرقم العادي من الرقم الذي يحوي على فاصلة عشرية
اما فاصلة التقسيم Format number فهي تقوم بجعل كل 3 خانات في مجموعة ليتم تسهيل القراءة ان كان الرقم كبيرا
وبما انك وضعت رقم 2 يعني ان ارقام الفاصلة العشرية عبارة عن خانتين وان اردت 3 خانات اكتب 3 وان اردت 5 خانات اكتب 5
هنا في هذا الكود سيجعل الفاصلة العشرية مؤلفة من 4 خانات اما المجموعات فتبقى 3 ثلاثة لان تسهيل القراءة هو 3 خانات

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       TextBox1.Text = FormatNumber(TextBox1.Text, 4)
   End Sub

شكرا أخي على التوضيح و الشرح الوافي