鼠 牛 虎 免 龙 蛇 马 羊 猴 鸡 狗 猪,
龙:1,13,25,37,49,61,73,85,97 蛇:12,24,36,48,60,海2,84,96 马:11,23,35,47,59,71,83,95 羊:10,22,34,46,58,70,82,94 猴:9,21,33,45,57,69,81,93 鸡:8,20,32,44,56,68,80,92 狗:7,19,31,43,55,67,79,91 猪:6,18,30,42,54,66,78,90 鼠:5,17,29,41,53,65,77,89 牛:4,16,28,40,52,64,76,88 虎:3,15,27,39,51,63,75,87 兔:2,14,26,38,50,62,74,85 以上年龄是以虚岁计算的,?
n j b j n g h b v g h b f y h v g h b c d y g f tio k b ee q f v s w g v k
如果出生日期输入格式为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分都不够敲键盘的?
星座是0509按阳历划分的!水瓶座是阳历1/20-2/18? 下面为你介绍十二星座(太阳星座)!供你对照: 星座名 ? 日期 ! 星座属性 , 幸运数字,辛运颜色! 白白羊座 03/21 - 04/19 火象星座 6,7,鲜红色,血红色, 金牛座 04/20- 0520 土象星座 1,9 紫色。 双子座 05/21 - 06/20 风象星座 3,5,7,淡粉色? 巨蟹座 06/21- 07/22 水象星座 8,3、大地色, 狮子座 07/23 - 08/22 火象星星座 5,9 褐色,深红色 处女座 08/23 - 09/22 土象星座 4,8、黄色, 天秤座 09/23 - 10/22风象星座 6,9?橙色。 天蝎座 10/23 - 11/21 水象星座 3,5。暗灰色?深红色, 射手座 11/22 - 12/21 火象星座 9!黑色 白色?灰色, 摩羯座 12/22 - 01/19 土象星座 3,7 深红色! 水瓶座 01/ 20- 02/18 风象星座 4,8!金黄色? 双鱼座 02/19- 03/20 水象星座5,8。紫色?,年龄属相对照表
如果出生日期输入格式为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分都不够敲键盘的 ,
父母血型可以产生后代血型的所有组合 A+A→A。O, A+B→A。B,O AB! A+O →A O! A+AB→A,B、AB, B+B→B,O。 B+O→B?O。 B+AB→B、A AB O+O→O! O+AB →A。B, AB+AB→AB?AB ?
最好的办法是拿自己的属相做标准!比方说今年是猴年是你的本命年你是92年出生93年的就是属鸡????的91年就就是属羊的只要记住12生肖次序就可以没12年一轮回望采纳!
因为他妈妈是关系她的呀!,? 不过你9505呀要证明给她看看她那是封建思想 ~~~~~,
子时 23:00-1:00 丑时 1:00-3:00 寅时 3:00-5:00 卯时 5:00-7:00 辰时 7:00-9:00 巳时 9:00-11:00 午时 11:00-13:00 未时 13:00-15:00 申时 15:00-17:00 酉时 17:00-19:00 戌时 19:00-21:00 亥时 21:00-23:00 现发帖的时间是申时、今天是申日、即申1803年申日申时、此三连是几十年一遇:猴年猴日猴时,