判断指定年份是否为润年

云外归鸟

原作者:esir

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