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**********@o ptusnet.com.au> wrote in message
news:en******** ******@tk2msftn gp13.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******** ******@TK2MSFTN GP10.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**********@o ptusnet.com.au> wrote in message
news:en******** ******@tk2msftn gp13.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*****@hotmai lXXX.com> wrote in message
news:uI******** ********@TK2MSF TNGP11.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******** ******@TK2MSFTN GP10.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**********@o ptusnet.com.au> wrote in message
news:en******** ******@tk2msftn gp13.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 ,dtmFirstOfMont h)))
End If
End Function

'from dlbjr

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

[Chris Hohmann]

"dlbjr" <oo**@iforgot.c om> wrote in message
news:eX******** ******@TK2MSFTN GP12.phx.gbl...

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

'from dlbjr

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

Day(DateSerial( Year(dtmDate),M onth(dtmDate)+1 ,0))