Days in month

C

Craig

Hi all,
is there a function that will
give the number of days in a month that works with the NOW
() function ? I have looked through help and I can't see
anything obvious...
 
C

Cheryl Fischer

The following will do it:

Format(DateSerial(Year(Now()),Month(Now())+1,0),"d")


hth,
 
C

Chris Nebinger

Not a built in, but the UDF is pretty simple:

Function DaysInMonth(dteDay) As Integer
Dim dteTemp As Date
'Get the first day of the current month
dteTemp = DateSerial(Year(dteDay), Month(dteDay), 1)
'Add 1 month
dteTemp = DateAdd("m", 1, dteTemp)
'Subtract 1 day to get last day of previous month
dteTemp = dteTemp - 1
'Number of days in the month is the day part
DaysInMonth = Day(dteTemp)
End Function


Call it like: DaysInMonth(Now)


Chris Nebinger
 
M

Mitch

Thanks guys,
that works perfect !!!
-----Original Message-----
Not a built in, but the UDF is pretty simple:

Function DaysInMonth(dteDay) As Integer
Dim dteTemp As Date
'Get the first day of the current month
dteTemp = DateSerial(Year(dteDay), Month(dteDay), 1)
'Add 1 month
dteTemp = DateAdd("m", 1, dteTemp)
'Subtract 1 day to get last day of previous month
dteTemp = dteTemp - 1
'Number of days in the month is the day part
DaysInMonth = Day(dteTemp)
End Function


Call it like: DaysInMonth(Now)


Chris Nebinger

.
Click to expand...
 
Top