تفكيك نمودن ارقام ....

[shahram_beheshti]

سلام

دوستان عزيز اگر بزرگواري بكنيد و با استفاده از كلاس يك برنامه بنويسيد كه رقمهاي وارد شده در يك كادر متن رو سه رقم سه رقم از راست به چپ تفكيك و در كادر متني ديگر نمايش دهد ..

شاد باشيد ... تشكر

[hamed_Arfaee]

با سلام
اين تابع جدا سازي

کد:

Public Function Fr_text(Number As Currency) As String
On Error Resume Next
Dim T_Text, A, B As String
T_Text = StrReverse(Number)
For i = 1 To Len(T_Text) Step 3
    A = Mid(T_Text, i, 3)
    B = B & A & ","
Next
B = Left(B, Len(B) - 1)
Fr_text = StrReverse(B)
End Function

[Darg]

با سلام
اين تابع جدا سازي...

ممنون