亚洲精品一区色综合 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 blankIf Gong = 0 ThenNongLi = ""Exit FunctionEnd IfDim MonthAdd(11), NongliData(119)Dim curTime, curYear, curMonth, curDayDim i, m, n, k, isEnd, bit, TheDateDim isLeapMonth As Boolean' 赢顺应前系统技巧curTime = Gong' 公历每月前边的天数MonthAdd(0) = 0MonthAdd(1) = 31MonthAdd(2) = 59MonthAdd(3) = 90MonthAdd(4) = 120MonthAdd(5) = 151MonthAdd(6) = 181MonthAdd(7) = 212MonthAdd(8) = 243MonthAdd(9) = 273MonthAdd(10) = 304MonthAdd(11) = 334' 农历数据NongliData(0) = 2635NongliData(1) = 333387NongliData(2) = 1701NongliData(3) = 1748NongliData(4) = 267701NongliData(5) = 694NongliData(6) = 2391NongliData(7) = 133423NongliData(8) = 1175NongliData(9) = 396438NongliData(10) = 3402NongliData(11) = 3749NongliData(12) = 331177NongliData(13) = 1453NongliData(14) = 694NongliData(15) = 201326NongliData(16) = 2350NongliData(17) = 465197NongliData(18) = 3221NongliData(19) = 3402NongliData(20) = 400202NongliData(21) = 2901NongliData(22) = 1386NongliData(23) = 267611NongliData(24) = 605NongliData(25) = 2349NongliData(26) = 137515NongliData(27) = 2709NongliData(28) = 464533NongliData(29) = 1738NongliData(30) = 2901NongliData(31) = 330421NongliData(32) = 1242NongliData(33) = 2651NongliData(34) = 199255NongliData(35) = 1323NongliData(36) = 529706NongliData(37) = 3733NongliData(38) = 1706NongliData(39) = 398762NongliData(40) = 2741NongliData(41) = 1206NongliData(42) = 267438NongliData(43) = 2647NongliData(44) = 1318NongliData(45) = 204070NongliData(46) = 3477NongliData(47) = 461653NongliData(48) = 1386NongliData(49) = 2413NongliData(50) = 330077NongliData(51) = 1197NongliData(52) = 2637NongliData(53) = 268877NongliData(54) = 3365NongliData(55) = 531109NongliData(56) = 2900NongliData(57) = 2922NongliData(58) = 398042NongliData(59) = 2395NongliData(60) = 1179NongliData(61) = 267415NongliData(62) = 2635NongliData(63) = 661067NongliData(64) = 1701NongliData(65) = 1748NongliData(66) = 398772NongliData(67) = 2742NongliData(68) = 2391NongliData(69) = 330031NongliData(70) = 1175NongliData(71) = 1611NongliData(72) = 200010NongliData(73) = 3749NongliData(74) = 527717NongliData(75) = 1452NongliData(76) = 2742NongliData(77) = 332397NongliData(78) = 2350NongliData(79) = 3222NongliData(80) = 268949NongliData(81) = 3402NongliData(82) = 3493NongliData(83) = 133973NongliData(84) = 1386NongliData(85) = 464219NongliData(86) = 605NongliData(87) = 2349NongliData(88) = 334123NongliData(89) = 2709NongliData(90) = 2890NongliData(91) = 267946NongliData(92) = 2773NongliData(93) = 592565NongliData(94) = 1210NongliData(95) = 2651NongliData(96) = 395863NongliData(97) = 1323NongliData(98) = 2707NongliData(99) = 265877NongliData(100) = 1706NongliData(101) = 2773NongliData(102) = 133557NongliData(103) = 1206NongliData(104) = 398510NongliData(105) = 2638NongliData(106) = 3366NongliData(107) = 335142NongliData(108) = 3411NongliData(109) = 1450NongliData(110) = 200042NongliData(111) = 2413NongliData(112) = 723293NongliData(113) = 1197NongliData(114) = 2637NongliData(115) = 399947NongliData(116) = 3365NongliData(117) = 3410NongliData(118) = 334676NongliData(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) - 38If ((curYear Mod 4) = 0 And curMonth > 2) ThenTheDate = TheDate + 1End If' 预备农历天干、地支、月、日isEnd = 0m = 0isLeapMonth = FalseDoIf (NongliData(m) < 4095) Thenk = 11Elsek = 12End Ifn = kDoIf (n < 0) ThenExit DoEnd If' 赢得NongliData(m)的第n个二进制位的值bit = NongliData(m)For i = 1 To n Step 1bit = Int(bit / 2)Nextbit = bit Mod 2If (TheDate <= 29 + bit) ThenisEnd = 1Exit DoEnd IfTheDate = TheDate - 29 - bitn = n - 1LoopIf (isEnd = 1) ThenExit DoEnd Ifm = m + 1LoopcurYear = 1921 + mcurMonth = k - n + 1curDay = TheDate' 判断是否为闰月If (k = 12) ThenDim leapMonth As IntegerleapMonth = Int(NongliData(m) / 65536) + 1If (curMonth = leapMonth) ThenisLeapMonth = TruecurMonth = 1 - curMonthElseIf (curMonth > leapMonth) ThencurMonth = curMonth - 1End IfEnd IfcurMonth = Abs(curMonth)' 复返农历日历 (体式: "[闰]YYYY/M/D")If isLeapMonth ThenNongLi = "闰 " & curYear & "/" & curMonth & "/" & curDayElseNongLi = curYear & "/" & curMonth & "/" & curDayEnd IfEnd Function

二、使用代码

当先掀开Excel，按下快捷键ALT+F11调出VB窗口，之后点击【插入】找到【模块】新建一个模块，在右侧的空缺区域，按下【Ctrl+V】奏凯粘贴即可

图片

三、展示完结

使用尺度就跟成例的函数是相通的输入函数的称呼【NongLi】，然后点击对应的单位格，念念向下填充即可，不错准确的识别是6月的闰月的

图片

以上便是今天共享的一齐现实，念念要保存vba代码需要将文献的体式另存为XLSM体式才行，梗概应用之前共享过的【加载宏】的尺度永久保存代码，各人不错翻一下，之前王人是发过的

念念学跟我Excel，不错不才方了解下我的课程，函数、透视表、图表、数据看板、AI王人有，购买后免费答疑，点击下方相连了解细则

图片

Excel系列课程（Deepseek、函数、透视表、图表、数据看板）

图片

END亚洲精品一区色综合

坚捏创作不易，最下方点个❤支柱下吧~👇👇 本站仅提供存储就业，总计现实均由用户发布，如发现存害或侵权现实，请点击举报。