Click here to Skip to main content
15,884,176 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
Dear All,

I am using the following code to get the current date and add one month to that date and print the same.

Code:

Dim nxt as Date
nxt = Now
Msbox ("Today's Date: " & nxt.Date)
MsgBox("Next Due Date: " & DateAdd(DateInterval.Month, 1, nxt.Date))


However, on execution of the code, i get the following response:
Today's Date: 12/25/2011
Next Due Date: 12:00:00 AM

Pl help me.

Thanks and regards,
--
Sridhar K
Posted

1 solution

Try this

MsgBox("Next Due Date: " & DateAdd(DateInterval.Month, 1, nxt))


Instead of

MsgBox("Next Due Date: " & DateAdd(DateInterval.Month, 1, nxt.Date))


Hope this helps.
 
Share this answer
 
v2
Comments
sridhar_2000 25-Nov-12 23:32pm    
I am sorry Rajesh. But the said solution is not working. Pl advice
Rajesh Kariyavula 26-Nov-12 23:12pm    
What is the result that you are getting

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900