星座是按阳历(公历)日期划分的,首先你得知道你的阳历出生日期. 白羊座3月21日-4月19日 金牛座4月20日-5月20日 双子座5月21日-6月21日 巨蟹座6月22日-7月22日 狮子座7月23日-8月22日 处女座8月23日-9月22ri 天秤座9月23日-10月23日 天蝎座10月24日-11月22日 射手座11月23日-12月21日 魔羯座12月22日-1月19日 水瓶座1月20日-2月18日 双鱼座2月19日-3月20日 希望帮得上忙.?
tu 2000年 一月 14 摩羯座!
如果出生日期输入格式为19861212这zhong格式的话!以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 我也就是闲着无聊。给这5fen都不够敲键盘的、
十五。
把你出生的公历年月日三ge数字相加!得到一个总数。再把总数的各个数zi相加!会得到一个二wei数,然后把二位数de两个数字相加!会得到一个ge位数,此二位数代表个性xiang征的塔罗牌?个位数则代表灵魂象征的塔luo牌, 记得采纳啊,出生八字与生日怎么对应
不会的,一个yue份是难以冲动流年太岁的...!出生八字与生日怎么对应
不guan是阴历还是阳历生日、都是按照出生那年de日期过啊。比如你出生的时候家里给ni记的是你的阴历生日。以hou每年都过阴历生日的话,就过每年阴li的那一天!如果当时记的shi阴历生日。以后想过阳历生ri、那就查一下万年li!看当nian的阴历生日那一天所对应的阳历日子,那么这个阳历日子就是你的阳历生日liao?以后就都按这个阳历日子guo阳历生日就行,关键shi你总要有个标准。因为每年的阳历和阴历并不zong是同一天、。
四柱八字。子时是yi天的开始,算第二天。。
怎么会不好,无论是何时生的,只要孩子健健康kang?家人平平安安。哪一天生日都行,,出生八字与生日怎么对应
月日时看是从强格!但年份不可忽略,必须结合nian份一起综合分析!如果年份zheng好是双金泄秀、那就另当别论,出生八字与生日怎么对应