Private Sub cm1_Click()

Dim N, T As Byte

N = c3 Mod 4

If c2 = 2 And N = 0 Then

For I = 1 To 29

c1.AddItem I

Next I

Else

For I = 1 To 28

c1.AddItem I

Next I

End If

Select Case THANG

Case 1, 3, 5, 7, 8, 10, 12:

c1 = "31"

Case 4, 6, 9, 11:

c1 = "30"

End Select

T = Weekday(c1 & " / " & c2 & " / " & c3)

If T = 1 Then

l4 = "HOM NAY LA CHU NHAT"

Else

l4 = " HOÂM NAY LAØ THÖÙ " & T

End If

End Sub

Private Sub Command2_Click()

If MsgBox("BAN CO MUON THOAT KHONG?", vbYesNo, "THONG BAO") = vbYes Then

End

Else

End If

End Sub

Private Sub Form_Load()

For I = 1 To 31

c1.AddItem I

Next I

For I = 1 To 12

c2.AddItem I

Next I

For I = 1990 To 2009

c3.AddItem I

Next I

c1 = Day(Date)

c2 = Month(Date)

c3 = Year(Date)

End Sub