การคำนวณปีอธิกสุรทินนั้นมีไว้เพื่อกำหนดจำนวนวันในเดือนกุมภาพันธ์เป็นหลัก โดยทั่วไปเดือนกุมภาพันธ์จะมี 29 วันในปีอธิกสุรทินและ 28 วันในปีปกติ อัลกอริทึมสำหรับการคำนวณปีอธิกสุรทินนั้นง่ายมาก กล่าวคือ หารด้วย 400 ลงตัว หรือหารด้วย 4 ลงตัว แต่หารด้วย 100 ลงตัวไม่ได้
อัลกอริธึมมีดังนี้:
ฟังก์ชัน isLeapYear(pYear)
ตั้งค่า oreg=regExp ใหม่
oreg.Pattern="^d{4}$"
ถ้าไม่ใช่ oreg.Test(pYear) แล้ว
isLeapYear=เท็จ
ฟังก์ชั่นทางออก
สิ้นสุดถ้า
oปี=clng(pYear)
ถ้า ((oYear mod 4=0 และ oYear mod 100<>0) หรือ oYear mod 400=0) แล้ว
คือLeapYear=จริง
อื่น
isLeapYear=เท็จ
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด