ببینید بهترین راه استفاده از تابع زیره که من نوشتم...
Public Function eng2fa(ByRef text As String) As String
If IsDBNull(text) Then Return (0)
If (Not IsDBNull(text)) And (Len(text) > 0) Then
Dim eng2fass As Object
Dim ceng2fass As Object
If Not text = "" Then
ceng2fass = text
For eng2fass = 0 To 9
ceng2fass = Replace(ceng2fass, eng2fass, ChrW(1776 + eng2fass), 1)
Next
Return ceng2fass
End If
End If
End Function
هرعددی توش بزای با اضافه کردن کد 1776 به کد چارتت معادل فارسی اون رو بر میگردونه ...
سوالی داشتید بگید
موفق باشید