ساخت تاریخ با استفاده از حلقه for

[shervin_boy]

سلام
دوستان می خوام یه حلقه می خوام که تاریخ رو داخل یه تکست باکس بهش بدم و در یه تکست باکس دیگه یه عدد رو وارد کنم بعد به مقدار اون عدد تاریخ ثبت بشه فقط هر کدوم از تاریخ ها 30 روز بره جلو تر
مثلا : تاریخ 1394/05/10
عدد 5 رو وارد تکست باکس کنم.برنامه اینطوری اجرا بشه
1394/05/10
1394/06/10
1394/07/10
1394/08/10
1394/09/10
یکی از دوستان خوبم علیرضا5 (http://barnamenevis.org/member.php?359296-%D8%B9%D9%84%DB%8C%D8%B1%D8%B6%D8%A75) کد تاریخ رو داده و کاملا درست عمل می کنه ولی من نتونستم توی حلقه ازش استفاده کنم

Text2.Text = Mid(Text1.Text, 1, 5) & (Mid(Text1.Text, 6, 2) + 1) & Mid(Text1.Text, 8, 3)

ممنون

[علیرضا5]

For i = 1 To 5
Text2.Text = Mid(Text1.Text, 1, 5) & (Mid(Text1.Text, 6, 2) + 1) & Mid(Text1.Text, 8, 3)
List1.AddItem Text2.Text
Next i

[shervin_boy]

سلام
ممنون ولی مشکلش اینه که فقط یک ماه می ره جلو و بعد همون ماه رو تکرار می کنه

[علیرضا5]

For i = 1 To 30
Dim sal, mah, rooz
sal = Mid(Text1.Text, 1, 4)
mah = (Mid(Text1.Text, 6, 2) + 1)
rooz = Mid(Text1.Text, 9, 2)
If mah = 13 Then mah = 1: sal = sal + 1
If Len(mah) = 1 Then mah = "0" & mah
If Len(rooz) = 1 Then mah = "0" & rooz
Text1.Text = sal & "/" & mah & "/" & rooz
List1.AddItem Text1.Text
Next i