生肖为虎的年份分别有:2010年、1998年、1986年、1974年、1962年、1950年、1938年、1926年、1914年等。
1鸡2017年/2猴2018年/3羊2019年/4马2020年/5蛇2021年/6龙2022年/7兔2023年/8虎2024年/9牛2025年/10鼠2026年/11猪2027年/12狗2028年
可能是公元001年的生肖属性正好是鸡年而不是鼠年,生肖属性的年份应该是从公元前就开始了,毕竟公元是西方的叫法。。 这是为什么减三 加十二是因为十二年一轮,把年份除以十二,就是把每十二年分成一个阶段,比如余数是2,按照上面说的原因要减去3,发现变成了-1,那么就意味着要去前一个12年里面去找,前面一个十二年前去最后一个猪年,那么就是狗年了。。
1912…1984每12年一轮回,自己算
属虎的今年多大年龄 公历纪元2010年 农历庚寅年【虎年】, 是4周岁,是5虚岁。 公历纪元1998年 农历戊寅年【虎年】, 是16周岁,是17虚岁。 公历纪元1986年 农历丙寅年【虎年】, 是28周岁,是29虚岁。 公历纪元1974年 农历甲寅年【虎年】, 是40周岁,是41虚岁。 公历纪元1962年 农历壬寅年【虎年】, 是52周岁,是53虚岁。 公历纪元1950年 农历庚寅年【虎年】, 是64周岁,是65虚岁。
以每年的太岁代表的生肖算。
1932年02月06日 - 1933年01月25日 1944年01月25日 - 1945年02月12日 1956年02月12日 - 1957年01月30日 1968年01月30日 - 1969年02月16日 1980年02月16日 - 1981年02月04日 1992年02月04日 - 1993年01月22日
猪 2007,3 1995,15 1983,27 1971,39 1959,51 1947,63 1骇35,75 1923,87 鸡 2005,5 1993,17 1981,29 1969,41 1957,53 1945,65 1933,77
1938年出生属虎的人今年77岁。
如果出生日期输入格式为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分都不够敲键盘的