vba 如何判断日历中大小月及02月份28，29

saijintai · 发表于 2010-7-5 17:54

smhf_6 · 发表于 2010-7-5 18:06

这个1　3　5　7　8　10　12　大月是固定的
　　　4　6　9　11　小月也是固定的
2月份只要年份能被4整除，是29天，否则是28天。当然如果要考虑复杂一点，与100有关，与400也有关，但今年是2010年，在我们有生之年，一般就考虑整除4够了

蓝桥玄霜 · 发表于 2010-7-5 18:10

请抄写一遍代码。

alwstr · 发表于 2010-7-5 18:33

可以如下。。。

Sub daysofmonth()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = InputBox("请输入你要判断的年份")
b = InputBox("请输入你要判断的月份")
Select Case b
Case 1, 3, 5, 7, 8, 10, 12
c = 31
Case 4, 6, 9, 11
c = 30
Case 2
If a Mod 4 = 0 And a Mod 100 <> 0 Or a Mod 400 = 0 Then
c = 29
Else
c = 28
End If
Case Else
c = 0
End Select
MsgBox "你所判断月份的天数是" & c
End Sub

复制代码

unsamesky · 发表于 2010-7-5 19:13

原帖由 alwstr 于 2010-7-5 18:33 发表
可以如下。。。Sub daysofmonth()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = InputBox("请输入你要判断的年份")
b = InputBox("请输入你要判断的月份")
Select Case b ...

好工整的代码书写！
呵呵，case 2我经常这样写：
Case 2
      c=28
      If a Mod 4 = 0 And a Mod 100 <> 0 Or a Mod 400 = 0 Then c=29
case else  ...

northwolves · 发表于 2010-7-5 22:26

Sub Test()
y = 2010
m = 3
MsgBox Array("28天", "29天", "小月", "大月")(Day(DateSerial(y, m + 1, 0)) - 28)
End Sub

复制代码

yinglai · 发表于 2010-7-5 22:40

谢谢几位大师分享。

unsamesky · 发表于 2010-7-5 23:21

原帖由 northwolves 于 2010-7-5 22:26 发表

Sub Test()
y = 2010
m = 3
MsgBox Array("28天", "29天", "小月", "大月")(Day(DateSerial(y, m + 1, 0)) - 28)
End Sub

狼版，哪里有关于数组运用的资料可以学啊？！

wangfeng0917 · 发表于 2010-7-5 23:35

提示: 作者被禁止或删除内容自动屏蔽

ning84 · 发表于 2022-12-3 19:20

unsamesky 发表于 2010-7-5 23:21
狼版，哪里有关于数组运用的资料可以学啊？！

Sub ll()
Dim oDate As Date, tDate As Integer


For ii = 1958 To 2058
      If ii Mod 4 = 0 Then
            tDate = Day(DateSerial(ii, 2 + 1, 0))
            Debug.Print ii - 1958; DateSerial(ii, 2 + 1, 0), tDate,
            Debug.Print "闰年=31+" & tDate & "+31+30+31+30+31+31+30+31+30+31 = " & 31 + tDate + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + 30 + 31 & "天"
      End If
Next ii
End Sub

		自动登录	找回密码
密码			免费注册

wangfeng0917 wangfeng0917 当前离线性别保密 UID 915709 阅读权限 0 注册时间 2009-10-13 在线时间小时最后登录 1970-1-1 积分 176 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2010-7-5 23:35 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报