*子函数，用于读取数据表中农历月的大月或小月，如果该月为大返回1，为小返回0* bit get_moon_dayuchar month_p，uint table_addr uchar tempswitch month_p case 1temp=year_codetable_addr0x08if；农历数据 private static int LunarData = 26351701，1748694，23911175， ，3402，37491453，69423503221，3402 2901，1386605，234927；这个是有计算方法的，只要你有计算公式我就可以计算出来的但是前提你要有计算公式才行#39公历转农历模块#39 农历数据定义 #39先以 H2B 函数还原成长度为 18 的字符串，其定义如下#39前12个字节代表112月1为大月。

农历一百年算法1921~2021C语言代码农历两百年算法1901~2100C语言代码下面是两百年算法，另外网上也流传着一个很有名气的一百年算法农历一百年算法1921~2021C语言代码下面的三个表格是农历数据表；材料工具Excel2010 1启动Excel2010软件，打开需要操作的数据表以下面表格为例进行演示2选中D2单元格，输入公式“=TEXTC2，quot#0000quot”，点击回车键确认，张三的出生日期中间就以“－”连接了3选中D2；设置excel表格日期显示为农历的步骤如下1打开需要操作的excel表格，在A1单元格输入如下函数“=TEXTNOW，quot$YYYYMDquot”2单元格中可以观察到出现了一个日期农历日期为六月初一3如果要将农历。

农历数据 private static int LunarData = 26351701，1748694，23911175， ，3402，37491453，69423503221，3402 2901，1386605，23492709；1000 1 0 1 1 0 1 1 0 1 0 0 1 0 保留 1月31日春节 闰八月 从左往右依次十二月，十一月闰八月八月七月正月的天数 农历月份对应的位；我刚好有资源，这是我原创的程序，里面的数据压缩方式转换参考点等，都是自行设计的，能够准确地将公历转农历，将农历转公历，同时还提供一个自行设计的农历库，附带例程，还有农历信息提取工具，可以自定义年份区间1600；这个类也可以从MFC例子中直接提取因为有好多个例子源码，就不贴代码，直接上图，工程在附件中用电脑登录可见，若VS版本低于2008 SP1，请自建工程，然后再添加头文件和源文件超全资料，一定要采纳哦仅供参考 ，提取；农历函数Sub 农历Public Function NongLiOptional XX_DATE As DateDim MonthAdd11， NongliData99， TianGan9， DiZhi11， ShuXiang11， DayName30， MonName12Dim curTime， curYear， curMonth， cur。

1启动Excel2010软件，打开需要操作的数据表以下面表格为例进行演示2选中D2单元格，输入公式“=TEXTC2，quot#0000quot”，点击回车键确认，张三的出生日期中间就以“－”连接了3选中D2单元格，鼠标放在该单元；农历节日 *表示放假日var lFtv = new Arrayquot0101*春节quot，quot0102*初二quot，quot0103*初三quot，quot0115 元宵节quot，quot0505 端午节quot，quot0707 七夕情人节quot，quot0715 中元节quot，quot0815 中秋节quot，quot0909 重阳节quot，quot1208 腊八节quot，quot1223 小年quot，quot0100；Public sNlMon As Variant #39农历月份数组 Public sNlDay As Variant #39农历日份数组 Public sNlShu As Variant #39农历数据数组 Sub 加载数组们sZhouJ = Splitquot*一二三四五六日quot， quotquot #39星期数组 sTiGa；单行带农历的日期时间代码 ltSCRIPT language=JavaScript lt！ function CalConv FIRSTYEAR = 1998LASTYEAR = 2031today = new DateSolarYear = todaygetFullYearSolarMonth = todaygetMonth + 1。

公历年对应的农历数据，每年三字节，格式第一字节BIT74 位表示闰月月份，值为0 为无闰月，BIT30 对应农历第14 月的大小第二字节BIT70 对应农历第512 月大小，第三字节BIT7 表示农历第13 个月大小月份对应的位为1 表示本。

excel公历转农历方法一使用text函数 假设A列是公历日期，A1是公历日期，我们在B1单元格输入公式=TEXTA1，quot$yyyy年m月quotIFLENTEXTA1，quot$ddquot=1，quot初quot，quotquotquotdquot，下拉完成公历转农。