قرار دادن علامت میان رشته ؟؟

[سپهر-111]

سلام دوستان مهربان

من میخوام وسط یه رشته یه علامت بزارم مثل این :

234567 رشته مورد نظر
23456.7 علامت ( . )
میخوام یه ( . ) بهش اضافه کنم

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

[محسن واژدی]

سلام علیکم
تابع زیر بررسی کنید:
Public Function AddDecSign(ByVal sText$, ByVal iDecPos%) As String
On Error Resume Next
sText$ = Trim(sText$)
If Len(sText$) < iDecPos% Or iDecPos% <= 0 Then AddDecSign = sText$: Exit Function
AddDecSign = Trim(Format$(sText$, String$(iDecPos%, "@") & ".@"))
End Function


برای مثال:
Private Sub Command1_Click()
MsgBox AddDecSign("234567", 5)
End Sub


موفق باشید

[امین مستانی]

سلام

آقای واژدی عزیز جواب دادن ولی از روش زیر هم امکان پذیر هست .


MsgBox Format$("123456", "@@@@@.@")

موفق باشید

[سپهر-111]

سلام علیکم
تابع زیر بررسی کنید:
Public Function AddDecSign(ByVal sText$, ByVal iDecPos%) As String
On Error Resume Next
sText$ = Val(Trim(sText$))
If Len(sText$) < iDecPos% Or iDecPos% <= 0 Then AddDecSign = sText$
AddDecSign = CStr(CSng(Left$(sText$, iDecPos%) & "." & Mid$(sText$, iDecPos% + 1)))
End Function



برای مثال:
Private Sub Command1_Click()
MsgBox AddDecSign("234567", 5)
End Sub


موفق باشید


سلام استاد محسن
ممنون زحمت کشیدید
ولی متاسفانه درست کار نمیکنه
مثلا من میخوام از اعداد 10 الی 4294967295 که به رشته تبدیل میکنم ، میخوام رقم اول اون اعشار بدم و نمایش بدم
ممنون میشم اگه راهنمایی فرمایید
باتشکر

[محسن واژدی]

سلام علیکم
استفاده از تابع Format که آقای مستانی اشاره کردند اصولی تر است، تابع ویرایش شده رو ضمیمه پست 2 کردم انشاءا... درسته

موفق باشید