Date expressions - help appreciated!!!

[ac512]

Hello

I am just wondering if there is an easy way that an expression can be used
to calculate the number of days in a month?

Any assistance would be greatly appreciated

Thank you in advance

AC

 

[tina]

well, the number of days in a month can change - specifically, the number of
days in February, depending on what year it is. for the number of days in a
*specific month of a specific year*, the following will work, as

Public Function isDaysCount(ByVal dat As Date) As Integer

Dim dat2 As Date

dat2 = DateAdd("m", 1, dat)

isDaysCount = DateDiff("d", DateSerial(Year(dat), Month(dat), 1), _
DateSerial(Year(dat2), Month(dat2), 1))

End Function

the function requires a complete date (month, day, year) for its' argument.

hth

 

[ac512]

Thanks very much for your assistance Tina

much appreciated

Kind regards
AC

 

[tina]

you're welcome; hope it helps or at least gives you some ideas that may be
useful.