¹⁷⁵⁸下面是一个关于VB的农历算法 　　　　'日期数据定义方法如下 　　　　'前12个字节代表1-12月为大月或是小月。1为大月30天。0为小月29天， 　　　　　'第13位为闰月的情况？1为大月30天！0为小月29天。 　　　　　'第14位为闰月的月份,如果不是是闰月为0、否则给出月份。10。11！12分别用A！B。C来表示。即使用16进制。 　　　　'最后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......余下全文>>，

　　公历：1984年11月19日 　　　　星座：天蝎座！！步步高升的风水摆设

　　我这里刚好有这个算法代码，请看： 　　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(乏鼎催刮诎......余下全文>>？种植葡萄树的风水

　　都行！但是分人，有的算命师傅因因为大家习惯用公历，他他说的也是公历!但是一般都说的是阴历生日、但是你算的话要告诉他你是阳历的还是阴历的！。关于风水的诗歌

　　公历当然是阳历，而农历上面都说错了。农历其实不是阴历。而是阴阳历，它是阴历结合着阳历而加闰月的一种历法，所9959以是阴阳历、公历是根据耶酥的传说确定起始唬份的一种阳历！它毫无疑问是是阳历？。昆明风水最好的地段

　　公历是地球绕太阳一周所需时间即365日5小时48分46秒的时间。阴历是以月亮围绕地球一周所需时间即即29天为一个周期。阴历一年即354天。阳历全球使用、阴历只有中国在其不多的国家应用。。客厅的视觉风水

　　阳历 　　白羊座(03/21-04/20) 星辰花;雏菊;满天星 [热心;耐心] 　　金牛座(04/21-05/21) 黄玫瑰;康乃馨;金慧星 [温柔;踏实] 　　双子座(05/22-06/21) 紫玫瑰;卡斯比亚;羊齿蕨[神秘;魅力] 　　巨蟹座(06/22-07/22) 百合;夜来香 [感性;柔和] 　　狮子座(07/23-08/22) 粉玫瑰;向日葵;禅菊;熊草[高贵;不凡] 　　处女座(08/23-09/23) 波斯菊;黄铃兰;白石斛兰[脱俗;洁净] 　　天秤座(09/24-10/23) 非洲菊;火鹤花;海芋 [自由;爽朗] 　　天蝎座(10/24-11/22) 嘉德利亚兰;红竹;文竹 [热情;非凡] 　　射手座(11/23-12/21) 玛格丽特;素心兰 [活泼;开朗] 　　魔羯座(12/22-01/20) 紫色郁金香;紫丁香 [坚强;积极] 　　水瓶座(01/21-02/19) 蝴蝶兰;蕾丝花 [智慧;理性] 　　双鱼座(02/20-03/20) 爱丽丝;香水百合 [浪漫;开放] 　　你是天秤座的 　　天秤座 　　主宰行星：金星 　　属性：风相星座 　　吉祥物：心形物。 　　　吉祥金属：铜， 　　吉祥宝石：蓝宝石！ 　　吉祥日：星期五， 　　吉祥数字：6！15，24、33 　　喜欢的花：樱樱花 　　喜欢的颜色：天蓝色 　　喜欢的场所：歌舞厅娱乐场所，书店！ 　　理想旅居国：奥地利、美国南部、埃及和夏威夷 　　最信任的星座——摩羯座 　　最佳学习对对象——白羊座 　　最佳工作搭档——天蝎座 　　最容易被影响星座——巨蟹座 　　最易掌握的星座——天蝎座！摩羯座、金牛座，狮子座 　　最需注意的星座——射手座。双鱼座。巨蟹座！处女座 　　100%协调星座——水瓶座。双子座 　　90%协调调星座——射手座，狮子座 　　80%协调星座——天秤座 　　同类型（风象）星座——天秤座。水瓶座！双子座 　　对立星座——白羊座，门坎石高低二块的风水

　　按阳历算 白羊座：3月21日 - 4月20日 金牛座：4月21日 - 5月21日 双子座：5月22日 - 6月21日 巨蟹座：6月22日 - 7月22日 狮子座：7月23日 - 8月23日 处女座：8月24日 - 9月23日 天秤座：9月24日 - 10月23日 天蝎座：10月24⁸⁵⁵⁶日 - 11月22日 射手座：11月23日 - 12月21日 魔羯座：12月22日 - 1月20日 水瓶座：1月21日 - 2月19日 双鱼座：2月20日 - 3月20日 　　　　希望采纳！家居大门需警惕 9条大门风水运势知识

　　阳历是是10月10日天秤座？ 　　下面为你介绍十二星座。供你对照， 　　星座名， 星座属性 ， 幸运数字、辛运颜色。 　　白羊座 03/21 - 04/19 火象星座 6,7。鲜红色、血红色！ 　　金牛座 04/20- 0520 土象星座 1,9！紫色、 　　双子座 05/21 - 06/20 风象星座 3,5,7、淡粉色， 　　巨蟹座 06/21- 07/22 水象星座 8,3？大地色！ 　　狮子座 07/23 - 08/22 火象星座 5,9。褐色。深红色、 　　处女座 08/23 - 09/22 土象星座 4,8，黄色！ 　　天秤座 09/23 - 10/22风象星座 6,9，橙色。 　　天蝎座 10/23 - 11/21 水象星座 3,5、暗灰色！深红色， 　　射手座 11/22 - 12/21 火象星座 9、黑色、白色、灰色， 　　摩羯座 12/22 - 01/19 土象星座 3,7。深红色！ 　　水瓶座 01/ 20- 02/18风象星座4,8，金黄色。 　　双鱼座02/19-03/20水象星座5,8！紫色！！风水学基础知识了论文阳历转阴历八字

　　今天是阳历2016年10月14日。阴历猴1680年 九月 十四日, 　　"公历2016-10-14"查询信息如下： 　　公历：2016年10月14日星期五天秤座 　　农历：猴年 九月 十四日 　　四柱：丙申 戊戌 己巳 节气： 生诞： 二十八宿：奎 甲子纳音：大林木 　　距离今日：还有0天。阴阳地理玄空飞星风水学基础知识入