DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

code to add 15 days to a given date.

Thread Solved

•

Join Date: Jun 2008

Posts: 33

Reputation: chanthung is an unknown quantity at this point

Solved Threads: 0

chanthung

Offline

Light Poster

code to add 15 days to a given date.

Jun 24th, 2008

M writing a program to display the date ie. 15 days later after a given (present/todays)date.
Wel its actually like this. As soon as i write todays date, in the next text box, the date shd be automatically displayed adding 15 days to the present date which is already displayed.
Eg. supose i enter 01/06/2008 (dd/mm/yyyy), it shud automatically display 15/06/2008.
M trying to use
Datediff() function, but i dont know how to go about.

can anyone plz help me with the code..?

•

Join Date: Jun 2008

Posts: 1

Reputation: nagasai is an unknown quantity at this point

Solved Threads: 1

nagasai

Offline

Newbie Poster

Re: code to add 15 days to a given date.

Jun 24th, 2008

In C#:

string strDate = "20/10/1983";
DateTime date = DateTime.Parse(strDate);
string newDate = date.AddDays(15).ToShortDateString();

•

Join Date: Nov 2006

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 120

QVeen72

Offline

Practically a Posting Shark

Re: code to add 15 days to a given date.

Jun 24th, 2008

Hi,

Use DateAdd function

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Dim TDate As Date
TDate = CDate("01-06-2008")
MsgBox DateAdd("d", 15, TDate)
Dim TDate As Date
TDate = CDate("01-06-2008")
MsgBox DateAdd("d", 15, TDate)

Regards
Veena

•

Join Date: Feb 2008

Posts: 509

Reputation: selvaganapathy is an unknown quantity at this point

Solved Threads: 88

selvaganapathy selvaganapathy is offline

Offline

Posting Pro

Re: code to add 15 days to a given date.

Jun 24th, 2008

Similar to Veena, I give another way

 Help with Code Tags 
 VB Syntax (Toggle Plain Text) 
   Dim TDate As Date
   TDate = Date
   MsgBox TDate + 15
   Dim TDate As Date
   TDate = Date
   MsgBox TDate + 15

Still same result

Note:
Date object plus number will work only for days addition, but DateAdd() function will work for any interval

Last edited by selvaganapathy; Jun 24th, 2008 at 12:27 pm.

KSG

•

Join Date: Jun 2008

Posts: 33

Reputation: chanthung is an unknown quantity at this point

Solved Threads: 0

chanthung

Offline

Light Poster

Re: code to add 15 days to a given date.

Jun 25th, 2008

Thanks lots to all of u for help. M on it right away. Actually i'll be taking the date from the user tru da text box (n tn accept it in a string i suppose..)and try to add using the DateAdd function. The new date will be displayed in the next textbox. So after say 15 days it shud display a msg or change the background color i gs. M using Grid Control layout to display the Datas. MS Access is my database.

Have a Wonderful day ahead!!!!

•

Join Date: Jun 2008

Posts: 33

Reputation: chanthung is an unknown quantity at this point

Solved Threads: 0

chanthung

Offline

Light Poster

Re: code to add 15 days to a given date.

Jun 25th, 2008

made it this way.

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub Text5_Lostfocus()
    Dim PDate, RDate As Date
    PDate = CDate(Text5.Text)
    RDate = DateAdd("d", 15, PDate)
    Text6.Text = RDate
End Sub
Private Sub Text5_Lostfocus()
    Dim PDate, RDate As Date
    PDate = CDate(Text5.Text)
    RDate = DateAdd("d", 15, PDate)
    Text6.Text = RDate
End Sub