Private Sub cboBulan_Change()
cboBulan_Click
End Sub
Private Sub cmdTampil_Click()
jlhhari = 0
For i = 1 To Val(txtTahun.Text) - 1
If i Mod 4 = 0 Then
jlhhari = jlhhari + 366
Else
jlhhari = jlhhari + 365
End If
Next i
For i = 1 To Val(cboBulan.Text) - 1
Select Case i
Case 1, 3, 5, 7, 8, 10, 12:
jlhhari = jlhhari + 31
Case 4, 6, 9, 11:
jlhhari = jlhhari + 30
Case Else:
If Val(txtTahun.Text) Mod 4 = 0 Then
jlhhari = jlhhari + 29
Else
jlhhari = jlhhari + 28
End If
End Select
Next i
jlhhari = jlhhari + Val(cboTanggal.Text)
Select Case jlhhari Mod 7
Case 0:
ket = "Sabtu"
Case 1:
ket = "Minggu"
Case 2:
ket = "Senin"
Case 3:
ket = "Selasa"
Case 4:
ket = "Rabu"
Case 5:
ket = "Kamis"
Case Else
ket = "Jum'at"
End Select
txtTanggal.Text = cboTanggal.Text & " - " & cboBulan.Text & " - " & txtTahun.Text
txtHari.Text = ket
Select Case cboBulan.Text
Case "1":
bulan = "Januari"
hari = 31
Case "2":
bulan = "Februari"
If Val(txtTahun.Text) Mod 4 = 0 Then
hari = 29
Else
hari = 28
End If
Case "3":
bulan = "Maret"
hari = 31
Case "4":
bulan = "April"
hari = 30
Case "5":
bulan = "Mei"
hari = 31
Case "6":
bulan = "Juni"
hari = 30
Case "7":
bulan = "Juli"
hari = 31
Case "8":
bulan = "Agustus"
hari = 31
Case "9":
bulan = "September"
hari = 30
Case "10":
bulan = "Oktober"
hari = 31
Case "11":
bulan = "November"
hari = 30
Case "12":
bulan = "Desember"
hari = 31
End Select
lblKet.Caption = "Pada bulan " & bulan & " tersebut terdapat " & _
hari & " hari"
End Sub
Private Sub cboBulan_Click()
cboTanggal.Clear
Select Case cboBulan.Text
Case 1, 3, 5, 7, 8, 10, 12:
For i = 1 To 31
cboTanggal.AddItem i
Next i
Case 4, 6, 9, 11:
For i = 1 To 30
cboTanggal.AddItem i
Next i
Case 2:
If Val(txtTahun.Text) Mod 4 = 0 Then
For i = 1 To 29
cboTanggal.AddItem i
Next i
Else
For i = 1 To 28
cboTanggal.AddItem i
Next i
End If
Case Else
cboTanggal.Clear
cboTanggal.AddItem "0"
End Select
cboTanggal.ListIndex = 0
End Sub
Private Sub Form_Load()
For i = 1 To 12
cboBulan.AddItem i
Next i
cboBulan.ListIndex = 0
End Sub