先背过属相表, 比如几年 是龙年, 那么 2012, 1988, 2000,的人就是 0岁, 24岁, 12岁 ,其他类推
卓依婷(英文名:Timi Zhuo),1981年10月2日生于台湾台北县,属鸡 中文名: 卓依婷 外文名: Timi Zhuo 国籍: 中国 民族: 汉族 出生地: 台湾台北县新庄市 出生日期: 1981年10月2日 职业: 演艺,歌手 毕业院校: 育达高职 经纪公司: 优格音乐文化有限公司 * [
如果出生日期输入格式为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分都不够敲键盘的
如果出生日期输入格式为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分都不够敲键盘的
不相冲 鼠+蛇 你们的共同点在于都是非常现实的人,能够清楚地判断自己什么时刻该做什么。你们都能很准确地感知对方的需要和优缺点,从而巧妙地把握相互之间的关系。 鼠先生灵活机敏,风流潇洒;蛇太太则精明谨慎,开通而不乏坚韧。鼠先生很看重蛇太太那非凡的理想与智慧,认为可以依赖她那种洞察潜在危机的敏锐直觉;蛇太太则为鼠先生的热情与真诚而深深打动,并以同样的热忱回报他,将他作为理想的生活伴侣。
潼潼 寓意好 潼:地名。在四川省梓潼县境内,南流注入垫江。 《说文解字》释云:水。出广汉梓潼北界,南入垫江。从水童声。 潼表示盛多、高大、潼关,意义优美。 意蕴该名字可以趣解为:“高大 • 盛多”。
如果你能双方都属马;只需避开 午(马)【马自刑】;子(鼠)【冲马】;丑(牛)【害马】即可。
一点算一人,加上马不就是冯。文字游戏!!
鼠和马最好不要结合,是忌配,属鼠忌配的还有兔和羊。不能富家,灾害并至,凶煞重重,甚至骨肉分离,不得安宁。宜配大吉的有龙、猴、牛。既不是绝配也不是忌配的也可以婚配
对你有意思