Days in Month

[Serge]

Sure thing:

Public Function GetlastDayofMonth(pDate As Date)
    GetlastDayofMonth = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
End Function

Usage: GetlastDayofMonth YourDate

Example:

MsgBox "This year " & Format(Date, "mmmm") & " has " & GetlastDayofMonth(Date) & " days."

Regards,

------------------

Serge

Software Developer
[email protected]
[email protected]




[This message has been edited by Serge (edited 10-30-1999).]

[peteritv]

Yep, Serge's solution looks a lot better than mine (in the other post)....

[DiGiTaIErRoR]

how bout u answer my question serge? u seem hella good

[QWERTY]

THANKS

[QWERTY]

Is there a function to determine total number of days is any month?

Thanks in advance

[Serge]

DiGiTaIErRoR, what IS your question then?


Regards,

------------------

Serge

Software Developer
[email protected]
[email protected]

[zedar]

Is'nt it supposed to be like this ? (At least)

Whats the point of sending something in to the function if you don't use it ??
Whatever you send to this function it will return the current date's last day !!??

Public Function GetlastDayofMonth(pDate As Date)
GetlastDayofMonth = Day(DateSerial(Year(pDate), Month(pDate) + 1, 0))
End Function

/Zedar

[Serge]

The thing is: you have to pass atleast the Month and a Year so the date can be calculated correctly. (If that's your question)


Regards,

------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819

[tbostrup]

zedar is right.

The original code doesn't use the date variable passed to the function, but the Date function (thereby returning the number of days in the CURRENT month rather than the one in for the date specified).

HTH,
Tore.

[Serge]

I don't understand. In the example I made, I did passed the current date (just for testing), but the function itself is Generic. So you can pass any date.

Regards,

------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819

[Irochka]

Originally posted by Serge:
Sure thing:

Public Function GetlastDayofMonth(pDate As Date)
    GetlastDayofMonth = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
End Function

Usage: GetlastDayofMonth YourDate

Example:

MsgBox "This year " & Format(Date, "mmmm") & " has " & GetlastDayofMonth(Date) & " days."

Regards,

Serge, thanks a lot this is really useful tip, the only thing is that in your function there should be pDate used instead of date in all your calculations.
Public Function GetlastDayofMonth( _
pDate As Date)
GetlastDayofMonth = Day(DateSerial(Year(Date), Month(Date) + 1, 0))

[Serge]

Yep, I know I screwed up. That what happens when you type directly into the post (just a typo). LoL

------------------

Serge

Senior Programmer Analyst
[email protected]
[email protected]
ICQ#: 51055819