سه رقم سه رقم کردن تکس باکس و بر عکس

[vbhamed]

سلام

با این کد فرمت تکس باکس تغییرمی کند و اعداد سه رقم سه رقم جدا می شود و حالا برای جمع کردن تکس باکس مشکل می خورد 100،000
'If Val(Text1.Text) > 0 Then Text1.Text = Format(Text1.Text, "###,###,###")

چطوری می شود اعداد داخل تکس باکس به حالت اولیه برگردد مثلا 100000 که بشود با تکس دیگر جمع کرد یا کاما بین اعداد حذف شود

Private Function num(s As String)





    num = Val(Replace$(s, ",", ""))





End Function





Private Sub Form_Load()





MsgBox num(Text1) * num(Text2)





End Sub

[the king]

Private Function num(s As String)





    num = Val(Replace$(s, ",", ""))





End Function





Private Sub Form_Load()





MsgBox num(Text1) * num(Text2)





End Sub

تابع Format برای انتخاب کاراکتر های مورد استفاده به تنظیمات Region and Language ویندوز رجوع میکنه، به همین جهت نمیشه تضمین کرد حتما در رشته خروجی Format کاراکتر جداکننده Comma باشه.

grouping.png

مثلا در تنظیمات زبان آذربایجانی (Azeri Azerbaijan) از کاراکتر space به عنوان جداکننده استفاده می کنند. یا در زبان پشتو افغانستان از کاراکتر ، استفاده میشه.
البته در اغلب سیستم ها همون کاراکتر Comma جداکننده ارقام خواهد بود و مشکلی پیش نخواهد اومد.

[vbhamed]

تابع Format برای انتخاب کاراکتر های مورد استفاده به تنظیمات Region and Language ویندوز رجوع میکنه، به همین جهت نمیشه تضمین کرد حتما در رشته خروجی Format کاراکتر جداکننده Comma باشه.

grouping.png

مثلا در تنظیمات زبان آذربایجانی (Azeri Azerbaijan) از کاراکتر space به عنوان جداکننده استفاده می کنند. یا در زبان پشتو افغانستان از کاراکتر ، استفاده میشه.
البته در اغلب سیستم ها همون کاراکتر Comma جداکننده ارقام خواهد بود و مشکلی پیش نخواهد اومد.

سلام
همونطور که خودتون گفتید کسی معمولا نمیاد این چیزا رو تغییر بده،‌همونطور که من الان بیشتر از 20 ساله برنامه هام دست کلی مشتریه و تابحال حتی یک مورد چنین مشکلی گزارش نشده
ضمنا به زبان عربی و انگلیسی هم برنامه در خارج از کشور کار میکنه
بنابراین به راحتی میتونید این مورد رو نادیده بگیرید ولی اگر خیلی حساس بودین هم میتونید تنظیمات Control Panel رو بخونین و طبق اون کاراکتر رو حذف کنین