困扰大家20年难题被破解了! DeepSeek一键生成农历函数附代码
发布时间：2025-08-01 11:39:27 作者：佚名 
我要评论
我要评论之前利用PQ通过获取API来得到公历对用的农历，但是无奈效率太低了，现在利用DeepSeek一键生成农历函数，分分秒解决困扰大家20年难题
如何将公历转换为农历，这一直是一个大难题，没有什么好的办法，之前利用PQ通过获取API来得到公历对用的农历，但是无奈效率太低了
最近又有学员问到类似的问题，跟Deepseek沟通可下，竟然一次就得到正确的代码了，跟大家分享一下！
一、代码展示
我们没有将代码的结果设置为2025年六月初一这样的格式，为了方便计算，将结果改成了Excel可以识别的日期格式：2025/6/1 如果遇到闰月的话，则会在最前面添加的闰字，结果为：闰 2025/6/1
代码比较长，请大家在电脑端复制粘贴，手机端复制可能会不完整出现错误的情况
Public Function NongLi(Optional Gong As Date) As String ' If parameter is empty, return blank If Gong = 0 Then NongLi = "" Exit Function End If Dim MonthAdd(11), NongliData(119) Dim curTime, curYear, curMonth, curDay Dim i, m, n, k, isEnd, bit, TheDate Dim isLeapMonth As Boolean ' 获取当前系统时间 curTime = Gong ' 公历每月前面的天数 MonthAdd(0) = 0 MonthAdd(1) = 31 MonthAdd(2) = 59 MonthAdd(3) = 90 MonthAdd(4) = 120 MonthAdd(5) = 151 MonthAdd(6) = 181 MonthAdd(7) = 212 MonthAdd(8) = 243 MonthAdd(9) = 273 MonthAdd(10) = 304 MonthAdd(11) = 334 ' 农历数据 NongliData(0) = 2635 NongliData(1) = 333387 NongliData(2) = 1701 NongliData(3) = 1748 NongliData(4) = 267701 NongliData(5) = 694 NongliData(6) = 2391 NongliData(7) = 133423 NongliData(8) = 1175 NongliData(9) = 396438 NongliData(10) = 3402 NongliData(11) = 3749 NongliData(12) = 331177 NongliData(13) = 1453 NongliData(14) = 694 NongliData(15) = 201326 NongliData(16) = 2350 NongliData(17) = 465197 NongliData(18) = 3221 NongliData(19) = 3402 NongliData(20) = 400202 NongliData(21) = 2901 NongliData(22) = 1386 NongliData(23) = 267611 NongliData(24) = 605 NongliData(25) = 2349 NongliData(26) = 137515 NongliData(27) = 2709 NongliData(28) = 464533 NongliData(29) = 1738 NongliData(30) = 2901 NongliData(31) = 330421 NongliData(32) = 1242 NongliData(33) = 2651 NongliData(34) = 199255 NongliData(35) = 1323 NongliData(36) = 529706 NongliData(37) = 3733 NongliData(38) = 1706 NongliData(39) = 398762 NongliData(40) = 2741 NongliData(41) = 1206 NongliData(42) = 267438 NongliData(43) = 2647 NongliData(44) = 1318 NongliData(45) = 204070 NongliData(46) = 3477 NongliData(47) = 461653 NongliData(48) = 1386 NongliData(49) = 2413 NongliData(50) = 330077 NongliData(51) = 1197 NongliData(52) = 2637 NongliData(53) = 268877 NongliData(54) = 3365 NongliData(55) = 531109 NongliData(56) = 2900 NongliData(57) = 2922 NongliData(58) = 398042 NongliData(59) = 2395 NongliData(60) = 1179 NongliData(61) = 267415 NongliData(62) = 2635 NongliData(63) = 661067 NongliData(64) = 1701 NongliData(65) = 1748 NongliData(66) = 398772 NongliData(67) = 2742 NongliData(68) = 2391 NongliData(69) = 330031 NongliData(70) = 1175 NongliData(71) = 1611 NongliData(72) = 200010 NongliData(73) = 3749 NongliData(74) = 527717 NongliData(75) = 1452 NongliData(76) = 2742 NongliData(77) = 332397 NongliData(78) = 2350 NongliData(79) = 3222 NongliData(80) = 268949 NongliData(81) = 3402 NongliData(82) = 3493 NongliData(83) = 133973 NongliData(84) = 1386 NongliData(85) = 464219 NongliData(86) = 605 NongliData(87) = 2349 NongliData(88) = 334123 NongliData(89) = 2709 NongliData(90) = 2890 NongliData(91) = 267946 NongliData(92) = 2773 NongliData(93) = 592565 NongliData(94) = 1210 NongliData(95) = 2651 NongliData(96) = 395863 NongliData(97) = 1323 NongliData(98) = 2707 NongliData(99) = 265877 NongliData(100) = 1706 NongliData(101) = 2773 NongliData(102) = 133557 NongliData(103) = 1206 NongliData(104) = 398510 NongliData(105) = 2638 NongliData(106) = 3366 NongliData(107) = 335142 NongliData(108) = 3411 NongliData(109) = 1450 NongliData(110) = 200042 NongliData(111) = 2413 NongliData(112) = 723293 NongliData(113) = 1197 NongliData(114) = 2637 NongliData(115) = 399947 NongliData(116) = 3365 NongliData(117) = 3410 NongliData(118) = 334676 NongliData(119) = 2906 ' 生成当前公历年、月、日 curYear = Year(curTime) curMonth = Month(curTime) curDay = Day(curTime) ' 计算到初始时间1921年2月8日的天数: 1921-2-8(正月初一) TheDate = (curYear - 1921) * 365 + Int((curYear - 1921) / 4) + curDay + MonthAdd(curMonth - 1) - 38 If ((curYear Mod 4) = 0 And curMonth > 2) Then TheDate = TheDate + 1 End If ' 计算农历天干、地支、月、日 isEnd = 0 m = 0 isLeapMonth = False Do If (NongliData(m) < 4095) Then k = 11 Else k = 12 End If n = k Do If (n < 0) Then Exit Do End If ' 获取NongliData(m)的第n个二进制位的值 bit = NongliData(m) For i = 1 To n Step 1 bit = Int(bit / 2) Next bit = bit Mod 2 If (TheDate <= 29 + bit) Then isEnd = 1 Exit Do End If TheDate = TheDate - 29 - bit n = n - 1 Loop If (isEnd = 1) Then Exit Do End If m = m + 1 Loop curYear = 1921 + m curMonth = k - n + 1 curDay = TheDate ' 判断是否为闰月 If (k = 12) Then Dim leapMonth As Integer leapMonth = Int(NongliData(m) / 65536) + 1 If (curMonth = leapMonth) Then isLeapMonth = True curMonth = 1 - curMonth ElseIf (curMonth > leapMonth) Then curMonth = curMonth - 1 End If End If curMonth = Abs(curMonth) ' 返回农历日期 (格式: "[闰]YYYY/M/D") If isLeapMonth Then NongLi = "闰 " & curYear & "/" & curMonth & "/" & curDay Else NongLi = curYear & "/" & curMonth & "/" & curDay End If End Function
二、使用代码
首先打开Excel，按下快捷键ALT+F11调出VB窗口，之后点击【插入】找到【模块】新建一个模块，在右侧的空白区域，按下【Ctrl+V】直接粘贴即可
三、展示结果
使用方法就跟常规的函数是一样的输入函数的名称【NongLi】，然后点击对应的单元格，想向下填充即可，可以准确的识别是6月的闰月的
相关文章
之前都是用思维导图软件做的员工手册，现在想要提升工作效率，用DeepSeek制作，该如何操作呢？详细请看下文介绍2025-07-15利用AI工具提高B站学习效率! DeepSeek一键生成B站视频笔记详解
在B站学习视频课程时，我们常常会遇到视频节奏缓慢或内容冗长的问题，导致注意力难以集中，我们可以利用ai解决这个问题，做好内容笔记，详细如下文所述2025-06-25还能在Excel中直接编辑! DeepSeek配合Mermaid生成图表的技巧
今天跟大家分享下我们如何使用DeepSeek与Mermaid来实现快速的生成图表，操作也非常的简单，只需要准备好自己的数据源即可，还可以在excel中修改哦2025-06-24deepseek各版本有什么区别? DeepSeek各版本说明与优缺点分析
本文将详细介绍DeepSeek的各版本，从版本的发布时间、特点、优势以及不足之处，为广大AI技术爱好者和开发者提供一份参考指南2025-06-20
完美弥补Excel可视化短板! 用DeepSeek制作热力地图的技巧
在之前，我们用Excel制作填充热力地图，通常需要先找到对应的地图、然后按省/市/区分成单个的小块，特别麻烦，如果用DeepSeek制作热力地图就很方便，详细请看下文介绍2025-06-18合同管理利器! DeepSeek写VBA实现Excel打开就弹窗到期预警
公司合同管理是一件很复杂的事情，比如合同到期提醒，我们就可以使用DeepSeek写VBA代码实现快捷提醒，详细请看下文介绍2025-06-10批量修改图片大小! DeepSeek搭配Word文档才是绝配
最近我发现DeepSeek与Word才是绝配，通过VBA代码可以批量修改图片大小，下面我们就来看看详细操作步骤，内附代码2025-06-02- 只需10秒，输入指令词后，一张张会动的图表就出来喽~60+种图表，组合图、散点图和气泡图、面积图、柱状图和条形图、饼图、折线图七大类图表，想要哪种就都可以！2025-05-23
- Deepseek太强了！之前3天都统计不完的考勤表，现在3分钟就够了！很多朋友不知道怎么操作，，详细请看下文介绍2025-05-20
- 不知道大家平时在工作当中绘制各种图表的情况多不多，比如流程图，时序图，饼图等等, 如果是自己平时使用还好，画个大概能看就行，如果是给领导汇报就需要特别用心，怎么2025-05-20
最新评论