关于闰年的问题?

y250404651 2012-12-05 08:09:27
求大大解惑呀?
为何书上 闰年都要这样表示
If (y Mod 4 = 0) Or (y Mod 400 = 0) And y Mod 100 <> 0 Then
MsgBox("是闰年")
End If
这样不可以吗?
If (y Mod 4 = 0) Then
MsgBox("是闰年")
End If
...全文
151 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
bookc-man 2012-12-05
  • 打赏
  • 举报
回复
闰年貌似是定义好的吧,难道还有疑问????
devmiao 2012-12-05
  • 打赏
  • 举报
回复
看看这个 http://bbs.csdn.net/topics/340135066 还是很有趣的哦。
51Crack 2012-12-05
  • 打赏
  • 举报
回复
你抄都抄错了
devmiao 2012-12-05
  • 打赏
  • 举报
回复
265.2425=>365.2425
devmiao 2012-12-05
  • 打赏
  • 举报
回复
假设1年算365天,和地球绕太阳公转的大约365.25天每4年相差1天,这是闰年的来历。 但是因为一年是365.24219天,而不是365.25天。 所以历法学家规定,每400年减少3个闰年,来平衡这个误差,规定就是公历年份逢100年的时候,如果不能被400整除,就不算闰年。 这样相当于我们规定1年是265.2425天,也许你说了,还有个很小的误差怎么办?对于这个万分之三的误差,每3000年才误差一天,到时候自然有办法的。
devmiao 2012-12-05
  • 打赏
  • 举报
回复
因为一年是365.24219天,而不是365.25天。 所以历法学家规定,每400年减少一个闰年,来平衡这个误差,规定就是公历年份逢100年的时候,如果不能被400整除,就不算闰年。
  • 打赏
  • 举报
回复
百度一下闰年的定义就知道了

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧