주어진 연도가 PL/SQL에서 윤년인지 확인

여기에서는 PL/SQL을 사용하여 주어진 연도가 윤년인지 확인하는 방법을 살펴보겠습니다. PL/SQL 코드에서 일부 명령 그룹은 관련 선언문 블록 내에 정렬됩니다.

윤년 체크 알고리즘은 아래와 같습니다.

알고리즘

isLeapYear(year):
begin
   if year is divisible by 4 and not divisible by 100, then
      it is leap year
   else if the number is divisible by 400, then
      it is leap year
   else
      it is not leap year
end

예시

DECLARE
   year NUMBER := 2012;
BEGIN
   IF MOD(year, 4)=0
      AND
      MOD(year, 100)!=0
      OR
      MOD(year, 400)=0 THEN
      dbms_output.Put_line(year || ' is leap year ');
   ELSE
      dbms_output.Put_line(year || ' is not leap year.');
   END IF;
END;

출력

2012 is leap year