حساب السنوات الكبيسة يهدف بشكل أساسي إلى تحديد عدد الأيام في شهر فبراير. بشكل عام، يحتوي شهر فبراير على 29 يومًا في السنوات الكبيسة و28 يومًا في السنوات العادية. خوارزمية حساب السنوات الكبيسة بسيطة للغاية، أي أنها قابلة للقسمة على 400، أو قابلة للقسمة على 4 ولكن غير قابلة للقسمة على 100.
الخوارزمية هي كما يلي:
الدالة isLeapYear(pYear)
set oreg=new RegExp
oreg.Pattern = "^d{4}$"
إذا لم يكن oreg.Test(pYear) ثم
isLeapYear=false
وظيفة الخروج
نهاية إذا
سنة=clng(pYear)
إذا ((oYear mod 4=0 وoYear mod 100<>0) أو oYear mod 400=0) إذن
isLeapYear=true
آخر
isLeapYear=false
نهاية إذا
وظيفة النهاية