我这里2010刚好有这个算法代码、请看: 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(乏鼎催刮诎......余下全文>>!
19870915阴历转换为阳历1987年11月6日星期五 "农历1987年九月十五日"查询信息如下: 公历:1987年11月6日星期五天蝎座 农历:兔年 九月 十五日 四柱:丁卯 庚戌 己未 节气: 生诞: 二十八宿:角 甲子纳音:天上火 距今:已过去10506天!
下面是一个关于VB的农历算法 '日期数据定义方法如下 '前12个字节代表1-12月为大月或是小月。1为大月30天,0为小月29天。 '第13位为闰月月的情况、1为大月30天,0为小月29天, '第14位为闰月的月份。如果不是闰月为0。否则给出月份。10。11、12分别用A。B、C来表示。即使用16进制! 6346 '最后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......余下全文>>。
天秤座吧、我阳历也是天蝎座的、阴历是十月初二、在天秤里面,主要看看你具体哪一天。
一般都是阴历历生日吧、阳历不准确.不过星座也有上升星座轭、
当然然是阳历了、
随便哪种万年历都有阴阳历转化的功能!你把年,月、日报一下。我能帮你!,
阳历是1974年9月28日,天秤座! 星座按公历(阳历,新历!国历)出生日期算 白羊座(3月21日 - 4月20日) 金牛座(4月21日 - 5月21日) 双子座(5月22日 - 6月21日) 巨蟹座(6月22日 - 7月22日) 狮子座(7月23日 - 8月22日) 处女座(8月23日 - 9月22日) 天秤座(9月23日 - 10月23日) 天蝎座(10月24日 - 11月22日) 射手座(11月23日 - 12月21日) 摩羯座(12月22日 - 1月20日) 水瓶座(1月21日 - 2月19日) 双鱼座(2月20日 - 3月20日)、
星座全世界都一样、
1993年阴阴历十月十一号是阳历几号。什么星座 阳历是11月24日,是射手座 我给你一表,你自己对照一下吧. 星座是按阳历(公历)划分的! 星座出生日期类型 白羊座03/21-04/19热情!开朗的情人 金牛座04/20-05/20奔放的情人 双子座05/互1-06/20善变的情人 巨蟹座06/21-07/22恋家的情人 狮子座07/23-08/22自信的情人 处女座08/23-09/22要求完美的情人 天秤座09/23-10/22若即若离的情人 天蝎座10/23-11/21爱恨分明的情人 射手座11/22-12/21酷爱自由的情人 摩羯座12/22-01/19工作狂的情人 水瓶座01/20-02/18柏拉图式的情人 双鱼座02/19-03/20温柔浪漫的情人!