如何得到本月一共有多少天?

heavenchuang 2003-05-17 03:25:44
如何得到本月一共有多少天?
...全文
55 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
junwhj 2003-05-17
avr=(a+b)/getmaxday(2003,5)
回复
heavenchuang 2003-05-17
由于小弟水平有限,烦大哥举个例子,如:avr=(a+b)/getmaxday 如何应用。
感谢!
回复
junwhj 2003-05-17
Private Function GetMaxDay(intYear As Integer, intMonth As Integer) As Integer
Select Case intMonth
Case 1, 3, 5, 7, 8, 10, 12
GetMaxDay = 31
Case 2
If intYear Mod 100 = 0 Then
If intYear Mod 400 = 0 Then
GetMaxDay = 29
Else
GetMaxDay = 28
End If
Else
If intYear Mod 4 = 0 Then
GetMaxDay = 29
Else
GetMaxDay = 28
End If
End If
Case 4, 6, 9, 11
GetMaxDay = 30
Case Else
GetMaxDay = 30
End Select
End Function
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7493

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-17 03:25
社区公告
暂无公告