属兔对应出生年龄
- vb程序:用inputBox输入的生日,通过MsgBox输出其对应的年龄,出生季节和属相
- 如果出生日期期输入格式为19861212这种格式的话?以19822－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分都不够敲键盘的,
- 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分都不够敲键盘的
，
- 以下生肖对应的年龄都是多少
- 你是指什么年龄啊。
举个例子 如果是出生第二次遇到鼠年（包括刚出生那一年）！那么你就是13岁
其他也是如此
其实属相相越靠前!相对就越大 当然然是在同一轮里来说,
- 属兔九月出生好不好
- 没啥好不好.看你自己想做什么人.你想好就是好.想坏就坏呗.要知道同一天出生还还有不同的人格呢.眼睛放大.死劲看清.当然这之前你也许会吃点小苦头.认清了就使劲抓着别放.信任才是王道！
- 属兔人出生时辰的命运，生肖属兔的什么时辰出生命最好
- 你好。本人会一些紫微斗数!如果你的年月日时性别出生地的信8454息能提供全面的话。我可以为您进行简答？回答字数也按照你给给的分数来定？ 简单的说。知道年月日的信息是排不出盘的?也就无法进行对你的综合分析，给的答案自然也是含糊不清没有实质的实际意义的! 【这种做法的的别称叫做——浪费时间！和瑞士的差距就在这了!】 希望你能明白这点，把该给全的信息给全!追答我。 我有一个梦想：当当提到高质量产品的时候、第一个想到的是中国!而不是德美日瑞, 那么。你的提供信息不全。就等于是让我做差不多先生了 这个我是绝绝对做不到的？Percision是必须的。 Make ssure your information is complete or not! 斗数世家团队敬上！、
- 1985年出生的属牛，今年实际年龄多少岁？
- 31周岁，我就是85年的。虚岁是32岁。我是12.23号的。?
- 属兔3月出生是什么星座？
- 鱼？羊 ？
- 6几年属兔的今年多大年龄？
- 50岁,63年，属兔对应出生年龄
- 12星座的性格特点和出生月份的对应，详细一点的。。。。。
- 星座日期（公历）英文名魔羯座(12/22 - 01/19)Capricorn水瓶座 (01/ 20- 02/18)Aquarius双鱼座(02/19- 03/20)Pisces白羊座(03/21 - 04/20)Aries金牛座 (04/21 - 05/20)Taurus双子座(05/21 - 6/21)Gemini巨蟹座(06/22- 07/22Cancer狮子座(07/23 - 08/22)Leo处女座(08/23 - 09/22)Virgo天秤座(09/23 - 10/23)Libra天蝎座(10/24 - 11/21)Scorpio射手座(11/22 - 12/21)Sagittarius白羊座：充满希望 和蔼可亲！行动力?活力充沛,诚心诚意，天生长才？勇敢 8460 金牛座：浪漫?决断能力、逻辑性思考，勤勉 灵巧!热心。忍耐心心 双子座：多样性，洞察力!开朗!反映机智,演技佳!宽大？魅力、善变 巨巨蟹座：第六感?主观 反应佳！想象力!慎重？执着。毅力 狮子5312座：自尊心，慈善，权利，思考，保护他人!忠诚心？热情 处女座：有板有眼，服务,鉴赏力？完美主义？谦虚、头脑清晰 实际 天秤5577座：理想主义!公正 追求?社交手腕强?审美观 魅力？ 艺术力强！美丽 善善良 天蝎座：神秘！7025逻辑决断能力？理性,独立！直觉,规律 奉献、观察力 ？真正魅力,冥想 射手座：理性!勇敢 细心,发展力,活泼、廉耻心,热心 ，可爱 摩羯座：优越？聪明，实际 野心、可靠！不屈不挠!宽大 乐观 水瓶座：独创力？宽容、理想、先见之明,友爱！慈善，独立 双鱼座：自觉!唯美的,柏拉图式的爱!幻想。牺牲奉献。 善良，好脾气缺点 白羊座：稚拙?刚愎自用。性急、好战！花心 金牛座：偏见!依赖心，不屑于小事、刚愎自用、求胜心强,心太软？固执 双子座：临时抱佛脚?性格不定!双重人格，投机取巧 巨蟹座：情欲 贪婪,占有欲！敏感、感情！情绪化、无主见 狮子座：傲慢?虚荣心!放纵,浪费！任性，自我满足!自大 处女座：挑剔，媚于俗世!不善表达！好管闲事、拘泥 天秤座：诱惑 犹豫不决！自恋，爱美，敷衍!随心所欲？懒惰!爱表现 天蝎座：多疑!狂热的?复杂，过于主动！占有欲强、极端 射手座：丢三落四，糊涂！草率?花心!粗心?不守信用。温柔 摩羯座：顽固，暴躁，享乐主义 孤独!不灵活!疑神疑鬼 水瓶座：善变、不服从?自由主义！冒然行动！无远虑,叛逆!令人猜不透 双鱼座：畏缩,逃避困难？感伤，优柔寡断!意志薄弱,不现实?
- 1996年农历11月11日出生的人对应塔罗牌是什么
- 根据你的出生年月日!可以找出代表你自己生命对应的塔罗牌，生命塔罗牌可以分为两种：一种是代表个性象征的塔罗牌,另一种则是代代表灵魂象征的塔罗牌！经过计算可以得到：
代表你个性象征的塔罗牌是“13 死神”！这9695里显示你表现于外在世界的智慧。才能，气质，风度、脾气等？也就是别人如何看你的一切、
代表你灵魂象征的塔罗牌是“4 皇帝”?这里显示了内心深处的你、你内在的渴望。精力的来源。精神的感受!追求和向往往的理想人生，它代表不为人知的的真正的你。
这里我就不对每个具体的阐述、说起来挺复杂!如果有兴趣知道可以给我发条信息!只给个总结：由于你的个性象征和灵魂象征的数字不同，代0469表你人生的发展是双重的。而你追求的是是不断开创和改变的人生,
至于幸运这方面？下面是根据你对应的塔罗牌相应的幸运对照表，你可以参考一下：
幸运数字：黑。酒红 幸运运数字：8 9!10 幸运日：星期六
幸运石：石榴石 幸运物：烟火!皮质小东西，