腊月是几月
腊月是几月
腊月是农历的最后一个月，通常对应阳历的12月份。在中国传统农历中，腊月是冬季的最后一个月份，也是一年中最寒冷的时候。腊月的到来标志着冬季的深入，人们开始准备迎接新年的到来。在腊月，人们会进行各种庆祝活动，如贴春联、扫尘、腊八粥等，以期迎接新年的到来。腊月也是家人团聚的时刻，人们会回到家中与亲人共度年末时光。所以，腊月在中国文化中具有重要的意义，代表着新年的希望和团圆的温暖。
阴历阳历转换器
Public Function LTG(Optional xx_date As Date, Optional irow As Integer) '农历转公历Dim LunarYear, LunarMonth, LunarDayDim NongliData(100) '农历数据 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) = 2742NongliData(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 Dim m, monthCount, toCurMonthCnt, LeapMonth, theDate, curTime Dim i1, i2, i3, bit '获取当前变量日期 curTime = xx_date 'LunarYear = Year(curTime) LunarYear = Year(Now()) LunarMonth = Month(curTime) LunarDay = Day(curTime) m = LunarYear - 1921 monthCount = 0 toCurMonthCnt = 0 LeapMonth = -1 theDate = LunarDay - 1 For i1 = 0 To m - 1 Step 1 If (NongliData(i1) < 4095) Then monthCount = 11 Else monthCount = 12 End If For i2 = 0 To monthCount Step 1 bit = NongliData(i1) For i3 = 1 To i2 Step 1 bit = Int(bit / 2) Next bit = bit Mod 2 theDate = theDate + 29 + bit Next Next If (NongliData(m) < 4095) Then monthCount = 11 toCurMonthCnt = monthCount - LunarMonth + 2 Else monthCount = 12 toCurMonthCnt = monthCount - LunarMonth + 1 LeapMonth = Int(NongliData(m) / 65536) If LunarMonth <= LeapMonth Then toCurMonthCnt = toCurMonthCnt + 1 End If For i2 = monthCount To toCurMonthCnt Step -1 bit = NongliData(m) For i3 = 1 To i2 Step 1 bit = Int(bit / 2) Next bit = bit Mod 2 theDate = theDate + 29 + bit Next LTG = DateAdd("d", theDate, "1921/2/8") If irow = 1 Then Sheet1.Cells(1, 10) = "'" & LTGElse Sheet1.Cells(irow, 4) = "'" & LTG End IfEnd FunctionPrivate Sub CommandButton1_Click() If IsDate(Sheet1.Cells(1, 9)) = True And IsNull(Sheet1.Cells(1, 9)) = False And Sheet1.Cells(1, 9) <> "" Then aaa = LTG(Sheet1.Cells(1, 9), 1) End If Dim i As Integer For i = 2 To 100 Sheet1.Cells(i, 4) = "" If Sheet1.Cells(i, 2) <> "" And IsNull(Sheet1.Cells(i, 2)) = False And IsDate(Sheet1.Cells(i, 2)) = True Then If Sheet1.Cells(i, 3) = "Y" Then bbb = LTG(Sheet1.Cells(i, 2), i) Else Sheet1.Cells(i, 4) = "'" & Sheet1.Cells(i, 2) End If Else Application.DisplayAlerts = False Application.Quit End If Next iEnd Sub。
