shervin_boy
چهارشنبه 14 مرداد 1394, 23:45 عصر
سلام
دوستان می خوام یه حلقه می خوام که تاریخ رو داخل یه تکست باکس بهش بدم و در یه تکست باکس دیگه یه عدد رو وارد کنم بعد به مقدار اون عدد تاریخ ثبت بشه فقط هر کدوم از تاریخ ها 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)
ممنون
دوستان می خوام یه حلقه می خوام که تاریخ رو داخل یه تکست باکس بهش بدم و در یه تکست باکس دیگه یه عدد رو وارد کنم بعد به مقدار اون عدد تاریخ ثبت بشه فقط هر کدوم از تاریخ ها 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)
ممنون