منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

كيف نجعل فاصلة الألوف 000.00'1 بدل 1,000.00

شكرا

حيث ان كود الحالة الثانية text1.Text = Format(text1.Text, "#,##0.00")

كيف يكون كود الحالة الأولى

شكرا

السلام عليكم ورحمة الله وبركاته

PHP كود :

Private Sub Command1_Click()
    Me.Text1.Text = GroupingNumber(1236798.2342)
    
End Sub

Public Function GroupingNumber(n As Double) As String
    Dim s As String
    s = Format$(n, "###'###'###'###.###")
    s = Replace(s, "'''", "")
    s = Replace(s, "''", "")
    If Left$(s, 1) = "'" Then s = Mid$(s, 2)
    If Right$(s, 1) = "." Then s = Mid$(s, 1, Len(s) - 1)
    GroupingNumber = s
End Function 


[COLOR=#005300]
السلام عليكم ورحمة الله وبركاته
[/COL

مشكور ابو رائد

كود جميل

كود جميل وجميل جدا

مشكور يا غالي

السلام عليكم

بعد شكر الاخوان جميعا
حبيت اشارك معك بالكود هذا


تقبلوا تحياتي ,,,

ما شاء الله يا معلمين

جزاكم الله كل خير