Cara Membuat Calender dengan VB 6

Dim bulan(12) As String
Dim hari(12) As Integer
Dim i As Integer
Dim ak As Integer
Dim b As Integer
Dim thun As Integer
Dim aw As Integer
Dim ax As Integer
Dim op As Integer
Dim tb As Integer
Dim z As Integer
Function syarat1(j As Integer) As String
bulan(1) = "Januari"
bulan(2) = "Februari"
bulan(3) = "Maret"
bulan(4) = "April"
bulan(5) = "Mei"
bulan(6) = "Juni"
bulan(7) = "Juli"
bulan(8) = "Agustus"
bulan(9) = "September"
bulan(10) = "Oktober"
bulan(11) = "November"
bulan(12) = "Desember"
syarat1 = bulan(j)
End Function
Public Function syarat2(i As Integer) As Integer
al = Year(Date) + tb
hari(1) = 31
If al Mod 4 = 0 Then
hari(2) = 29
Else
hari(2) = 28
End If
hari(3) = 31
hari(4) = 30
hari(5) = 31
hari(6) = 30
hari(7) = 31
hari(8) = 31
hari(9) = 30
hari(10) = 31
hari(11) = 30
hari(12) = 31
syarat2 = hari(i)
End Function
Sub Command2_Click()
Command1(z).FontBold = False
i = i + 1
If i > 12 Then
i = 1
tb = tb + 1
End If
ok = Year(Date) + tb
Label4.Caption = ok
For a = 0 To 41
Command1(a).Visible = False
Next
Label1.Caption = syarat1(i)
n = 1
For a = ak To syarat2(i) + ak - 1
Command1(a).Caption = n
Command1(a).Visible = True
If Label4.Caption = Year(Date) Then
If i = Month(Date) Then
If n = Day(Date) Then
z = a
Command1(z).FontBold = True
End If
End If
End If
n = n + 1
Next
aw = ak + 35 - 1
ak = a - 35
If aw > 41 Then
aw = aw - 7
End If
If ak < 0 Then
ak = ak + 7
End If
End Sub
Sub Command3_Click()
i = i - 1
Command1(z).FontBold = False
If i = 0 Then
i = 12
tb = tb - 1
End If
ok = Year(Date) + tb
Label4.Caption = ok
Label1.Caption = syarat1(i)
For a = 0 To 41
Command1(a).Visible = False
Next
n = 1
For a = aw - syarat2(i) + 1 To aw
Command1(a).Caption = n
Command1(a).Visible = True
If Label4.Caption = Year(Date) Then
If i = Month(Date) Then
If n = Day(Date) Then
z = a
Command1(z).FontBold = True
End If
End If
End If
n = n + 1
Next
aw = aw - syarat2(i) + 35
If aw > 41 Then
aw = aw - 7
End If
ak = a - 35
If ak < 0 Then
ak = ak + 7
End If
End Sub
Private Sub Form_Load()
For j = 0 To 41
Command1(j).Visible = False
Next
thun = 1989
tb = 0
n = 1
i = 1
Label1.Caption = syarat1(i)
Label4.Caption = Year(Date)
Form1.Caption = Date
a = chek(thun)
aw = a + 34
If aw > 41 Then
aw = aw - 7
End If
For k = a To syarat2(i) + a - 1
Command1(k).Caption = n
Command1(k).Visible = True
If Label4.Caption = Year(Date) Then
If i = Month(Date) Then
If n = Day(Date) Then
z = k
Command1(z).FontBold = True
End If
End If
End If
n = n + 1
Next
ak = k - 35
If ak < 0 Then
ak = ak + 7
End If
For j = 2 To Month(Date)
Call Command2_Click
Next
Label3.Caption = Day(Date)
End Sub
Function chek(jk As Integer) As Integer
ai = Year(Date)
ar = ai - jk
n = 6
For k = 1 To ar
If k Mod 4 = 0 Then
n = n + 1
End If
n = n + 1
If n >= 7 Then
n = n - 7
End If
Next
chek = n
End Function