Fa افزودن روز یا ماه به یک تاریخ

[sorooshk]

سلام

من میخواهم که به یک تاریخ مشخص که با یک TextBox از کاربر دریافت میشه چند ماه یا چند روز اضافه کنم و تاریخ جدید را در یک لیبل یا TextBox دیگه نشون بدم.

مثلا 4 ماه و 6 روز به تاریخ 03/03/1389 اضافه بشه

البته تاریخ را خود کاربر مشخص میکنه

آیا میشه چنین کاری کرد؟

اگر بله به چه صورت؟

 

[Saman]

از این کد میتونید استفاده کنید.
این کد تاریخ و 2 ماه میکشه جلو.
البته این روش وقتی خوب جواب میده که همیشه تاریخ به صورت 9999/99/99 باشه.

month=VAL(StrCopy(date$,6,2))+2
month$=CHAR(month)
len=LEN(month$)
If (len=1) Then
  month$='0'+month$
End
date$=StrCopy(date$,1,5)+month$+StrCopy(date$,8,3)
DisplayValue("EditBox","date$")

 

[Saman]

از این کد میتونید استفاده کنید.
این کد تاریخ و 2 ماه میکشه جلو.
البته این روش وقتی خوب جواب میده که همیشه تاریخ به صورت 9999/99/99 باشه.

month=VAL(StrCopy(date$,6,2))+2
month$=CHAR(month)
len=LEN(month$)
If (len=1) Then
  month$='0'+month$
End
date$=StrCopy(date$,1,5)+month$+StrCopy(date$,8,3)
DisplayValue("EditBox","date$")

 

[evil_gates]

با اجازه جناب [SaMan] اين هم يك مثال ديگه. البته شايد كمي پيچيده به نظر برسه ولي خيلي ساده ميتونه تعداد روز و ماهي كه مدنظرتون هست رو اضافه كنه.