Как узнать что год високосный и сколько дней в месяце? - C#

Module EasyDate
    '---------------------------------------------------------
    ' <summary>
    ' FirstDateOfWeek - возвращает последнюю дату недели
    ' </summary>
    ' <param name='vDate'>Дата, на которую запрашивается вычисляемое значение</param>
    ' <param name='vFirstDayOfWeek'>Опционально, первый день недели. По умолчанию берутся установки системы.</param>
    ' <value></value>
    ' <remarks>
    ' </remarks>
    ' <history>
    '   Vladimir Kvashenko  09/04/2004  Created
    ' </history>
    '------------------------------------------------- --------
    Public Overloads Function FirstDayOfWeek(ByVal vDate As Date, Optional ByVal vFirstDayOfWeek As FirstDayOfWeek = Microsoft.VisualBasic.FirstDayOfWeek.System) As Date
        FirstDayOfWeek = vDate.AddDays(-1 * Weekday(vDate, vFirstDayOfWeek)).AddDays(1)
    End Function
    '---------------------------------------------------------
    ' <summary>
    ' FirstDateOfWeek - возвращает последнюю дату недели
    ' </summary>
    ' <param name='ticks'>Дата и время, выраженное в 100-наносекундных единицах.</param>
    ' <param name='vFirstDayOfWeek'>Опционально, первый день недели. По умолчанию берутся установки системы.</param>
    ' <value></value>
    ' <remarks>
    ' </remarks>
    ' <history>
    '   Vladimir Kvashenko  09/04/2004  Created
    ' </history>
    '---------------------------------------------------------
    Public Overloads Function FirstDayOfWeek(ByVal ticks As Long, Optional ByVal vFirstDayOfWeek As FirstDayOfWeek = Microsoft.VisualBasic.FirstDayOfWeek.System) As Date
        Dim vDate As New Date(ticks)
 
        FirstDayOfWeek = vDate.AddDays(-1 * Weekday(vDate, vFirstDayOfWeek)).AddDays(1)
    End Function
    '---------------------------------------------------------
    ' <summary>
    ' FirstDayOfWeek - возвращает первую дату недели
    ' </summary>
    ' <param name='year'>Год</param>
    ' <param name='month'>Месяц</param>
    ' <param name='day'>День</param>
    ' <param name='vFirstDayOfWeek'>Опционально, первый день недели. По умолчанию берутся установки системы.</param>
    ' <value></value>
    ' <remarks>
    ' </remarks>
    ' <history>
    '   Vladimir Kvashenko  09/04/2004  Created
    ' </history>
    '---------------------------------------------------------
    Public Overloads Function FirstDayOfWeek(ByVal year As Integer, _
                                             ByVal month As Integer, _
                                             ByVal day As Integer, _
                                             Optional ByVal vFirstDayOfWeek As FirstDayOfWeek = Microsoft.VisualBasic.FirstDayOfWeek.System) As Date
        Dim vDate As New Date(year, month, day)
 
        FirstDayOfWeek = vDate.AddDays(-1 * Weekday(vDate, vFirstDayOfWeek)).AddDays(1)
    End Function
    '---------------------------------------------------------
    ' <summary>
    ' LastDateOfWeek - возвращает первую дату недели
    ' </summary>
    ' <param name='vDate'>Дата, на которую запрашивается вычисляемое значение</param>
    ' <param name='vFirstDayOfWeek'>Опционально, первый день недели. По умолчанию берутся установки системы.</param>
    ' <value></value>
    ' <remarks>
        DayOfQuarter = DateSerial(vDate.Year, Int((vDate.Month - 1) / 3) * 3 + 1, 1)
    End Function
    '---------------------------------------------------------
    ' <summary>
    ' FirstDayOfQuarter - возвращает первую дату квартала указанной даты
    ' </summary>
    ' <param name='year'>Год</param>
    ' <param name='month'>Месяц</param>
    ' <param name='day'>День</param>
    ' <value></value>
    ' <remarks>
    ' </remarks>
    ' <history>
    '   Vladimir Kvashenko  09/04/2004  Created
    ' </history>
    '---------------------------------------------------------
    Public Overloads Function FirstDayOfQuarter(ByVal year As Integer, _
                                                ByVal month As Integer, _
                                                ByVal day As Integer) As Date
        Dim vDate As New Date(year, month, day)
 
        FirstDayOfQuarter = DateSerial(vDate.Year, Int((vDate.Month - 1) / 3) * 3 + 1, 1)
    End Function
    '---------------------------------------------------------
    ' <summary>
    ' LastDayOfQuarter - возвращает последнюю дату квартала указанной даты
    ' </summary>
    ' <param name='vDate'>Дата, на которую запрашивается вычисляемое значение</param>
    ' <value></value>
    ' <remarks>
    ' </remarks>
    ' <history>
    '   Vladimir Kvashenko  09/04/2004  Created
    ' </history>
    '---------------------------------------------------------
    Public Overloads Function LastDayOfQuarter(ByVal vDate As Date) As Date
        LastDayOfQuarter = DateSerial(vDate.Year, Int((vDate.Month - 1) / 3) * 3 + 4, 0)
    End Function
    '---------------------------------------------------------
    ' <summary>
    ' LastDayOfQuarter - возвращает последнюю дату квартала указанной даты
    ' </summary>
    ' <param name='ticks'>Дата и время, выраженное в 100-наносекундных единицах.</param>
    ' <value></value>
    ' <remarks>
    ' </remarks>
    ' <history>
    '   Vladimir Kvashenko  09/04/2004  Created
    ' </history>
    '---------------------------------------------------------
    Public Overloads Function LastDayOfQuarter(ByVal ticks As Long) As Date
        Dim vDate As New Date(ticks)
 
        LastDayOfQuarter = DateSerial(vDate.Year, Int((vDate.Month - 1) / 3) * 3 + 4, 0)
    End Function
    '---------------------------------------------------------
    ' <summary>
    ' LastDayOfQuarter - возвращает последнюю дату квартала указанной даты
    ' </summary>
    ' <param name='year'>Год</param>
    ' <param name='month'>Месяц</param>
    ' <param name='day'>День</param>
    ' <value></value>
    ' <remarks>
    ' </remarks>
    ' <history>
    '   Vladimir Kvashenko  09/04/2004  Created
    ' </history>
    '---------------------------------------------------------
    Public Overloads Function LastDayOfQuarter(ByVal year As Integer, _
                                               ByVal month As Integer, _
                                               ByVal day As Integer) As Date
        Dim vDate As New Date(year, month, day)
 
        LastDayOfQuarter = DateSerial(vDate.Year, Int((vDate.Month - 1) / 3) * 3 + 4, 0)
    End Function
    '---------------------------------------------------------
    ' <summary>
    ' FirstDateOfMonth - возвращает первую дату указанного месяца
    ' </summary>
    ' <param name='vDate'   ;
    ' <param name='year'>Год</param>
    ' <param name='month'>Месяц</param>
    ' <param name='day'>День</param>
    ' <value></value>
    ' <remarks>
    ' </remarks>
    ' <history>
    '   Vladimir Kvashenko  09/04/2004  Created
    ' </history>
    '---------------------------------------------------------
    Public Overloads Function LastDateOfMonth(ByVal year As Integer, _
                                              ByVal month As Integer, _
                                              ByVal day As Integer) As Date
        Dim vDate As New Date(year, month, day)
 
        LastDateOfMonth = DateSerial(vDate.Year, vDate.Month, System.DateTime.DaysInMonth(vDate.Year, vDate.Month))
    End Function
End Module