如果出生日期输入格式为19861212这种格式的话,以1-3月为春季,4-6月为夏季,7-9月为秋季,10-12月为冬季,用以下代码: Private Sub Form_Load() Dim birth As String Dim year As Integer Dim month As Integer Dim day As String Dim old As Integer Dim season As String Dim sx As Integer Dim fx As String birth = Trim(Str(InputBox("请输入您的生日,格式为19741212"))) year = Val(Left(birth, 4)) month = Val(Mid(birth, 5, 2)) day = Right(birth, 2) old = 2015 - year Select Case month Case Is <= 3 season = "春季" Case Is <= 6 season = "夏季" Case Is <= 9 season = "秋季" Case Is <= 12 season = "冬季" End Select sx = (year - 2016) Mod 12 If sx < 0 Then sx = sx + 12 End If Select Case sx Case 0 fx = "猴" Case 1 fx = "鸡" Case 2 fx = "狗" Case 3 fx = "猪" Case 4 fx = "鼠" Case 5 fx = "牛" Case 6 fx = "虎" Case 7 fx = "兔" Case 8 fx = "龙" Case 9 fx = "蛇" Case 10 fx = "马" Case 11 fx = "羊" End Select MsgBox "您的年龄为:" & old & vbCrLf & "您的出生季节为:" & season & vbCrLf & "您的属相为:" & fx End Sub 我也就是闲着无聊,给这5分都不够敲键盘的
牛-丑(Ox) 1901、1913、1925、1937、1949、1961、1973、1985、1997、2009、2021、2033、2045、2057、2069、2081、2093、2105、
搬进去住
select 姓名 from userT where 年月日=(select MAX(年月日) from userT )
里皮(全名马尔切洛·里皮)今年68岁,属鼠。 马尔切洛·里皮:1948年4月12日出生,意大利著名足球教练、中国国家男子足球队主教练。因一头特色银发,而被称为“银狐”。里皮球员生涯平淡无奇,但从1982年执教桑普多利亚青年队后,便开启了传奇的执教生涯。在尤文图斯执教的八年中,率队夺得5个意甲联赛冠军、3座杯赛冠军奖杯、4次意大利超级杯冠军、1座欧冠冠军。2006年银狐又率意大利国家队夺得世界杯冠军。
与年份对应啊
不对应。 属相按出生年份, 星座按出生那一年公历(阳历、国历、新历)出生日期算 每年日期和时刻略有不同,处于两个星座交界日期的要根据出生年份和出生时刻确定 白羊座【♈】(3月20日 - 4月21日) 金牛座【♉】(4月19日 - 5月22日) 双子座【♊】(5月20日 - 6月22日) 巨蟹座【♋】(6月21日 - 7月24日) 狮子座【♌】(7月22日 - 8月24日) 处女座【♍】(8月22日 - 9月24日) 天秤座【♎】(9月22日 - 10月24日) 天蝎座【♏】(10月23日 - 11月23日) 射手座【♐】(11月22日 - 12月23日) 摩羯座【♑】(12月21日 - 1月21日) 水瓶座【♒】(1月20日 - 2月20日) 双鱼座【♓】(2月18日 - 3月21日)
按你的需求,来个直接的 在B2输入 =CHOOSE(MOD(2015-A2,12)+1,"猴","鸡","狗","猪","鼠","牛","虎","兔","龙","蛇","马","羊") 下拉。
完整的是梅傲冬雪独自艳,三遍啼叫五更亮答案应该是鸡
龙,牛,蛇