看你哪个年头出生~属象
由于狗的寿命通常局限于15-20年,因此两岁的狗为年轻的狗,九岁的狗是中年的狗,而14岁的狗则是老狗了。 “一岁狗,七岁人”是经典公式 另外 公式: 狗的第一年=15年 狗的第二年 = 10 年 此后每一年等于人类年龄的3年。 比如:10岁的狗的年龄应该是:15 + 10 + (3 x 8) = 49! 十五岁的狗的年龄应该是:15 + 10 + (3 x 13) = 64!
不是生肖吧 好像闰年2月的是29天,四年一闰
不是生肖吧 好像闰年2月的是29天,四年一闰
这个应该 龙了~
你在A1输入数字,B1显示你要的结果, B1==IF(A1>0,MID("子丑寅卯辰巳午未申酉戌亥",MOD(A1+11,12)+1,1),"Error") 这里增加了一个判断,只在你输入为正数的时候才能得到结果,如果你输入0或者负数,则显示Error错误
#includeintmain(){inta[5][5];for(inti=0;i
Dim 身份证号码 As String Dim 生日 As Date Dim 星座 As String Private Sub 提取生日按钮_Click(sender As Object, e As EventArgs) Handles 提取生日按钮.Click If 十五位.Checked And 身份证输入框.TextLength = 15 Then 身份证号码 = 身份证输入框.Text ElseIf 十八位.Checked And 身份证输入框.TextLength = 18 Then 身份证号码 = 身份证输入框.Text Else MsgBox("身份证号码输入有误。") Exit Sub End If If 十五位.Checked Then 生日 = 十五位生日(身份证号码) ElseIf 十八位.Checked Then 生日 = CDate(十八位生日(身份证号码)) End If MsgBox(生日) End Sub Private Function 十五位生日(ByVal 身份证号码 As String) As String If 身份证号码.Length = 15 Then Return "19" & 身份证号码.Substring(6, 2) & "/" & 身份证号码.Substring(8, 2) & "/" & 身份证号码.Substring(10, 2) Else Return Nothing End If End Function Private Function 十八位生日(ByVal 身份证号码 As String) As String If 身份证号码.Length = 18 Then Return 身份证号码.Substring(6, 4) & "/" & 身份证号码.Substring(10, 2) & "/" & 身份证号码.Substring(12, 2) Else Return Nothing End If End Function 有了生日,星座很简单了。生日.month 获取 生日的月份,然后测试 生日.day,大于 20 是啥座,小于等于 20 是另一个座,太多了不写了。 Select Case 生日.Month Case 4 If 生日.Day >= 21 Then 星座 = "金牛座" Else 星座 = "" End If End Select
说的是大运,每十年一个运,从几岁开始上运,又包含每一个运中的流年年份,然后还有小限运
这是华东六省市联销玩法,每星期一三六开奖,开奖当晚7点停止销售。最低中奖条件是,前六位数字中要对点对位中一个号外加生肖中,中奖金额是5元。