script untuk mendeteksi tahun kabisat pada vb

apa itu tahun kabisat???? menurut wikipedia tahun kabisat (Bahasa Inggris: Leap Year) adalah sebuah Tahun Syamsiah di mana pada tahun tersebut jumlah hari tidak terdiri dari 365 hari tetapi 366 hari.

Terdapat algoritma mudah untuk menentukan apakah suatu tahun termasuk tahun kabisat atau bukan sebagai berikut:

1. Jika angka tahun itu habis dibagi 400, maka tahun itu sudah pasti tahun kabisat.
2. Jika angka tahun itu tidak habis dibagi 400 tetapi habis dibagi 100, maka tahun itu sudah pasti bukan merupakan tahun kabisat.
3. Jika angka tahun itu tidak habis dibagi 400, tidak habis dibagi 100 akan tetapi habis dibagi 4, maka tahun itu merupakan tahun kabisat.
4. Jika angka tahun tidak habis dibagi 400, tidak habis dibagi 100, dan tidak habis dibagi 4, maka tahun tersebut bukan merupakan tahun kabisat.



scripnya mudah saja, ini contoh fungsi yang dapat digunakan

Public Function cek_kabisat(tahun As Integer)
If (tahun Mod 4 = 0) And ((tahun Mod 100 <> 0) Or (tahun Mod 400 = 0)) Then
cek_kabisat = tahun & " tahun kabisat"
Else
cek_kabisat = tahun & " bukan tahun kabisat"
End If
End Function