[mh66]

السلام عليكم

كيف نجعل فاصلة الألوف 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

[samee119485r]

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

كود جميل

[mh66]

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

مشكور يا غالي

[Top GreaT]

السلام عليكم

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

كود :

[align=left]
Text2 = Replace(Format(Text1, "000,000.00"), ",", "'")
[/align]

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

[@@أبورائد@@]

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




بارك الله فيك أخ Top GreaT
لقد لفت نظري لفكرة أخرى

وإليك طريقة مختصرة بالدالة FormatNumber

PHP كود :

Text2.Text = Replace(FormatNumber(Val(Text1.Text)), ",", "'") 


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

[mh66]

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

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