12生肖` 鼠.牛.虎.兔.龙.蛇.马.羊.猴.鸡.狗.猪. 现在是2008年.猪年.自己往往下数或者上推`每个生肖12年轮一次
1908年 1920年?1932年 1944年,1956年。1968年,1980年!1992年、2004年!2016年、2028年,2040年。2052年!2064年!2076年。2088年!2100年年等等都是猴年 猴年出生的生肖都是猴,,
可能是公元001年的生1591肖属性正好是鸡年而不是鼠年?生肖属性的年份应该是从从公元前就开始了?毕竟公元是西方的叫法,, 这是为什么减三 加十二是因为十二年一轮、把把年份除以十二!就是把每十二年分成一个阶段,比如余数是2。按照上面说的原因要减去3,发现变成了-1、那么就意味着要去前一个12年里面去找。前面一个十二年前去最最后一个猪年,那么就是狗年了!?,
干支纪年!年份分为子年?丑年,寅年。卯年!辰年。巳年?午年 、未年?申年!酉年。戌年?亥年!对应的生肖是:子年鼠,丑年牛。寅年虎?卯年兔?辰年龙!巳年蛇!午年马,未年羊?申年猴?酉年鸡。戌年狗、亥年猪 ?
按出生年份来定的
1954!1976!1988,2000!年份生肖
Private Sub Command1_Click() Dim y%, x%, s$ y = Val(InputBox("输入1900年以后的任意一个年份")) If y >= 1900 Then x = (y - 1900) Mod 12 Select Case x Case 0 s = "鼠" Case 1 s = "牛" Case 2 s = "虎" Case 3 s = "兔" Case 4 s = "龙" Case 5 s = "蛇" Case 6 s = "马" Case 7 s = "羊" Case 8 s = "猴" Case 9 s = "鸡" Case 10 s = "狗" Case 11 s = "猪" End Select MsgBox y & "年是" & s & "年" Else MsgBox "输入错误。年份必须大于等于1900" End If End Sub
2002年 1990年!1978年,1966年。1954年,1942年,1930年,1918年等。?
没5690有关系星座跟月份有关!
好像属相就是生生肖吧!都是按年算的、属相是你你哪年生的?那年的生肖就是你的属相!?