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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。