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

[حمید زارع 331]

سلام دوستان

اولا به خاطر عنوان تاپیک عذرخواهی میکنم چیز جالب تری به فکرم نرسید حالا مشکلم رو شرح میدم متوجه میشید

من دارم یه برنامه مینویسم که باید در ثبت اطلاعاتم در دیتابیس تاریخ هم ذخیره بشه

اومدم یه اکتیویتی سااختم که تاریخ رو از کاربر می گیره

بعضی وقتها توی کد نویسی میگم مثلاً :

TxtDate.Text="1394"&"/"&"01"&"/"&"01"

خروجی این کد میشه 1394/01/01

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

اون هم خروجیش میشه 1394/01/01 ولی به صورت اعداد فارسی

اینجا مشکلی که ایجاد میشه اینه که وقتی من 1394/01/01 رو در دیتابیسم جستجو میکنم اگر زبان گوشیم فارسی باشه اون تاریخ فارسی رو فقط میاره اگه زبان انگلیسی باشه اون انگلیسیه رو میاره ...

حالا بگید چه کنم ؟

[حمید زارع 331]

اینم لینک مربوط به کتابخونه تاریخ :

http://answercenter.ir/thread2181.html

[arash127 488]

موقع ذخیره ی اطلاعات با تابع replace تموم اعداد فارسی را انگلیسی بکن و ذخیره بکن و موقع کوری زدن به دیتابیس هم فارسی هارو دوباره انگلیسی که و سرچ بزن.

[حمید زارع 331]

میشه یه مثال کوچولو بزنید که چطوز اعداد فارسی و انگلیسی رو تشخیص بدم و تبدیل کنم ؟

[arash127 488]

برای اعداد صفر تا 9 باید 10 تا if به این اضافه کنی

Dim s As String = "1394/05/06"
   For i=0 To 10
       If s.SubString2(i,i+1) == "۱"
       s.Replace(s.SubString2(i,i+1),"1")
       End If
   End For

اینم اعداد فارسی

۱ و ۲ و ۳ و ۴ و ۵ و ۶ و ۷ و ۸ و ۹ و ۰ 

[حمید زارع 331]

هیچ آبجکتی جایگزین ادیت تکست وجود نداره که مثلا خاصیت Right to Left داشته باشه که خودش اعداد رو فارسی بزنه ؟

یا نمیشه همین ادیت تکست موجود رو یه کاریش کرد ؟

[sganji 678]

نه دیگه مشکل بیسیک فور همینه چار تا آبجکت بیشتر نداره

برای اضافه کردن آبجکت سفارشی هم که بیچاره میشی...

[مهدی ایزدی 9,203]

طبق گفته های کاربر عزیز arash127 عمل کنید