Adding to a date

[Roy Riddex]

How do I add to a date? I thought the following code would work but it
doesn't like it. I'm trying to add 6 months (182 days) onto a date.

Option Explicit

Private Sub Form_Load()
Dim Answer As Integer
Dim GivenDate As Date
GivenDate = "2/1/2004"
Answer = GivenDate + 182
Label1.Caption = Answer
End Sub

[Rick Rothstein]

> How do I add to a date? I thought the following code would work but it

doesn't like it. I'm trying to add 6 months (182 days) onto a date.

Option Explicit

Private Sub Form_Load()
Dim Answer As Integer
Dim GivenDate As Date
GivenDate = "2/1/2004"
Answer = GivenDate + 182
Label1.Caption = Answer
End Sub

Look up the DateAdd function in your help files. Also, while assigning
literal date values with a String, it is better to do it using # signs
instead.

GivenDate = #2/1/2004#

Rick - MVP

[Roy Riddex]

"Rick Rothstein" <ri************@NOSPAMcomcast.net> wrote in message
news:Mu********************@comcast.com...

How do I add to a date? I thought the following code would work but it
doesn't like it. I'm trying to add 6 months (182 days) onto a date.

Option Explicit

Private Sub Form_Load()
Dim Answer As Integer
Dim GivenDate As Date
GivenDate = "2/1/2004"
Answer = GivenDate + 182
Label1.Caption = Answer
End Sub

Look up the DateAdd function in your help files. Also, while assigning
literal date values with a String, it is better to do it using # signs
instead.

GivenDate = #2/1/2004#

Rick - MVP

Thanks Rick. Only problem is the college dont have a license to give out the
MSDN library, so the help files on my copy of VB6 dont work. Can someone
please help? I want to be able to add 182 days OR 6 months. Thanks

[J French]

On Sat, 6 Mar 2004 10:01:29 -0000, "Roy Riddex"
<ro**************@blueyonder.co.uk> wrote:

<snip>

Thanks Rick. Only problem is the college dont have a license to give out the
MSDN library, so the help files on my copy of VB6 dont work.
That is disgraceful
Can someone
please help? I want to be able to add 182 days OR 6 months. Thanks

NewDate = DateAdd(interval, number, OldDate)

The 'Interval' strings are :-

yyyy Year
q Quarter
m Month
y Day of year
d Day
w Weekday
ww Week
h Hour
n Minute
s Second

eg: 6 months
NewDate = DateAdd( "m", 6, OldDate)

eg: 182 days
NewDate = DateAdd( "d", 182, OldDate)

[Rick Rothstein]

> <snip>

Thanks Rick. Only problem is the college dont have a license to give out theMSDN library, so the help files on my copy of VB6 dont work.

That is disgraceful

Can someone
please help? I want to be able to add 182 days OR 6 months. Thanks

NewDate = DateAdd(interval, number, OldDate)

The 'Interval' strings are :-

yyyy Year
q Quarter
m Month
y Day of year
d Day
w Weekday
ww Week
h Hour
n Minute
s Second

eg: 6 months
NewDate = DateAdd( "m", 6, OldDate)

eg: 182 days
NewDate = DateAdd( "d", 182, OldDate)

First, I'd like to not that adding 182 days (as you originally proposed)
will not always cover an exact 6-month period of time... the starting date
and the varying number of days for the subsequent months will affect it. Use
the "m" interval argument coupled with the "6" for the exact answer no
matter what your OldDate is.

Now, yes, I agree with JFrench's statement... it is disgraceful that your
college didn't acquire the Help files for its students... how short-sighted
can you get? If you go to this link...

http://msdn.microsoft.com/library/

it will take you to the online Microsoft Help files. They are not as
convenient to use as a local copy of the MSDN would be, but they'll do.
Follow this "tree" down to the VB6 section covering the Language and Control
references...

-Visual Tools and Languages
-Visual Studio 6.0
-Visual Basic 6.0
-Product Documentation
-Reference
-Language Reference
-Controls Reference

under which you will find the syntax for the things you will encounter in
VB6.

Rick - MVP

[Steve Gerrard]

"J French" <er*****@nowhere.com> wrote in message
news:40****************@news.btclick.com...

On Sat, 6 Mar 2004 10:01:29 -0000, "Roy Riddex"
<ro**************@blueyonder.co.uk> wrote:

<snip>

Thanks Rick. Only problem is the college dont have a license to give out theMSDN library, so the help files on my copy of VB6 dont work.

That is disgraceful

If I am not mistaken, at work when we got MSDN library for a while
(circa 2000), they changed the license to say more or less "one copy is
all you need for all the people where you work to use this". So I think
your college can legally allow multiple users to install their one copy
(hopefully they have one copy).

[Roy Riddex]

Thanks for all your help. Unfortunately the MSDN library problem has been
ongoing since I started at college last August. Not even the in-house
college machines have it installed so there is no chance of me aquiring a
copy for home. However, as the course gets steadily more difficult I think I
may need to 'aquire' a copy from somewhere else.

Roy

[thfc1961]

Label1.Caption = Format(Answer,"mm/dd/yyyy")

"Roy Riddex" <ro**************@blueyonder.co.uk> wrote in message
news:on****************@news-binary.blueyonder.co.uk...

How do I add to a date? I thought the following code would work but it
doesn't like it. I'm trying to add 6 months (182 days) onto a date.

Option Explicit

Private Sub Form_Load()
Dim Answer As Integer
Dim GivenDate As Date
GivenDate = "2/1/2004"
Answer = GivenDate + 182
Label1.Caption = Answer
End Sub

[Roy Riddex]

Label1.Caption = Format(Answer,"mm/dd/yyyy")

Erm....did you read the OP? I had asked how to add days or months onto a
date. I didn't ask how to format a date, but thanks anyway.

[QuickHare]

> > Label1.Caption = Format(Answer,"mm/dd/yyyy")

Erm....did you read the OP? I had asked how to add days or months onto a
date. I didn't ask how to format a date, but thanks anyway.

The OP asked about adding to the date. He did this by using Answer = GivenDate +
182, which is how to add to the date. To reformat it into a human-readable date,
you use Format. The only point I'd raise is to use Format$() as this converts it
into a string automatically, and saves the computer time (especially if done in
a loop).

--
QuickHare
(QuickHare "at" Hotmail "dot" com)