Menghitung bulan kabisat di Visual basic

Siapkan satu Form, 1 Textbox, 1 label dan 1 ComamndBotton

Codingnya :


Private Sub Command1_Click()
If Val(Text1.Text) Mod 4 = 0 Then
If Val(Text1.Text) Mod 100 = 0 Then
If Val(Text1.Text) Mod 400 = 0 Then
Label1.Caption = "Kabisat"
Else
Label1.Caption = "Bukan Kabisat"
End If
Else
Label1.Caption = "Kabisat"
End If
Else
Label1.Caption = "BUkan Kabisat"
End If

End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If

End Sub

selengkapnya Download disini