[alfaiz678]

دالة تحويل الارقام من العربية الى الانجليزية

كود :

 Public Function ToIndicDigits(ByVal input As String) As String
       Return input.Replace("٠"c, "0"c) _
           .Replace("١"c, "1"c) _
           .Replace("٢"c, "2"c) _
           .Replace("٣"c, "3"c) _
           .Replace("٤"c, "4"c) _
           .Replace("٥"c, "5"c) _
           .Replace("٦"c, "6"c) _
           .Replace("٧"c, "7"c) _
           .Replace("٨"c, "8"c) _
           .Replace("٩"c, "9"c)
   End Function