任意给定一年 判断年是否是闰年vb编程
答案:1 悬赏:20 手机版
解决时间 2021-04-04 08:49
- 提问者网友：火车头
- 2021-04-03 17:47
任意给定一年 判断年是否是闰年vb编程
最佳答案
- 五星知识达人网友：雪起风沙痕
- 2021-04-03 18:05
Public Function IsRunnian(ByVal n As Integer) As Boolean
Dim res As Boolean
res = False
If n Mod 400 = 0 Then
res = True
End If
If (n Mod 100 <> 0) And (n Mod 4 = 0) Then
res = True
End If
Return res
End Function
Dim res As Boolean
res = False
If n Mod 400 = 0 Then
res = True
End If
If (n Mod 100 <> 0) And (n Mod 4 = 0) Then
res = True
End If
Return res
End Function
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯