Dates in VB

My clients will enter the date of first payment.
I need to add month, week, bi-monthly, semi-monthly to this date and show on the screen. Can vb do it automaticaly or can someone help me with the code.
Who is Participating?
TaoistBearConnect With a Mentor Commented:
Use the DateAdd function.  Intervals must be Long integers, so fractional intervals will not work properly.

Dim MyDate As Date
Dim NextWeek As Date
Dim NextMonth As Date
Dim NextBiMonthly As Date
Dim NextSemiMonthlyA As Date
Dim NextSemiMonthlyB As Date

MyDate = CDate(Text1)
NextWeek = DateAdd("w", 1, MyDate)
NextMonth = DateAdd("m", 1, MyDate)
NextBiMonthly = DateAdd("m", 2, MyDate)
NextSemiMonthlyA = DateAdd("d", 15, MyDate)
NextSemiMonthlyB = DateAdd("m", 1, MyDate)

Nice job poo!
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.