检查 PL/SQL 中给定年份是否为闰年

在 PL/SQL 开发中，有时需要检查给定年份是否为闰年。为了方便起见，我们可以写一个函数来完成该任务。

阅读更多：MySQL 教程

闰年的定义

闰年是指可以被4整除的年份为普通闰年，但是对于可以被100整除而不能被400整除的年份为世纪闰年。

例如，2000年是世纪闰年，1900年不是闰年，2004年是普通闰年。

PL/SQL 代码实现

下面给出一个 PL/SQL 函数来判断一个年份是否为闰年：

CREATE OR REPLACE FUNCTION is_leap_year (p_year NUMBER)
RETURN BOOLEAN
IS
BEGIN
    IF (MOD(p_year, 4) = 0 AND MOD(p_year, 100) != 0)
    OR (MOD(p_year, 400) = 0)
    THEN
        RETURN TRUE;
    ELSE
        RETURN FALSE;
    END IF;
END;
/

该函数接受一个整数参数 p_year，返回一个布尔值，表示该年份是否为闰年。

函数内部使用了 PL/SQL 中的 MOD 函数，返回两个数相除得到的余数。

函数首先判断能否被 4 整除但不能被 100 整除，或能被 400 整除。如果是，则返回 TRUE，表示该年份为闰年；否则返回 FALSE。

示例

在 SQL*Plus 或者 SQL Developer 中，可以按照以下方式测试该函数：

DECLARE
    l_year NUMBER := 2000;
    l_is_leap BOOLEAN;
BEGIN
    l_is_leap := is_leap_year(l_year);
    IF l_is_leap THEN
        dbms_output.put_line(l_year || ' is a leap year.');
    ELSE
        dbms_output.put_line(l_year || ' is not a leap year.');
    END IF;
END;
/

在运行上述代码后，会打印出以下结果：