Return Number of Days In a month.

[Adam Knight]

I am wanting to create my own calendar asp module.

Are there any functions in vbscript that return the number of days in a
particular month depending on what year it is ??

[Ray at]

You could do this:

iDays = Day(DateAdd("d", -1, DateAdd("m", 1, yourDate)))

If you don't have a value of "yourDate" and just have a month and a year,
do:

yourDate = yourYear & "-" & yourMonth & "-1"

What the code above is doing is taking your date, adding one month to it,
then subtracting one day.

Ray at work
"Adam Knight" <ad**********@optusnet.com.au> wrote in message
news:en**************@tk2msftngp13.phx.gbl...

I am wanting to create my own calendar asp module.

Are there any functions in vbscript that return the number of days in a
particular month depending on what year it is ??

[TomB]

Ray,

iDays = Day(DateAdd("d", -1, DateAdd("m", 1, yourDate)))

DateAdd("m",1, yourDate) -- so it goes to June 19 (assuming yourDate is
May19)
DateAdd("d",-1,theAbove) -- so it goes to June 18
Day(theAbove) -- 18

Am I missing something?
TomB
"Ray at <%=sLocation%> [MVP]" <myfirstname at lane34 dot com> wrote in
message news:eW**************@TK2MSFTNGP10.phx.gbl...

You could do this:

iDays = Day(DateAdd("d", -1, DateAdd("m", 1, yourDate)))

If you don't have a value of "yourDate" and just have a month and a year,
do:

yourDate = yourYear & "-" & yourMonth & "-1"

What the code above is doing is taking your date, adding one month to it,
then subtracting one day.

Ray at work
"Adam Knight" <ad**********@optusnet.com.au> wrote in message
news:en**************@tk2msftngp13.phx.gbl...

I am wanting to create my own calendar asp module.

Are there any functions in vbscript that return the number of days in a
particular month depending on what year it is ??

[Ray at]

I was going with a "yourDate" as being the first of the month. If it's just
an arbitrary date, then you (or Adam?) could do:

myDate = "2004-05-19"
yourDate = Year(myDate) & "-" & Month(myDate) & "-1"

first. That will then do:
- go to beginning of month
- add one month
- subtract one day

Ray at work
"TomB" <sh*****@hotmailXXX.com> wrote in message
news:uI****************@TK2MSFTNGP11.phx.gbl...

Ray,

iDays = Day(DateAdd("d", -1, DateAdd("m", 1, yourDate)))

DateAdd("m",1, yourDate) -- so it goes to June 19 (assuming yourDate is
May19)
DateAdd("d",-1,theAbove) -- so it goes to June 18
Day(theAbove) -- 18

Am I missing something?
TomB
"Ray at <%=sLocation%> [MVP]" <myfirstname at lane34 dot com> wrote in
message news:eW**************@TK2MSFTNGP10.phx.gbl...

You could do this:

iDays = Day(DateAdd("d", -1, DateAdd("m", 1, yourDate)))

If you don't have a value of "yourDate" and just have a month and a year, do:

yourDate = yourYear & "-" & yourMonth & "-1"

What the code above is doing is taking your date, adding one month to it, then subtracting one day.

Ray at work
"Adam Knight" <ad**********@optusnet.com.au> wrote in message
news:en**************@tk2msftngp13.phx.gbl...

I am wanting to create my own calendar asp module.

Are there any functions in vbscript that return the number of days in a particular month depending on what year it is ??

[dlbjr]

Function GetDaysInMonth(dtmDate)
If IsDate(dtmDate) Then
dtmFirstOfMonth = DateSerial(Year(dtmDate),Month(dtmDate),1)
GetDaysInMonth = Day(DateAdd("d",-1,DateAdd("m",1,dtmFirstOfMonth)))
End If
End Function

'from dlbjr

'Unambit from meager knowledge of inane others,engender uncharted sagacity.

[Chris Hohmann]

"dlbjr" <oo**@iforgot.com> wrote in message
news:eX**************@TK2MSFTNGP12.phx.gbl...

Function GetDaysInMonth(dtmDate)
If IsDate(dtmDate) Then
dtmFirstOfMonth = DateSerial(Year(dtmDate),Month(dtmDate),1)
GetDaysInMonth = Day(DateAdd("d",-1,DateAdd("m",1,dtmFirstOfMonth))) End If
End Function

'from dlbjr

'Unambit from meager knowledge of inane others,engender uncharted sagacity.

Day(DateSerial(Year(dtmDate),Month(dtmDate)+1,0))