不同年份的月份 vb.net

最新推荐文章于 2022-03-11 15:00:42 发布

先来

最新推荐文章于 2022-03-11 15:00:42 发布

阅读量552

点赞数

文章标签： vb.net integer string class function

本文链接：https://blog.csdn.net/xianlaioy/article/details/5071568

版权

Imports Microsoft.VisualBasic
Imports System.Data

Public Class DropDownList

    Public Shared Function MonthReturnDay(ByVal Year As String, ByVal Month As String, ByVal DropDownListDay As System.Web.UI.WebControls.DropDownList) As Integer
        Dim day, i As Integer
        Dim isleap As Boolean
        If Len(Month.Trim) = 1 Then
            Month = "0" & Month
        End If
        Select Case Month.Trim

            Case "01"
                day = 31
            Case "02"
                isleap = False
                If Val(Right(Year, 4)) Mod 100 = 0 Then
                    If Val(Right(Year, 4)) Mod 400 = 0 Then
                        isleap = True
                    End If
                Else
                    If Val(Right(Year, 4)) Mod 4 = 0 Then
                        isleap = True
                    End If
                End If
                If isleap = True Then
                    day = 29
                Else
                    day = 28
                End If

            Case "03"
                day = 31
            Case "04"
                day = 30
            Case "05"
                day = 31
            Case "06"
                day = 30
            Case "07"
                day = 31
            Case "08"
                day = 31
            Case "09"
                day = 30
            Case "10"
                day = 31
            Case "11"
                day = 30
            Case "12"
                day = 31
        End Select

        Dim k As String
        DropDownListDay.Items.Clear()
        DropDownListDay.Items.Add("")
        For i = 1 To day
            If i < 10 Then
                k = "0" & i
            Else
                k = i
            End If
            DropDownListDay.Items.Add(k)
        Next
    End Function

End Class