生肖、天干地支年份、星座简便判断方法(VB)

Public Function Constellation(mDate As Date) As String
'星座
    Constellation = Mid("摩羯水瓶双鱼白羊金牛双子巨蟹狮子处女天秤天蝎射手摩羯", (Month(mDate) + IIf((Day(mDate) - (19 + Int(Mid("102123444533", Month(mDate), 1)))) >= 0, 0, -1)) * 2 + 1, 2) & "座"
End Function

Public Function Animal(year As Integer) As String
''生肖
   Animal = Mid("鼠牛虎兔龙蛇马羊猴鸡狗猪", (((year - 1900) Mod 12) + 12) Mod 12 + 1, 1)
End Function

Public Function Tian(year As Integer) As String
'天干地支
   Tian = Mid("甲乙丙丁戊己庚辛壬癸", (((year - 1924) Mod 10) + 10) Mod 10 + 1, 1) & Mid("子丑寅卯辰巳午未申酉戌亥", (((year - 1924) Mod 12) + 12) Mod 12 + 1, 1)
End Function以前看过很多有关代码,感觉都需要经过很多的复杂过算,今天偶然碰到这三个函数,感觉要简便的多,所以就将他贴上来,供大家分享