[Elda]

Hello...

Anybody could please give me link on how to find last day of the month.
I googled some, but its hard for me to understand.

[AdamSpeight2008]

What aspects of are hard?

[Elda]

Here Sir...

Public Function GetLastDayOfMonth(intMonth, intYear) As Date

    GetLastDayOfMonth = DateSerial(intYear, intMonth + 1, 0)

End Function

To call above function

Dim datLastDay as date

datLastDay=GetLastDayOfMonth(Month(Date()),Year(Date))) 'This line got error: Date is a type and cannot be used as expression.

Do I got the closer codes?

This post has been edited by Elda: 22 July 2011 - 12:31 AM

[fixo]

Your code is working for me, e,g.

       Dim datLastDay As Date = GetLastDayOfMonth(11, 2011)
        Console.WriteLine("{0:dd}", datLastDay)

[Elda]

Thank you... it works now...

[dbasnett]

    Private Function LastDayOfMonth(aDate As DateTime) As Date
        Return New DateTime(aDate.Year, _
                            aDate.Month, _
                            DateTime.DaysInMonth(aDate.Year, aDate.Month))
    End Function