VB calculates the constellation according to the birthday.

Establish a command 1 control, and a text 1 control option explicit function Constellation (byval m as date) as string' returns the constellation dim number as long number = month (m) *100+day (m). Select case number 32 1 to 4 19 constellation = "Aries" case 420 to 520 constellation = "Taurus" case 52 1 constellation = "Gemini" case 622 to 722 constellation = "Cancer" case 723 to 822 constellation = "Lion" case 82. = "Libra" grid 1024 turn121constellation = "Scorpio" grid 122 turn1constellation = "Sagittarius" o 123 1 Constellation = " scorpion " Case 10 1 to 1 19 Constellation = " scorpion " Case 1 20 to 2 18 Constellation = "Aquarius" C. ase 219 to 320 constellation = "Pisces" Case Else Constellation = "There is no such constellation!" End select end function private subcommand1_ click () if is date (trim (text1)) = true then msgbox constellation (trim (text1)) else msgbox "The date format is wrong!" end if end sub private subform _ load()command 1 . caption = " constellation " text 1 = " 1547-7-7 " end sub。