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)

  Print Answers RSS
0 OriginalGriff 277
1 Maciej Los 230
2 BillWoodruff 205
3 Sergey Alexandrovich Kryukov 195
4 DamithSL 165
0 OriginalGriff 5,130
1 DamithSL 4,157
2 Maciej Los 3,650
3 Kornfeld Eliyahu Peter 3,460
4 Sergey Alexandrovich Kryukov 2,811


Advertise | Privacy | Mobile
Web01 | 2.8.141216.1 | Last Updated 6 Nov 2012
Copyright © CodeProject, 1999-2014
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