Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: 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 16: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 at 25-Nov-12 23:32pm
   
I am sorry Rajesh. But the said solution is not working. Pl advice
Rajesh Kariyavula at 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
Web03 | 2.8.150301.1 | Last Updated 6 Nov 2012
Copyright © CodeProject, 1999-2015
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