text box

[kbdfa]

سلام خدمت دوستان
يه سوال برام پيش اومده اگه ميشه جواب بدين
چطور ميشه محتويات يك Text Box رو با فرمت Currency چاپ كرد يعني ارقام رو سه رقم سه رقم جدا كنه

[alishahbazi]

دوست عزیز این سوال قبلا مطرح شده یک بار search کنی پیدا میکنی .:biggrin: :biggrin: :biggrin:

بیایید افتخار ایران باشیم و به ایرانی بودن خود نیز افتخار کنیم



[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[shamsoft]

تابع ccur برای تبدیل متغییر عددی به متغییر Currency است. حالا 3 تا 3 تا جدا کنه یا نه نمی دونم
می تونی خودت از تابع Mid استفاده کنی و 3تا 3 تا جدا کنی

[vandu]

تابع format

[palizesoftware]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

بهتره بجاي استفاده از TextBox از MaskEdit استفاده كني

[Romina2006]

Enum FormatType
Standard = 0
Commas = 1
Dollars = 2
Unformat = 3
End Enum

Function FormatAnyNumber(ByVal cInputNum As String, nFormat As FormatType) As String
Dim cNewNum As String
Select Case nFormat
Case Standard
cNewNum = Format$(cInputNum, "Standard")
Case Commas
cNewNum = Format$(cInputNum, "###,###,###,###,##0.##########")
If Right$(cNewNum, 1) = "." Then
cNewNum = Left$(cNewNum, Len(cNewNum) - 1)
End If
Case Dollars
cNewNum = Format$(cInputNum, "Currency")
Case Unformat
If Len(cInputNum) Then
cNewNum = CDbl(cInputNum)
Else
cNewNum = ""
End If
Case Else
MsgBox "Unknown Number Format!", vbExclamation, "Format Any Number"
cNewNum = cInputNum
End Select
FormatAnyNumber = cNewNum
End Function

Private Sub Command1_Click()
Text1 = FormatAnyNumber(Text1, Commas)
End Sub

Private Sub Command2_Click()
Text1 = FormatAnyNumber(Text1, Dollars)
End Sub

Private Sub Command3_Click()
Text1 = FormatAnyNumber(Text1, Unformat)
End Sub

Private Sub Form_Load()
Command1.Caption = "&Add Commas"
Command2.Caption = "&Make Dollars"
Command3.Caption = "&Unformat"
Text1 = "123456789"
End Sub