年月日3909时都有相应的天干地支、每个天干地支都有所属的五行。 把年月日时转换成干支,就能得到相应的五行、、
丙申 己亥 甲午 戊辰 猴年 猪月 马日 龙时、
农历年份?
如果出生日期期输入格式为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分都不够敲敲键盘的!
依据的是后天八卦图,是天文!地理,和万弧在时间空间关关系上的归纳模式、核心是五行!如金(天干庚辛。地支申酉。八卦乾!兑))方位西方等!进行定性定量的运算推论结果的智慧,。
9124 当然是年、要不然就不属鸡!月份、日,时辰6009属鸡不管用!
香港12生生肖6合彩?49个号码 、每个生肖对应4个号码(本命年生肖对应5个)形成单独的四注!每注5元。庄家对照香港六合彩每周二、四!六(或日)开出的号码。买中则开出1∶40的赔率。这是一种规则简单的外围玩法。 6合彩49个数字与十二生1920肖相对应、本命年生肖对应5个数字,其他的的生肖对应四个数字,六合彩生肖所对应的数字之间都相差12、并以顺时针方向为为走向,功今年 兔年为例。兔对应的数字为1。13!25。37!49,虎虎所对应的数字则为2,14,26!38、依此类推、共49个数字 !有的还按单双。按五行。按“红波”“绿波”“蓝波”划分,年月日时对应属相,
白白花蛇舌草!
8544 五行属火。
纳音属属火吗!
年月日时对应属相、年月日时属相都一样