驴友阁 >风水知识 >生肖运势

求十二生肖对应的每一个年份?

  命主:你好,   2008年 属鼠 2014年 属马   2009年 属牛 2015年 属羊   2010年 属虎 2016年 属猴   恭 2011年 属兔 2017年 属鸡   2012年 属龙 2018年 属狗   2013年 属蛇 2019年 属猪,

年份对应生肖

  可能是公元001年的生肖属性正好是鸡年而不是鼠年!生肖属性的年份应该是从公元前就开始了、毕竟公元是西方的叫法,、   这是为什么减三   加十二是因为十二年一轮、把年份1094除以十二!就是把每十二年分成一个阶段。比如余数是2、按照上面说的原因要减去3。发现变成了-1、那么就意味着要去前一个12年里面去找、前面一个十二年前去最后一个猪年!那么就是狗年了、,。

星座对应年龄?

  一个人的星座是由他出生那天的阳历日期确定的!与年龄无关!每一年都有12个星座!所以哪个岁数的人都有12个星座的!!

属牛的多大年龄结婚合适

  不是说多大年龄结婚好!是要看你自己,有没有遇到自己真爱的人、有了这个人!才会考虑去结婚,是不是啊!

龙年年份

  2012年、2000年、1988年。1976年、1964年。1952年,1940年,1928年。1916年。1904年。。

属猪的有哪些年份

  1899!1911。1923!1935,1947、1959。1971!1983、1995、2007 目前在世的应该只有这些年份...。

属鼠出生年份

  1984 1996 1972 1960 1948 1936 1924!

vb程式:用inputBox输入的生日,通过MsgBox输出其对应的年龄,出生季节和属相

如果出生日期输入格式为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分都4908不够敲键盘的 。

星座与年份有关吗

  没有关系星座跟月份有关,

1973年属牛的人是什丑年份

  不就是丑年吗!


展开全文