ايران ويج

سلام

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

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

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

کد: 
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

hamed_Arfaee نوشته است:با سلام
اين تابع جدا سازي...

ممنون

shahram_beheshti

hamed_Arfaee

Darg