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

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

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