سلام خدمت دوستان
يه سوال برام پيش اومده اگه ميشه جواب بدين
چطور ميشه محتويات يك Text Box رو با فرمت Currency چاپ كرد يعني ارقام رو سه رقم سه رقم جدا كنه
سلام خدمت دوستان
يه سوال برام پيش اومده اگه ميشه جواب بدين
چطور ميشه محتويات يك Text Box رو با فرمت Currency چاپ كرد يعني ارقام رو سه رقم سه رقم جدا كنه
دوست عزیز این سوال قبلا مطرح شده یک بار search کنی پیدا میکنی .![]()
![]()
![]()
بیایید افتخار ایران باشیم و به ایرانی بودن خود نیز افتخار کنیم
[SIZE="2"] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [/SIZE]
تابع ccur برای تبدیل متغییر عددی به متغییر Currency است. حالا 3 تا 3 تا جدا کنه یا نه نمی دونم
می تونی خودت از تابع Mid استفاده کنی و 3تا 3 تا جدا کنی
بهتره بجاي استفاده از TextBox از MaskEdit استفاده كنيکد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
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
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)