年龄属相对照表
- 求十二生肖和年龄对照表
- 鼠 牛 虎 免 龙 蛇 马 羊 猴 鸡 狗 猪!
- 十二生肖年龄对照表
- 龙: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
以上年龄是以虚岁计算的、!年龄属相对照表
- 2023年(癸卯)年属相、1岁-100岁年龄对照表(按虚岁算)要个图
- 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?
- 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分都不够敲键盘的?
- 月份与星座对照表水瓶座
- 星座是按阳历划分的!水瓶座1446是阳历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,紫色?、
- 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
我也就是閒着无聊、给这55521分都不够敲键盘的
。
- 血型对照表?
- 父母血型可以产生后代血型的所有组合
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年一轮回望采纳!
- 同属相兔结婚俩人年龄小于3个月怎么就不行了??必须大三个月以上???啥理论这是~~~
- 因为他妈妈是关系她的呀、,、
不过你呀呀要证明给她看看她那是封建思想 ~~~~~?
- 时辰对照表
- 子时 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
现发帖的时间是申时 今天是申日。即申年申日申时!此三连是几十年一遇:4818猴年猴日猴时,,