حذف علامت منفی از اعداد [بایگانی]

mohsen_iceman2000

چهارشنبه 13 فروردین 1393, 16:06 عصر

سلام یه تکس باکس دارم که می خوام اگه عددش منفی بود اونو به مثبت تبدیل کنه
اگر مثبت بود تغییری نکنه

AbbasVB

چهارشنبه 13 فروردین 1393, 18:26 عصر

If Val(Text1.Text) < 0 Then
MsgBox Val(Text1.Text) * (-1)

End If

سید حمید حق پرست

چهارشنبه 13 فروردین 1393, 18:29 عصر

سلام علیکم
این یک نمونه با استفاده از Replace :
Text1.Text = Val(11 - 20)
Text1.Text = Replace(Text1, "-", "")
موفق باشید.

یا علی (ع)

SlowCode

جمعه 15 فروردین 1393, 09:50 صبح

قدر مطلق:
Text1.text = ABS(Text1.text)