这是通过现有的万年历计算的出的公式。不过公式应该有问题吧、(2008-3)/10取余数之后才是天干吧、地支也是一样啊!也也是需要取余数, 地支的计算和天干其实是一样的、明白了天干!地支应该也4193明白的。 我们先说天干,天干共10个。那么必然10个一循环!2008年的天干和1998年的天干一样!同1888年的也一样,同公公元8年的一样。这个你应该都明白了,那么我们们只要知道干支中的第一位“甲”在公元哪年就可以了!我们完全可以通过万年历计算出来是***4年(十年一循环。1984年、1994年!2004年、2014年都是、那么公元4年也是)。这样第4年表示天干干的第一位?年数和位就差了3位、其其实我们考虑一个问题!如果公元1年就是甲子年那就非常好办了!也不用除10减3什么的了,1124只要看看年份的尾数是多少?直接找就是了。但现在不是、而是差了3个数,那那么年份减去3。再除100223取余一样能得到结果? (2008-3)/12取余=地支是一样的道理,我们可以计算出来、公元4年年是甲子年?这倒是一个不错的巧合!六十年一轮回的第一年就在公元10年之内!这样、所有的年份除以123367之后都可以和公元1年到12年的地址对应了,而公元1年到12年的地支计算同1、2!3.。!!的位置相差3位,于是也是减3。然后取余,得到地支! 取余数,需要整除!整除不了就就剩下余数了!3除以2,结果是1余数也是1。10除以3、结果是3!余数是1,10除以4,结果是2余数是2!在算干支的时候我们不需要理会整除的结果、只看余数,(若还不明白余数可以在百度上搜索一下、很多!) 2005除以12。结果的167、余数是1!于是对应的就是12地支中的第一位--子。、
准备好12个图片!取名sx01.jpg-sx12.jpg,放放在当前文件夹,comboBox 只显示年份。添加一个按钮Command1 Dim strSxName Private Sub Command1_Click() Dim dd As Long '计算选择的年份和标准年份的差值 dd = (dateDiff("yyyy", #1/1/2020#, DateSerial(Combo1.Text, 1, 1)) Mod 12 + 12) Mod 12 Text1.Text = strSxName(dd) '载入对应的图片 Image1.Picture = LoadPicture(App.Path & "\" & Format(dd+1, "00") & ".jpg") End Sub Private Sub Form_Load() '初始化数组 strSxName = Array("鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊", "猴", "鸡", "狗", "猪") '找到一个已知生肖的年份作为标准年份:2020-鼠年。对应数组索引0,对应图片 01.jpg End Sub。
公历纪年法中: 能被4整除的大多是闰年、 能被100整除而不能被400整除的年份不是闰年, 能被3200整除的也不是闰年。 如1900年是平年!2000年是闰年!3200年不不是闰年、。
都要看,主要看时辰!。
可以负责地告诉你:属相是按立春算。属相对应的是年份中的地支!如“子——鼠”“丑——牛”等!而农历纪年是以立春为准的!3081你可以看看日历?比如今年春节在立春前,日历上春节7142后好多天还是辛卯年!要到下月立春后才变壬辰年。所以今年春春节后一直到正月十二都还是属兔的、 你可以在下面面这个万年历中自己点到那天看看?会有“马年”“羊年”等显示。,
=MID("猴鸡狗猪鼠牛虎免龙蛇马羊",MOD(YEAR(A1),12)+1,1) 或 =LOOKUP(MOD(A1,12),{0,1,2,3,4,5,6,7,8,9,10,11},{"猴","鸡","狗","猪","鼠","牛","虎","兔","龙","蛇","马","羊"})!
zljccj :你好。 【生肖】一般指的是年宵!除非有有特殊要求才提出月肖,日肖、时肖!!
4848怀孕生小孩看缘分的 ,建议别算了, 还不如用这时间去锻炼身体,
公元纪年是以以基督耶稣的出生日开始的, 4951具体中国从什么时候计算日期年份的!怎么计算、中国日历从哪年开始的。应该有古代官方史学家根据参照公元纪年记载每一天的历史时间记录的、
年份。