کدهای کاربردی بیسیک فور اندروید

  تابع تبدیل اعداد انگلیسی به فارسی

با عرض سلام خدمت شما دوستان وهمراهان عزیز !

با استفاده از تابع زیر به راحتی میتوانید اعداد انگلیسی موجود در یک رشته ( String ) را به اعداد فارسی تبدیل نمایید :

Public Sub PersianNumbers(Text As String) As String
 Dim s As String = Text
 s = s.Replace("0","۰")
 s = s.Replace("1","۱")
 s = s.Replace("2","۲")
 s = s.Replace("3","۳")
 s = s.Replace("4","۴")
 s = s.Replace("5","۵")
 s = s.Replace("6","۶")
 s = s.Replace("7","۷")
 s = s.Replace("8","۸")
 s = s.Replace("9","۹")
 Return s
End Sub

موفق باشید !

مطلب پیشنهادی :  نمایش Toast کاملا سفارشی در بیسیک فور اندروید
ما را در تلگرام دنبال کنید !
BasicLearn@

درباره نویسنده

حامد باقری

برنامه نویس اندروید , طراح وب , طراح گرافیک و رابط کاربری
( مدیر مجموعه بیسیک لرن )
www.HamedBagheri.ir

نظر بدهید

این سایت از اکیسمت برای کاهش هرزنامه استفاده می کند. بیاموزید که چگونه اطلاعات دیدگاه های شما پردازش می‌شوند.