نوشته شده توسط
moghadam1372
سلام
با این کد فرمت تکس باکس تغییرمی کند و اعداد سه رقم سه رقم جدا می شود و حالا برای جمع کردن تکس باکس مشکل می خورد 100،000
'If Val(Text1.Text) > 0 Then Text1.Text = Format(Text1.Text, "###,###,###")
چطوری می شود اعداد داخل تکس باکس به حالت اولیه برگردد مثلا 100000 که بشود با تکس دیگر جمع کرد یا کاما بین اعداد حذف شود
Private Sub Command1_Click()
Text1.Text = Format(1234567, "###,###,###")
Text2.Text = Format(234567, "###,###,###")
End Sub
Private Function ValEx(ByVal Text As String)
ValEx = Val(Replace(Text, Mid(Format(1111, "#,###"), 2, 1), ""))
End Function
Private Sub Command2_Click()
Text3.Text = Format(ValEx(Text1.Text) - ValEx(Text2.Text), "###,###,###")
End Sub