PL/SQL

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

小云
107
2023-10-10 08:11:06
栏目: 云计算

以下是一个 PL/SQL 程序,用于检查给定的年份是否是闰年:

DECLARE
year_number NUMBER;
is_leap_year BOOLEAN := FALSE;
BEGIN
-- 提示用户输入年份
year_number := &year_number;
-- 判断闰年的条件:
-- 1. 能被4整除,但不能被100整除;
-- 2. 能被400整除。
IF (MOD(year_number, 4) = 0 AND MOD(year_number, 100) != 0) OR MOD(year_number, 400) = 0 THEN
is_leap_year := TRUE;
END IF;
-- 输出结果
IF is_leap_year THEN
DBMS_OUTPUT.PUT_LINE(year_number || '是闰年');
ELSE
DBMS_OUTPUT.PUT_LINE(year_number || '不是闰年');
END IF;
END;

在这个程序中,首先要求用户输入一个年份,然后根据闰年的定义进行判断。如果给定年份满足闰年的条件,则将 is_leap_year 标志设为 TRUE,否则为 FALSE。最后根据 is_leap_year 的值输出结果。

请注意,为了运行这个程序,需要在 PL/SQL 开发工具中启用输出(比如在 SQL Developer 中,需要打开 “View -> Dbms Output”)。

0
看了该问题的人还看了