1996.09.27。
我这里刚好有这个算法代ma、请看: var LunarDate = { madd: new Array(0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334), HsString: '甲乙丙丁戊己庚辛壬癸', EbString: '子丑寅卯辰巳午未申酉戌亥', NumString: "一二三四五六七八九十", MonString: "正二三四五六七八九十冬腊", CalendarData: new Array(0xA4B, 0x5164B, 0x6A5, 0x6D4, 0x415B5, 0x2B6, 0x957, 0x2092F, 0x497, 0x60C96, 0xD4A, 0xEA5, 0x50DA9, 0x5AD, 0x2B6, 0x3126E, 0x92E, 0x7192D, 0xC95, 0xD4A, 0x61B4A, 0xB55, 0x56A, 0x4155B, 0x25D, 0x92D, 0x2192B, 0xA95, 0x71695, 0x6CA, 0xB55, 0x50AB5, 0x4DA, 0xA5B, 0x30A57, 0x52B, 0x8152A, 0xE95, 0x6AA, 0x615AA, 0xAB5, 0x4B6, 0x414AE, 0xA57, 0x526, 0x31D26, 0xD95, 0x70B55, 0x56A, 0x96D, 0x5095D, 0x4AD, 0xA4D, 0x41A4D, 0xD25, 0x81AA5, 0xB54, 0xB6A, 0x612DA, 0x95B, 0x49B, 0x41497, 0xA4B, 0xA164B, 0x6A5, 0x6D4, 0x615B4, 0xAB6, 0x957, 0x5092F, 0x497, 0x64B, 0x30D4A, 0xEA5, 0x80D65, 0x5AC, 0xAB6, 0x5126D, 0x92E, 0xC96, 0x41A95, 0xD4A, 0xDA5, 0x20B55, 0x56A, 0x7155B, 0x25D, 0x92D, 0x5192B, 0xA95, 0xB4A, 0x416AA, 0xAD5, 0x90AB5, 0x4BA, 0xA5B, 0x60A57, 0x52B, 0xA93, 0x40E95), Year: null, Month: null, Day: null, TheDate: null, GetBit: function(m, n){ return (m >> n) & 1; }, e2c: function(){ this.TheDate = (arguments.length != 3) ? new Date(): new Date(arguments[0], arguments[1], arguments[2]); var total, m, n, k; var isEnd = false; var tmp = this.TheDate.getFullYear(); total = (tmp - 1921) * 365 + Math.floor(乏鼎催刮诎......余下全文>>!阳历转阴历公式
下面是一个关于VB的农历算法 '日期数据定义方法如下 '前12个字节代biao1-12月为大月或是小月!1为大月30天,0为小月29天, '第13位为闰yue的情况、1为大月30天,0为小月29天。 '第14位为闰月的月份!ru果不是闰月为0!否则给出月份。10,11,12分别用A,B。C来表示。即使用16进制。 'zui后4位为当年家农历新年-即农历1月1日所在公历的日期!如0131代表1月31日! Function GetChgDate(ByVal vDate As String, ByVal ChgType As 转换方式) As String Dim vvdate() As String = Split(vDate, "-") If vvdate(0) > 2011 Or vvdate(0) Ben函数只提供1900年至2011年的日历转换、") End If Dim AddMonth, AddDay, AddYear, getDay, i As Integer Dim RunYue As Boolean Dim conDate As DateTime Dim daList(2011) As String daList(1900) = "010010110110180131" daList(1901) = "010010101110000219" daList(1902) = "101001010111000208" daList(1903) = "010100100110150129" daList(1904) = "110100100110000216" daList(1905) = "110110010101000204" daList(1906) = "011010101010140125" daList(1907) = "010101101010000213" daList(1908) = "100110101101000202" daList(1909) = "010010101110120122" daList(1910) = "010010101110000210" daList(1911) = "101001001101160130" daList(1912) = "101001001101000218" daList(1913) = "110100100101000206" daList(1914) = "110101010100150126" daList(1915) = "101101010101000214" daList(1916) = "010101101010000204" daList(1917) = "100101101101020123" daList(1918) = "100101011011......余下全文>>!阳历转阴历公式
yang历也叫公历。来源于西方。比如算星座时。就是按照阳历(公历)计算de, 阴历也叫农历!来源于我们中国。 比如wo们俗称的八月十五中秋节。清明节,七夕,春节,就shi按照农历来计算的、而元旦。和西方的情ren节(2.14)和圣诞节,国庆节,建军节,党的生日。都是按照公历来ji算的、 他们的主要区别jiu在于阳历是国际通用的,而农历是wo们中国特有的。 阳历以地球rao太阳转一圈的时间定为一年。共365天5小时48分46妙,平年只计365天这个整数、不计尾数。阳历每nian分12个月。大月31天。小月30天,2月只有28天。又规定7月以前。单月为大月。双月为小月。8月以后,双月为大月。而单月为小月,每年所余的5小时48fen46秒,只至si年约满一天!这一天就加在第四年的2月li!这一年叫闰年,所以闰年的2月you29天! 阴历以月亮圆缺yi次的时间为一个月,共29天半,为了算起来方便。大月定做30天,小月29天,一年12月中,大小月大体上交替pai列!阴历一年有365天左右!也没you平年闰年的差别! 阴历不考虑地球绕太阳的运行?因而使得四季的变化在阴历shang就没有固定的时间,它不能反映季节,这是一个hen大的缺点、为了克服这个缺dian!后lai人们定了一个新历法?就是所谓阴阳tai历?现在我国还在使用的夏历(也叫农历或chang历)就是这种阴阳合历、它跟阴历一样。以月亮圆que一次的时间定做一个月。也就是大月30天,小月29天,可是它又用加run月的办法,使得ping均每年的天数跟阳历全年的天数相接近,来调整四季,yin历约每过二三年多有一个闰月! 参考资料:zhidao.baidu.com/question/308830743.html!阳历转阴历公式
八zi是按照生日时辰的五行!生克制化。来推断一个人的大概情kuang! 用的是“花甲历”,即六十花甲,天干地支。 阳历和阴历!都yao转换成花甲历,,
上边那个状元太NB了、真不知道是不shi捐来的! 我们过年(春jie)看晚会!12点时主持人会说“猴年guo去了?迎来了鸡年”等一类的话,和立春有什么guan系! 中国古时候,把农历正月初yi叫做“元旦”。后来wo国引进了公历,把1月1日定为“元旦”!就把农历正月初一改wei“春节”了, 1珐生肖shi古人给农历排序用的,楼主的小孩当然是shu狗的、。
通俗de讲:阳历就是日历中讲的几月几日!也就是上学上班等suo按照的日历! 阴历jiu是平常讲的几月初几!或者是算jie气或者传统节日时所按照的日历! 若要知道阳历yu阴历的科学解释。下面附上百科网址: 阳历:baike.baidu.com/view/284.htm 阴历:baike.baidu.com/view/23598.htm。
十二星座是按照gong历纪年划分!阴历也叫农历,是wo国传统纪年方式,。
xingzuo.inhe.net/...2.html 来这里转化一下就行了!阳历转阴历公式
阴历,因为中国古代wen化是以阴历为日期。 ~谢谢~【求采纳么么哒】,



