28,404
社区成员
发帖
与我相关
我的任务
分享求根据输入的年月排列出这个月中的所有日期
比如在选择了2006年3月后,会出现
20060301
20060302
20060303
.
.
.
20060331
这样的数据,谢谢
20060301
20060302
20060303
.
.
.
20060331
这样的数据,谢谢
...全文
请发表友善的回复…
发表回复
player2 2006-03-08
- 打赏
- 举报
Sub writeDate(Year,Month)
If Month = 1 Or Month = 3 Or Month = 5 Or Month = 7 Or Month = 8 Or Month = 10 Or Month = 12 Then
DayCount = 31
ElseIf Month = 4 Or Month = 6 Or Month = 9 Or Month = 11 Then
DayCount = 30
ElseIf Month = 2 Then
If (CInt(Year) \ 4) = 0 And (CInt(Year) \ 400) <> 0 Then
DayCount = 29
Else
DayCount = 28
End If
End If
If CInt(Month) < 10 Then
Month = "0" & CStr(Month)
End If
For I = 1 To DayCount
Dim tDay
tDay = CStr(I)
If I < 10 Then
tDay = "0" & CStr(I)
End If
Response.Write CStr(Year) & CStr(Month) & tDay
Next
End Sub
If Month = 1 Or Month = 3 Or Month = 5 Or Month = 7 Or Month = 8 Or Month = 10 Or Month = 12 Then
DayCount = 31
ElseIf Month = 4 Or Month = 6 Or Month = 9 Or Month = 11 Then
DayCount = 30
ElseIf Month = 2 Then
If (CInt(Year) \ 4) = 0 And (CInt(Year) \ 400) <> 0 Then
DayCount = 29
Else
DayCount = 28
End If
End If
If CInt(Month) < 10 Then
Month = "0" & CStr(Month)
End If
For I = 1 To DayCount
Dim tDay
tDay = CStr(I)
If I < 10 Then
tDay = "0" & CStr(I)
End If
Response.Write CStr(Year) & CStr(Month) & tDay
Next
End Sub
