云外归鸟工作室网站

标题: 判断指定年份是否为润年 [打印本页]

作者: 云外归鸟 时间: 2010-10-7 19:50
标题: 判断指定年份是否为润年
原作者:esir

学习滚动条用法时写的例程。
本例程核心算法：
函数判断指定年份是否为润年(year 为整数型) 为 BOOL
      '润年条件：1、能被4整除且不能100整除。2、能够被400整除。
      如果 (year 余数 4=0) 与 (year 余数 100<>0) 或 (year 余数 400=0)  则
               返回 TRUE
      结束如果
      返回 FALSE
结束函数
[attach]63[/attach]

欢迎光临云外归鸟工作室网站 (http://www.ywgn.net/)