Click here to Skip to main content
12,254,527 members (62,253 online)
Rate this:
 
Please Sign up or sign in to vote.
See more: VB DateTime VB.NET
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 5-Nov-12 15:48pm

1 solution

Rate this: bad
 
good
Please Sign up or sign in to vote.

Solution 1

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.
  Permalink  
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)



Advertise | Privacy | Mobile
Web01 | 2.8.160426.1 | Last Updated 6 Nov 2012
Copyright © CodeProject, 1999-2016
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100