دوباره اومدیم با یه تابع کاربری دیگه که با این تابع میتونید اعداد انگلیسی رو به فارسی و اعداد فارسی رو به انگلیسی تبدیل کنید
با ما همراه باشید تا در ادامه این تابع کاربردی رو در اختیارتون قرار بدم
تابع تبدیل اعداد انگیسی به فارسی :
Sub ConvertEnglishToFarsi( Text As String ) As String
Return Text.Replace( "0" ,"۰" ).Replace("1" ,"۱" ).Replace("2" ,"۲" ).Replace( "3", "۳").Replace( "4" ,"۴" ).Replace("5", "۵" ).Replace("6", "۶").Replace("7" , "۷").Replace("8" ,"۸" ).Replace("9", "۹" )
End Sub
برای استفاه از این تابع از کد زیر استفاده کنید
matn=ConvertEnglishToFarsi(matn)
تابع تبدیل اعداد فارسی به انگیسی :
Sub ConvertFarsiToEnglish( Text As String ) As String
Return Text.Replace( "۰" ,"0" ).Replace("۱" ,"1" ).Replace("۲" ,"2" ).Replace( "۳", "3").Replace( "۴" ,"4" ).Replace("۵", "5" ).Replace("۶", "6").Replace("۷" , "7").Replace("۸" ,"8" ).Replace("۹", "9" )
End Sub
برای استفاه از این تابع از کد زیر استفاده کنید
matn=ConvertFarsiToEnglish(matn)