code tính tuổi theo năm sinh của bạn

Private Sub Command1_Click()
Dim a As Byte, b As Byte, can As String, chi As String
a = Text1.Text Mod 10
b = Text1.Text Mod 12
Select Case a
Case 0
can = "Canh"
Case 1
can = "T©n"
Case 2
can = "Nh©m"
Case 3
can = "Quý"
Case 4
can = "Gi¸p"
Case 5
can = "Êt"
Case 6
can = "BÝnh"
Case 7
can = "§inh"
Case 8
can = "MËu"
Case 9
can = "Kû"
End Select
Select Case b
Case 0
chi = "Th©n"
Case 1
chi = "DËu"
Case 2
chi = "TuÊt"
Case 3
chi = "Hîi"
Case 4
chi = "Tý"
Case 5
chi = "Söu"
Case 6
chi = "DÇn"
Case 7
chi = "M·o"
Case 8
chi = "Th×n"
Case 9
chi = "Tþ"
Case 10
chi = "Ngä"
Case 11
chi = "Mïi"

End Select
Label2.Caption = "B¹n tuæi " & " " & can & " " & chi
End Sub