شما این محصولات را انتخاب کرده اید

سبد خرید

شناسه پست: 1413
بازدید: 271

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

با ما همراه باشید تا در ادامه این تابع کاربردی رو در اختیارتون قرار بدم

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

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)