Option Explicit 　　Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12) 　　Dim curTime, curYear, curMonth, curDay, curWeekday 　　Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr 　　Dim i, m, n, k, isEnd, bit, TheDate 　　Dim year, month, day, grid, grid_date 　　Sub datetest()'这是转换样例 　　Debug.Print calendar("2011-8-15") 　　End Sub 　　　　Function calendar(grid)'转换函数 　　grid_date = grid 　　year = Mid(grid_date, 1, 4) 　　month = Mid(grid_date, 6, 1) 　　day = Mid(grid_date, 8, 2) 　　'星期名 　　WeekName(0) = " * " 　　WeekName(1) = "星期日" 　　WeekName(2) = "星期一" 　　WeekName(3) = "星期二" 　　WeekName(4) = "星期三" 　　WeekName(5) = "星期四" 　　WeekName(6) = "星期五" 　　WeekName(7) = "星期六" 　　'天干名称 　　TianGan(0) = "甲" 　　TianGan(1) = "乙" 　　TianGan(2) = "丙" 　　TianGan(3) = "丁" 　　TianGan(4) = "戊" 　　TianGan(5) = "己" 　　TianGan(6) = "庚" 　　TianGan(7) = "辛" 　　TianGan(8) = "壬" 　　TianGan(9) = "癸" 　　'地支名称 　　DiZhi(0) = "子" 　　DiZhi(1) = "丑" 　　DiZhi(2) = "寅" 　　DiZhi(3) = "卯" 　　DiZhi(4) = "辰" 　　DiZhi(5) = "巳" 　　DiZhi(6) = "午" 　　DiZhi(7) = "未" 　　DiZhi(8) = "申" 　　DiZhi(9) = "酉" 　　DiZhi(10) = "戌" 　　DiZhi(11) = "亥" 　　'属相名称 　　ShuXiang(0) = "鼠" 　　ShuXiang(1) = "牛" 　　ShuXiang(2) = "虎" 　　ShuXiang(3) = "兔" 　　ShuXiang(4) = "......余下全文>>？

　　可以啊。不过比较复杂！参看excelhome论坛： 　　http://club.excelhome.net/dispbbs.asp?BoardID=3&ID=26011&replyID=&skin=0 　　下载里面的Excel附件， 　　可能需要注册一下、、鱼缸风水学 入门

　　阳历是1978年年9月17日？是处女座， 　　星座按公历(阳历。新历！国历)出生日期算 　　白羊座（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日）、面相风水学 入门

　　星座是由阳历日期确定的！农历85年1月18那天的阳历日期是1985年3月9日 星期六、那天的星座是双鱼座！ 　　农历：乙丑年 正月 十八日 　4095　公历：1985年3月9日星期六双鱼座 　　信息来源：华中农历网，房间缺西北角东南角

　　星座都是按按阳历算的，、建房西北缺角

　　都行。但是分人，有的算命师傅因为大家习惯用公历、他说的也是公历、但是一般都说的是阴历生日、但是你算的话要告诉他你是阳历的还是阴历的，、房屋最理想的风水步局西南缺角

　　阴历和阳历相差、没有⁸¹⁴⁴固定的天数，有闰月的年份阴历是13个月、阳历永远⁴¹⁸⁴是12个月!相差就不是一个月了、 追问： 那你就说今年的吧！相差多少、 回答： 阴历 和阳历相差是逐渐变化的！没有固定的天数！比如阴历2011年1月1日阳历。是2011年2月3日相差 34天、2011年阴历7月初7，阳历是8月6日相差31天，阴历8月15阳历是9月12日相差28天、！房子缺东北角补齐有

　　阳阳历也叫公历。来源于西方、比如算星座时、就是按照阳历（公历）计算的， 　　阴历也叫农历，来源于我们中国、 　　比如我们俗称的八月十五中秋节、清明节。七夕！春节、就是按照农历来计算的，而元旦。和西方的情人节（2.14）4233和圣诞节、国庆节。建军节！党的生日，都是按照公^历历来计算的？ 　　他们的主要区别就在于阳历是国际通用的、而农历是我们中国特有的， 　　　阳历以地球绕太阳转一圈的时间定为一年!共365天5小时48分46妙！平年只计365天这个整数，不计尾数。阳历每年分12个月。大月31天、小月30天。2月只有28天！又规定7月以前。单月为大月，双月为小月！8月以后。双月为大月、而单³⁹⁹⁰月为小月!每年所余的5小时48分46秒！只至四年约满一天，这一天就加在第四年的2月里，这一年叫闰年。所以闰年的2月有29天！ 　　阴历以月亮圆缺一次的时间为一个月。共29天半，为了算起来方便，大月定做30天、小月29天，一年12月中、大小小月大体上交替排列，阴历一年有365天左右、也没有平年年闰年的差别、　　　阴历不考虑地球绕太阳的运行？因而使得四季的变化在阴历上就没有固定的时间、它不能反映季节，这是一个很大大的缺点。为了克服这这个缺点、后来人们们定了一个新历法！就是所谓阴阳台历、现在我国还在使用的夏历(也叫农历或偿历历)就是这种阴阳合历,它跟阴历一样。以月亮圆缺一次的时间定做一个月、也就是大月30天，小月29天。可是它又用加闰月的办法！使得平均每年的天数跟阳历全年的天数相接近。来调整四季。阴历约每过二三年多多有一个闰月， 　　参考资料：zhidao.baidu.com/question/308830743.html，房内缺角

　　　阴历是中国才有的!房子的缺角在东北角风水学里怎么说阴历阳历转换

　　明天是公历2月27日（叮是农历正月二十五），农历的2月27日（就是公历的3月31日）、农历1月1日就是“除夕”后一天。春节的第一天，而公公历1月1日是元旦节，比如2011年公历1月1日就是2010年冬月（11）月二十七，最好你去买本历书来研究就知道了。家居风水之缺东南角