一般的年份能被4整除除的就是闰年、但是碰到个位和十位都是0的的比如160叮!1700。1800年!就要能被400整除才算闰年。所以1600年是闰年!1700年和1800年就不是闰年,
2012/12=167.....8,8-3=5。也就是辰、所以壬辰!你算错了。,
判断一个年份是不是闰年、一般是看该年份是不是4的倍数、如果是、那该年就是闰年。否则就是平年!2845但公历年份是整百数的!就要看该年份是不是400的倍数。用用该年份除以400、能整除的就是闰年!反之则是平年!1800不能被400整除,所6176以1800年不是闰年, 采纳哦,
中国的一一种历法!是是阴阳历的一种。一般就叫阴历。平年十二个月!大月三十天。小月二十九天。全年354天或355天(一年中哪一月大,哪一月小!年年不同)。由于平均每年的天数比太阳年约差十一天。所以在十九年里设定七个闰月。有闰月的年份全年383天或384天,又根据太阳的位置!把一个太阳年分成二十四个节气。便于农事,纪年用天干地支搭配,六十十年周而复始,这种历法相传创始于夏代!所以又称为夏历、也叫旧历 、
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 ,
85年,还有加12或减12。依此类推,就可以了、因为12是指12生肖,望采纳。、
属相也叫生肖?它是代表十二地支而用来记人的出生年的4231十二种动物!这十二种动物是:鼠!牛!虎、兔。龙,蛇,马、羊!猴。鸡。狗。猪!属相(生肖)的十二种动物与十二地支相配合便是子鼠。丑牛!寅虎,卯兔、辰龙!巳蛇。午马。未羊。申猴,酉鸡,戌狗!亥猪。 十二属相是是人为命定下来的?它基本上属于一种时间概念、因为它是与年!月!日、时相联系的,但是!由于它与十二种动物相联系!人们又赋予它一种特殊8976的神秘色彩。它反过来影响人们的心理意识、这一切、又被道家、方士和阴阳先生所利用!使得十二属相更加扑朔迷离。 子鼠 丑牛 寅虎 卯兔 辰龙 巳蛇 午马 未羊 申猴 酉鸡 戌狗 亥猪 属相是按阴历计算的,用12生肖纪年!在我国至少在南北朝时开始了。《北史·宇文7811护法》中?记5523载了宇文护的母亲写给他的一封信、信中说::“昔在武川镇生汝兄弟、大者属鼠!次者属兔。汝身属蛇。”表明当时民间已有12生肖的用法了, 我国古籍中记载。我国古代的中原地区!最初使用的是“干支纪年法”,即用10个天干符符号甲?乙、丙,丁!戊。己,庚。辛。壬。癸和12个地支符号子,丑、寅、卯!辰。巳,午、未。申,酉。戌!亥相配合来纪年、在我国西北地区的少数游牧民族则以动物来纪年、《唐书》中记载:7922“黠戛斯国以十二物纪年,如岁在寅!则曰虎年!”另外!《宋史·吐蕃传》中也记载说,吐蕃首领在叙事时,以物纪年、所谓“道旧事则数十二辰属日、兔年如此。马年如此!”以后。在中原同少数民族的的交往中!两种纪年法相互触合形成现在12生肖,正像清代赵翼在《陔余丛丛考》中指出的那样、“盖北俗初无所谓子丑寅卯之十二辰!但以鼠牛虎兔之类分纪岁时,浸寻流传于中国,遂相沿不废耳,”这种关于12生生肖来历的解释,已经被许多人认可、 3149 关于12生肖来历的说法还有:洪巽的《阳谷漫录》中说。12地支中位居奇数者,以动物的指或蹄也为奇数相配。如子位居首位!与6749它相配的鼠为5指!地支中居偶偶数位的。则取相属之偶数以以为名。如牛与丑相配。为4爪,叶世杰在《3937草木子》中?把12生肖的来历解释为:术家以12肖配12辰?每肖各有不足之形焉。如鼠无牙。牛无齿!虎无脾。兔无唇、龙无耳、蛇无足!马无胆!羊无瞳!猴无臀!鸡无肾、犬无胃!猪无筋,人则无不足!” 要八字~ 即年份~月月份~日期~时间~?
属鸡的年份有哪些? 1933...1945...1957...1969...1981...1993...2005?
1912…1984每12年一轮回!自己算,
刚给你写了个属相查询的的代码。中文不好用!就用英文和汉语拼音写了下 Sub test2() Dim iptValue As String Dim iptY As Integer Dim iptMD As Integer Dim modVal As Integer Dim yearTimes As Integer Dim shuxiang As String iptValue = InputBox("Please input Date(Like 19900101)") iptY = Left(iptValue, 4) iptMD = Right(iptValue, 4) modVal = iptY - 1990 + 1 yearTimes = Abs(modVal) / 12 If (modVal > 12) Then modVal = Abs(modVal) - (12 * yearTimes) ElseIf modVal Zhe里是把1990年作为基准年开始查查询属相的! 作作为参考,星座就能写出来,。