畅意阁 >风水知识 >生肖运势

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分都不够敲键盘的、

梦见自己年龄最大

  境遇安泰,身心健全。希望目的达成。能6955逃过灾害而免祸患!安定成功!优秀伸张发展,一帆风顺之三才佳配?【大吉昌】!

楼层对应五行具体怎么对应

  现在比较流行的主要有两种方法:   a.一种是将八宅飞星法套用于楼层!从大楼的坐山卦起飞星。以大门所属九星定位第一层九星所属!再按五行相生原则依次确定各层九星所属?伏位(左辅)、生气(贪狼)属木。绝命(破军)、延年(武曲)属金!五鬼(廉贞)属火、六煞(文曲)属水,天医(巨门)、祸害(禄存)属土!以年命纳音与楼层0682五行论吉凶!相生!比和为吉,相克为凶。     b.一种是以先天数来定位楼层五行属性!一六层属水。二七层属火、三七层属木,四八层属金。五十层属土。以年命纳音与楼层五4755行属性或者与五子运配合起来论吉凶!     注:下面 b.这方法好记比较常用。、

十二生肖对应的天干地支是什么

  十天干:甲(jiǎ)。乙( yǐ)。丙(bǐng)、丁(dīng)、戊(wù)、己(jǐ),庚(gēng)。辛(xīn),壬(rén)。础(guǐ) 。   十二地支:子(zǐ)、丑(chǒu)。寅(yín)!卯(mǎo)!辰(chén)、巳(sì)、午(wǔ)。未(wèi),申(shēn)。酉(yǒu),戌(xū),亥(hài)(   十二地支对应十二生肖——   子:鼠!   丑:牛!   寅:虎。   卯:兔!   辰:龙!   巳:蛇!   午:马。   未:羊、   申:猴。   酉:鸡。   戌:狗!   亥:猪、

属鼠带什么吉祥物

  属鼠的适合1249佩戴百瑞堂至尊貔貅来提升自己的财运和事业运,貔貅自古就是招财转运神兽、为五大瑞兽之首!     请貔貅要请开光8695的貔貅,没开光的貔貅只能是当做装饰品来佩戴!百瑞堂至尊貔貅经过开光法会开光后马上进行封存!然后再由大德高僧加持七天七夜。保证第一眼看到主人。在招财转运旺事业方面最为灵验。!

四面八方与十二生肖哪个对应呢?

  马!请采纳。

八字中月份怎么对应天干地支

  年月日时对应天9300干地支的方法是一样的,从甲子开始。六十一个轮回、其中月的地支是固定的,即从寅起一月(立春开始),依次推算二月为卯!三月为辰等、、

十二生肖兔的年龄

  兔年年份 1891(辛卯0052) 1903(癸卯) 1915(乙卯) 1927(丁卯) 1939(己卯) 1951(辛卯) 1963年(癸卯) 1975(乙卯) 1987(丁卯) 1999(己卯) 2011(辛卯 ) 2023(癸卯) 2035(乙卯) 2047(丁卯) 2059(己卯) 2071(辛卯) 2083(癸卯) 2095(乙卯) 2107(丁卯)。

怎么算一个人的年龄.属什么生肖的.

  排序依次如下:   鼠、最低年龄应是:12岁。若算这一轮的话就是:出生年分!不满周岁,   牛。11岁   虎、10岁   兔!9岁   龙。8岁   蛇、7岁马,6岁   羊!5岁   猴!4岁   鸡,3岁   狗。2岁   猪!1岁!

搞笑大叔对应的情侣名

  什么是坚强,今天目睹了!网吧门口出现一恶妇。手持三尺木棍,悍然殴打一名正在LOL的十岁左右少年,口中还不停谩骂:“给你钱!你就逃学上网之类的云云”那少年竟然以极大的毅力坚持完那一波团战、那紧咬牙关!那坚韧的眼神,让我等佩服、、属鼠的对应年龄、梦见自己年龄最大


展开全文