Menghitung tahun kabisat terutama untuk menentukan jumlah hari pada bulan Februari. Secara umum, bulan Februari memiliki 29 hari pada tahun kabisat dan 28 hari pada tahun biasa. Algoritma untuk menghitung tahun kabisat sangat sederhana, yaitu: habis dibagi 400, atau habis dibagi 4 tetapi tidak habis dibagi 100.
Algoritmanya adalah sebagai berikut:
fungsi isLeapYear(pYear)
atur oreg=RegExp baru
oreg.Pattern="^d{4}$"
jika tidak oreg.Test(pYear) maka
isLeapYear=salah
fungsi keluar
berakhir jika
oTahun=clng(pTahun)
jika ((oYear mod 4=0 dan oYear mod 100<>0) atau oYear mod 400=0) maka
isLeapYear=benar
kalau tidak
isLeapYear=salah
berakhir jika
fungsi akhir