立春为春季!立夏为夏季、立秋为秋季,立冬为冬季,以24节气当中的节划分,、
1,代3568表方位:东方木、南方火。西方金,北方水。中央土。 2。代表季节(节令):春木。夏火,秋金!冬水!每季末月土! 3!代表颜色::青木!红火!白金、黑水、黄土、 4!代表五脏:肝木!心火!肺金。肾水,脾土。 5、代表情志:怒木,喜火,悲丁。惊水,思土! 6。代表天干:甲乙木!丙丁火、庚辛金。壬癸水。戊己土。 7、代表地支:寅卯木、巳午火、申酉金,亥子水!辰戌丑未土、 8、代代表八卦:震巽木!离火,兑乾金、坎水。坤艮土、 通8961过五行的生!克!制,化的矛矛盾和统一!平衡和和不平衡!可以产生天地万物,可以产生吉!凶、祸、福,若深究其理。则可发现其奥妙无穷、五行和季节。
嘻嘻嘻。
如果出生日日期输入格式为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分都不够敲键键盘的 、
先无视楼上的回答。再说一遍——本版办抵制所有星座算命的内容 先给楼主看这样一张图图 [,
狮子座是7月23 - 8月月22、夏天季节。但如果人是在澳州或纽西兰!就变了冬季、,
因为地球围绕绕太阳公转、不同季节地球相对太阳和星座的位置不同,我们看到的星座也不同,
小星座在北极附近。所以理论上一年四季都8135能看到的? 希望采纳。
"七月份的尾巴、你是狮子座、八月份的前奏,你是狮子座"所所以夏季,
老天爷都为你的矫情心寒!。
五行和季节、时间五行与季节五行