|
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 （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
