Click here to Skip to main content
12,406,592 members (48,140 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)

  Print Answers RSS
Top Experts
Last 24hrsThis month


Advertise | Privacy | Mobile
Web02 | 2.8.160730.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