جدا کردن سه رقم سه رقم ارقام یک تکست باکس

[javadt]

سلام
من از این کد استفاده کردم

If Text1.Text <> "" Then
Text1.Text = Format(Text1.Text, "##,0")
Text1.SelStart = Len(Text1.Text)
End If

اما یک مشکلی داره و اون هم اینه

text2.text=123,456,789 ====> val(text2.text)=123
درصوتی که من می خوام val همون
123456789
سرچ هم کردن راهی برای این پیدا نکردم
دوستان راهنمایی کنند
با تشکر

[mpmsoft]

با این تابع فقط عدد رو بر می گردونی

مثال : Text1.Text = Vall("123,456,44")



Public Function Vall(ByVal Str As String) As String
On Error Resume Next
Dim SCHRTmp, SStrTmp As String
SCHRTmp = "": Str = Trim$(Str): SStrTmp = ""
Dim LAscTmp As Long
LAscTmp = 0
Dim lTmp As Long
lTmp = Len(Str)
Dim Neg As Boolean
Neg = False

If left(Str, 1) = "-" Or right(Str, 1) = "-" Then Neg = True
Dim i As Integer

For i = 1 To lTmp
LAscTmp = Asc(Mid(Str, i, 1))

If LAscTmp > 47 And LAscTmp < 58 Then
SCHRTmp = Chr$(LAscTmp)
SStrTmp = SStrTmp & SCHRTmp
End If

Next

Vall = SStrTmp

If Neg Then Vall = "-" & Vall
End Function

[vbhamed]

سلام

اگر فقط تو تكست باكس كاما وجود داره ازاين روش هم مي توني


msgbox val(Replace(Text1,",",""))

[ali_habibi1384]

البته شما از این کد هم میتونی استفاده کنی:

text1.text=format(text1.text,"##,##")

[hamidreza777]

فکر کنم بهتر باشه به صورت

Text1.Text =val( Format(Text1.Text, "##"))
استفاده کنی

[ali682344]

از كامپوننت زير استفاده كن