انتخاب دو رقم اخر تاریخ

[reza_1199]

با عرض سلام خدمت همه دوستان و اساتید سایت
قبل از مطرح کردن سوالم بگم که من تو سایت جستجو کردم ولی اونی که خواسته من بود نتونستم پیدا کنم و واژه هایی مانند left,right,mid,انتخاب دو رقم اخر تاریخ و ...اما به نتیجه نرسیدم و مجبور به ایجاد تایپیک جدید شدم
اما سوالم من یه فیلد تاریخ دارم از نوع تکست که مقدارشو از ماژول تاریخ شمسی میگیره و تاریخ روز جاری رو در خودش ذخیره میکنه (shamsi=) حال مشکل من اینه که میخوام وقتی فوکوس رو فیلد تاریخ رفت دو رقم اخر انتخاب شده باشه ولی حذف نشه به فرض ۱۳۹۵/۱۰/۲۵ که میخوام ۲۵ انتخاب شده باشه ممنون میشم از دوستان منو راهنمایی کنن

[Mehr@ban]

سلام
یه راهنمایی کلی میکنم احتمالا کارت راه بیفته
شما باید اعداد موجود در اون فیلد رو تبدیل به رشته بکنی
بعد طبق یه ماسک یا الگو اعداد مورد نظر خودت رو انتخاب کنی
بعد انتخاب کردنشون یا باید سلکت بشن یا توی یه متغیر دیگه ریخته بشه

البته این مراحل باید توی محیط vb نوشته بشه!

[mohsen1393]

سلام دوست عزیز
براحتی با تابع mid اینکار امکان پذیر هست

[reza_1199]

از نظرات دوستان تشکر میکنم در صورت امکان اگه براتون مقدوره کد یا نمونشو برام قرار بدین ممنون میشم در مورد تابع mid من استفاده کردم ولی احتمالا یا درست ننوشتم یا جواب نداد فیلد تاریخ من از نوع تکست با فرمت 9999/99/99 می باشد بنام tarekh و من اینو نوشتم
=(mid(tarekh,7,2
اما منکه جواب نگرفتم در صورت مقدور بودن اگه ایراد داره برام اصلاح کنید ممنون

[AbbasSediqi]

از نظرات دوستان تشکر میکنم در صورت امکان اگه براتون مقدوره کد یا نمونشو برام قرار بدین ممنون میشم در مورد تابع mid من استفاده کردم ولی احتمالا یا درست ننوشتم یا جواب نداد فیلد تاریخ من از نوع تکست با فرمت 9999/99/99 می باشد بنام tarekh و من اینو نوشتم
=(mid(tarekh,7,2
اما منکه جواب نگرفتم در صورت مقدور بودن اگه ایراد داره برام اصلاح کنید ممنون

Private Sub Text0_GotFocus()

    Me.Text0.Text = Shamsi()

    Me.Text0.SelStart = 6

    Me.Text0.SelLength = 2

End Sub

نمونه هم قرار داده شد

[reza_1199]

آقای صدیقی عالی بود ممنون

[AbbasSediqi]

قابلی نداشت