Click here to Skip to main content
11,578,524 members (60,526 online)
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 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 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 Peter Leow 135
1 OriginalGriff 113
2 Richard MacCutchan 85
3 Frankie-C 75
4 Afzaal Ahmad Zeeshan 75
0 OriginalGriff 904
1 Sergey Alexandrovich Kryukov 715
2 Abhinav S 573
3 F-ES Sitecore 420
4 Suvendu Shekhar Giri 393


Advertise | Privacy | Mobile
Web03 | 2.8.150603.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