年份判断生肖
- 怎样根据年份判断十二生肖？？
- 把生7567肖定义为0~11 今年是鼠年，就已2008年为基准 (unsigned int)(年份 - 2008) % 12！
- VBA编程，由用户输入一个年份，判断是什么生肖，并输出相应的图片
- '定义生肖数组 Dim sx '以下两行按需求任选一行使用 sx = Split("鼠,牛,虎,兔,龙,蛇,马,羊,猴,鸡,狗,猪", ",") 'sx = Split("子鼠,丑牛,寅虎,卯兔,辰龙,巳蛇,午马,未羊,申猴,酉鸡,戌狗,亥猪", ",") '在TextBox1中输入年份， 'TextBox1限制输入字数为4(属性MaxLength=4）且只能输入数字（代码） Private Sub TextBox1_KeyPress(ByVal KeyAscii As Integer) If KeyAscii、vbKey9 Then KeyAscii = 0 End Sub ‘使用CommandButton1计算生肖索引!在Label1显示生肖名称,在Image1显示生肖图片 Private Sub CommandButton1_Click() Dim sxIndex As Integer sxIndex = Abs(inYear - 1900) Mod 12 '计算生肖名称索引！1900是鼠年的年份数 Label1 = sx(sxIndex) '显示生肖名称 Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\sxpic\sx" & sxIndex & ".jpg") '显示生肖图片。生肖图片使用像“sx0.jpg”这样的文件名。要求：1、文件必须是保6508存过的！2！需要把生肖图片放在文件所在文件夹的子文件夹“sxpic"之下 End Sub！
- 怎么判断一个年份是不是闰年
- 1、普通情况求闰年只需除以4可除尽即可 年/4余数为0 2，如果是100的倍数但不是400的倍数,那就不是闰年了,即末两位都是零的整除400才行 像1700。1800。1900、2100都不是闰年,但但是2000、2400是的. 3、2100年不是闰年,闰年不是象你们所说以加4为判断闰年标准的,所以闰年有些4年一次,但是有些是8年一次的.例如：1896年是闰年,但1900年不是,到1904年才是闰年.、
- 一个人的生肖是看阳历年份还是看阴历年份？
- 生肖属相是以二十四节气里的立春为界。例如兔与龙。农历的出生时间是在立春之前、那8124么你的生肖属相就是兔,在8982立春之后就是龙，这取决于当年的立春是在哪一天、不要管什么阳历，这是中国的传统文化当然是按老黄历的，
- 遇到生肖相冲的年份可以结婚吗
- 可以的，桃花逢冲、新娘早在在洞房中,。
- 樑绍壬属什么生肖什么年份
- 她的生肖肖是羊 91年的 都26岁了! ，，
- 什么年份是龙年
- 1954。1976，1988，2000，
- 马年的年份有那些？
- 你是从哪个年代问起，1906！ 1918、1930。1942，1954。1966、197阀。1990、2002、2014这都都是马年，、
- 帮忙编写一个VB程序，根据年份判断属相，谢谢
- Dim Year As Integer Dim Name As Integer Year = Val(InputBox("请输人出生年份：", "生肖查询", 1977)) Label1.Caption = "您是" & Str(Year) + "年出生的生肖为：" Name = Year Mod 12 Select Case Name Case 4 Label2.Caption = "鼠" Case 5 Label2.Caption = "牛" Case 6 Label2.Caption = "虎" Case 7 Label2.Caption = "兔" Case 8 Label2.Caption = "龙" Case 9 Label2.Caption = "蛇" Case 10 Label2.Caption = "马" Case 11 Label2.Caption = "羊" Case 0 Label2.Caption = "猴" Case 1 Label2.Caption = "鸡" Case 2 Label2.Caption = "狗" Case 3 Label2.Caption = "猪" End Select。
- 属生肖是按出生年份算还是出生时辰算的
- 年份。
