ตรวจสอบว่าปีที่กำหนดเป็นปีอธิกสุรทินใน 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