جدا کردن رشته مورد نظر

[aminvb]

با سلام
ما 4 تا رشته داریم 11/11/1389 - 1/11/1389- 11/1/1389- 1/1/1389


میخوام مقدار ماه رو جدا کنم اما مشکل خوردم از mid استفاده کردم به این صورت


microsoft.visualbasic.mid("11/11/1389", 4 , 2)خوب اینجا ماه درست جدا میشه

اما همینو بخوام برای این تاریخ 11/1/1389 استفاده کنم مقدار ماه رو میده /1

یک شرطی میخوام که اگه هر کدوم از حالات بالا بود مقدار ماه رو درست بده
کار با رشته ها رو خوب بلد نیستم فکرم به جایی نرسید دوستان کمک میکنند ؟:گریه:

البته همیشه این تاریخ ها نیست مشکله من با تک رقمی بودن روز یا ماه هست
که مشخص نیست منم نمیتونم جدا کنم:عصبانی++:

[ali_najari]

دوست عزيز چرا از تابع Splite استفاده نميكني؟

به اين صورت ميتوني استفاده كني



Dim Sal As Integer
Dim Mah As Integer
Dim Roz As Integer
Dim S
S = Split("1389/1/1", "/")
Sal = Int(S(0))
Mah = Int(S(1))
Roz = Int(S(2))

[aminvb]

میشه یکم توضیح بدی ؟

در مورد کار تابع؟

در ضمن مقدار تاریخ مشخص نیست چی باشه ممکنه یکی از اون چهار حالت بالا باشه
میخواماگه هر کدوم از اون چهار حالت بود ماه رو درست جدا کنه

درضمن این اعداد روز و ماه ثابت نیست چهار حالت ممکنه براش اتفاق بیوفته من اون چهار حالت رو نوشتم وگر نه اون اعداد ثابت نیست مثال بود

[ali_najari]

میشه یکم توضیح بدی ؟

در مورد کار تابع؟

در ضمن مقدار تاریخ مشخص نیست چی باشه ممکنه یکی از اون چهار حالت بالا باشه
میخواماگه هر کدوم از اون چهار حالت بود ماه رو درست جدا کنه


ببينيد تفاوتي نميكنه كه كدوم يكي از اون حالت ها اتفاق بيافته تابع Split مياد مقدار رشته مورد نظر رو بر اساس نوع جدا كننده كه در اينجا "/" هست رو تكه تكه ميكنه و با توجه به رشته ورودي شما 3 آرايه بوجود مياد كه ارايه 0 همان سال و آرايه 1 ماه و آرايه 2 همان روز شما مي باشد

اين تابع كارش جدا كردن رشته بر اساس متغير تعريف شده ميباشد

[ali_najari]

اين يه نمونه كه الان آماده كردم تا يكم مفهوم رو بهتر بفهمي