1、你百度“Excel阳历转农历”可找到，但为什么不用公式直接计算=TEXTA2，quot$yyyymdquot如你要用VBA ，可写为Sub 宏1A1 = ApplicationTextA2， quot$yyyymdquotEnd Sub；这个类也可以从MFC例子中直接提取因为有好多个例子源码，就不贴代码，直接上图，工程在附件中用电脑登录可见，若VS版本低于2008 SP1，请自建工程，然后再添加头文件和源文件超全资料，一定要采纳哦仅供参考 ，提取。

2、2虽然在遇到闰月时，显示结果有点差强人意，如下图中，2010年2月9日的农历应是十二月二十六，但因为那年有个闰五月，就无辜多出来一个月了不过总比编代码要快捷多了，而且闰月也不是天天有3假如把公式改成=。

3、单行带农历的日期时间代码 ltSCRIPT language=JavaScript lt！ function CalConv FIRSTYEAR = 1998LASTYEAR = 2031today = new DateSolarYear = todaygetFullYearSolarMonth = todaygetMonth + 1；农历节日 *表示放假日var lFtv = new Arrayquot0101*春节quot，quot0115 元宵节quot，quot0328 我生日quot，quot0505 端午节quot，quot0707 七夕情人节quot，quot0715 中元节quot，quot0815 中秋节quot，quot0909 重阳节quot，quot1208 腊八节quot，quot1224 小年quot，quot0100*除夕quot；日期标准格式 公历日期标准格式为2007年2月6日或20070206农历日期标准格式为丁亥年腊月十九日干支历日期标准格式为丁亥年壬寅月辛未日日期书写不得以小数点或顿号代替年月日，如200726 20072；function RunGLNL var today=new Date var d=new Arrayquot星期日quot，quot星期一quot，quot星期二quot，quot星期三quot，quot星期四quot，quot星期五quot，quot星期六quot var DDDD=todaygetYearlt100 ？ todaygetYear+1900。

4、谁知道农历是怎么个计算的方法有函数最好函数不要那种有个与公历对应的表然后换算的1我不要控件！2不要有公历农 谁知道农历是怎么个计算的方法有函数最好函数不要那种有个与公历对应的表 然后换算的1我不要控件；下面代码开始lt%#39Option Explicit#39***#39 类名称ChinaDay#39 用途#39 根据输入的日期计算该日期的农历天干地支及当年属相#39 使用方法#39 第一个参数为输入参数，不填写默认为当日，#39 只计算192128之后的日期#39 #####39 Dim objChi；包含星期计算公历转农历农历转公历节气查询数据与算法均为原创，绝非网上复制而来附件中有源代码，同时附带农历数据提取工具，可提取1600到7000年之间的任意年份区间，提取后的数据为压缩数据，占用空间小，同时数据包含；我刚好有资源，这是我原创的程序，里面的数据压缩方式转换参考点等，都是自行设计的，能够准确地将公历转农历，将农历转公历，同时还提供一个自行设计的农历库，附带例程，还有农历信息提取工具，可以自定义年份区间1600；1982年的数据是0x0a974 0000 1010 1010 0111 0100 表示1982年的4月为闰月，即有第二个4月，且是闰小月从1月到13月的天数依次为3029302929闰月3029302929303030不明白百度HI；function RunGLNL var today=new Datevar d=new Arrayquot星期日quot，quot星期一quot，quot星期二quot，quot星期三quot，quot星期四quot，quot星期五quot，quot星期六quotvar DDDD=todaygetYearlt100 ？todaygetYear+1900todaygetYear。

5、自定义函数，calendar，将此段代码复制到模块中 计算时间从21年2月8日到2020年的数据可以转换成农历 Option Explicit Dim WeekName7， MonthAdd11， NongliData120， TianGan9， DiZhi11， ShuXiang11；flash中有专门的组件用于日历的，你可以试试，设置可以在参数中调觉得行的话，给我加点分，谢谢；纯ASP代码之公历转农历实现含属相例子代码 可以参考这个 asp？stype=1keyword=%C5%A9%C0%FAx=31y=12 以上转自 自由时空学习网 参考资料。

6、2按Alt+F11打开代码编辑器，3点“插入”“模块”，4在左侧栏中双击模块，5在右侧的编辑区中粘贴代码，6检查代码是否报错变红，7关闭代码编辑器重要说明说明1从这里复制的代码，行与行之间会被。