2022年农历二月二十日适合出殡吗丧事办理的程序是什么

农历二月

春季的第二个月，即农历二月。

传统二月名称是如月，别称花朝，还有花朝、杏月、仲春、仲阳、如月、丽月、花月、仲月、酣月等别称。

2022年农历二月二十适合出殡吗？

农历： 二0二二年二月二十日； 公历： 2022年03月22日，星期二，冲龙煞北

今日黄历所宜

出行　入宅　提亲　求婚　订婚　裁衣　砌灶　祭祀　破土　上梁

建基　打官司　起工架马　入山伐木

今日黄历所忌

结婚　宴会　提车　搬家　交易　安床　开工　开张　开业　上官

酝酿　补垣　行船　开仓　出货财　学技艺　乘船渡水　诊治伤病

从2022年农历二月二十的黄历来看，这天破土在所宜内，所以 适合出殡 ，且属于黄道吉日。

丧事办理的程序

一、办理死亡手续

当亲人去世后，死者家属或单位必须开取的死亡证明。正常死亡的，由医疗卫生机构出具医学死亡证明；非正常死亡的，由区、县以上公安、司法部门出具死亡证明。

二、注销户口

死者家属持死亡证明书到驻地派出所注销户口。

三、联系火化

① 打电话或派人前往殡仪馆或殡葬服务站联系火化，登记死者姓名、住址、年龄、性别、死亡原因、死亡时间、遗体所在地、死者户口所在地；

② 登记家属姓名、住址、电话、与死者关系等；

③预定服务项目，服务时间。

四、接运遗体

按预定时间，家属持死亡证明在指定地点等候灵车接运遗体。

五、遗体火化

① 遗体运送到殡仪馆；

② 遗体整容；

③ 遗体告别；

④ 遗体火化，选购骨灰盒、领取火化证明；

⑤ 领取骨灰。

六、骨灰安放

按选定方式安放骨灰，并领取骨灰存放证。此后，家属持此证明来公墓祭扫。

VB农历算法

[%repeat_0 match="/data/option"%] [%=@title%] [%=@count%]票 [[%=@percent%]％]

[%_repeat_0%]

Private Sub Form_Load()

Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)

Dim curTime, curYear, curMonth, curDay, curWeekday

Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr

Dim i, m, n, k, isEnd, bit, TheDate

'获取当前系统时间

curTime = Now()

'星期名

WeekName(0) = " "

WeekName(1) = "星期日"

WeekName(2) = "星期一"

WeekName(3) = "星期二"

WeekName(4) = "星期三"

WeekName(5) = "星期四"

WeekName(6) = "星期五"

WeekName(7) = "星期六"

'天干名称

TianGan(0) = "甲"

TianGan(1) = "乙"

TianGan(2) = "丙"

TianGan(3) = "丁"

TianGan(4) = "戊"

TianGan(5) = "己"

TianGan(6) = "庚"

TianGan(7) = "辛"

TianGan(8) = "壬"

TianGan(9) = "癸"

'地支名称

DiZhi(0) = "子"

DiZhi(1) = "丑"

DiZhi(2) = "寅"

DiZhi(3) = "卯"

DiZhi(4) = "辰"

DiZhi(5) = "巳"

DiZhi(6) = "午"

DiZhi(7) = "未"

DiZhi(8) = "申"

DiZhi(9) = "酉"

DiZhi(10) = "戌"

DiZhi(11) = "亥"

'属相名称

ShuXiang(0) = "鼠"

ShuXiang(1) = "牛"

ShuXiang(2) = "虎"

ShuXiang(3) = "兔"

ShuXiang(4) = "龙"

ShuXiang(5) = "蛇"

ShuXiang(6) = "马"

ShuXiang(7) = "羊"

ShuXiang(8) = "猴"

ShuXiang(9) = "鸡"

ShuXiang(10) = "狗"

ShuXiang(11) = "猪"

'农历日期名

DayName(0) = ""

DayName(1) = "初一"

DayName(2) = "初二"

DayName(3) = "初三"

DayName(4) = "初四"

DayName(5) = "初五"

DayName(6) = "初六"

DayName(7) = "初七"

DayName(8) = "初八"

DayName(9) = "初九"

DayName(10) = "初十"

DayName(11) = "十quot;"

DayName(12) = "十二"

DayName(13) = "十三"

DayName(14) = "十四"

DayName(15) = "十五"

DayName(16) = "十六"

DayName(17) = "十七"

DayName(18) = "十八"

DayName(19) = "十九"

DayName(20) = "二十"

DayName(21) = "廿一"

DayName(22) = "廿二"

DayName(23) = "廿三"

DayName(24) = "廿四"

DayName(25) = "廿五"

DayName(26) = "廿六"

DayName(27) = "廿七"

DayName(28) = "廿八"

DayName(29) = "廿九"

DayName(30) = "三十"

'农历月份名

MonName(0) = ""

MonName(1) = "正"

MonName(2) = "二"

MonName(3) = "三"

MonName(4) = "四"

MonName(5) = "五"

MonName(6) = "六"

MonName(7) = "七"

MonName(8) = "八"

MonName(9) = "九"

MonName(10) = "十"

MonName(11) = "十一"

MonName(12) = "腊"

'公历每月前面的天数

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

'生成当前公历年、月、日 ==> GongliStr

curYear = Year(curTime)

curMonth = Month(curTime)

curDay = Day(curTime)

GongliStr = curYear & "年"

If (curMonth < 10) Then

GongliStr = GongliStr & "0" & curMonth & "月"

Else

GongliStr = GongliStr & curMonth & "月"

End If

If (curDay < 10) Then

GongliStr = GongliStr & "0" & curDay & "日"

Else

GongliStr = GongliStr & curDay & "日"

End If

'生成当前公历星期 ==> WeekdayStr

curWeekday = Weekday(curTime)

WeekdayStr = WeekName(curWeekday)

'计算到初始时间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

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

If (curMonth = (Int(NongliData(m) / 65536) + 1)) Then

curMonth = 1 - curMonth

ElseIf (curMonth > (Int(NongliData(m) / 65536) + 1)) Then

curMonth = curMonth - 1

End If

End If

'生成农历天干、地支、属相 ==> NongliStr

NongliStr = "农历" & TianGan(((curYear - 4) Mod 60) Mod 10) & DiZhi(((curYear - 4) Mod 60) Mod 12) & "年"

NongliStr = NongliStr & "(" & ShuXiang(((curYear - 4) Mod 60) Mod 12) & ")"

'生成农历月、日 ==> NongliDayStr

If (curMonth < 1) Then

NongliDayStr = "闰" & MonName( -1 curMonth)

Else

NongliDayStr = MonName(curMonth)

End If

NongliDayStr = NongliDayStr & "月"

NongliDayStr = NongliDayStr & DayName(curDay)

MsgBox NongliStr & NongliDayStr

End Sub

提起阳历转农历生日转换器，大家都知道，有人问公历生日和农历生日怎么转换的？另外，还有人想问公历日如何查农历？你知道这是怎么回事？其实阴历日期转阳历日期怎么用公年历查，下面就一起来看看有没有软件可以把农历生日导出为公历，希望能够帮助到大家！

阳历转农历生日转换器

现在历转化的软件很多啊，飞雪桌面类等等，但是你说的可能还不行，但是你自己查询也很快啊，就20年嘛，动手吧！

农历转阳历日期查询

准确的说，农历年2月初6是阳历年3月2日。

公历生日转换成农历生日

没有农历星座哦～～

九一八～汗～～你还是小朋友吧，我问你，九一八事变，在哪年你知道不？

勿忘国耻，好好学习呀！农历公历生日转换器。

你的农历生日：八月初六

想知道农历生日如何转换成公历生日？农历阳历转换日期查询。

算是不会，直接看万年历！85年公历9月2日生日换算成阴历是乙丑年甲申月甲辰日农历7月18日

阴历日期转阳历日期怎么用公年历查

农历85年9月2日换成公历是年10月14日

阳历转农历生日转换器：公历生日和农历生日怎么转换的？

你有QQ号吗？农历和公历怎么换算。

在最新版的中农历公历转换工具。

“我的资料”里

只要你输入个日期（不管是农历还是公历）它都能转换成另一种

说也说不明白，你去试试，就明白了！

转换农历生日为公历

用万年历查询你生日那年农历生日对应的公历日，就是你的公历生日呀。公历农历转换表。

很多人过的是公历生日，我么就两个生日都过，哈哈哈公历生日。

公历的固定生日是没有的。如果你有的农历的生日，根据农历生日那样算的话每年的公历生日都是不一样的。

除非以公历做为生日的人，不管农历的。那样就无所谓了农历生日计算器在线。

阳历转农历生日转换器：公历日如何查农历？

知道公历日查农历日期，可以用手机自带日历查询啊，不过 *** 作步骤比较繁琐，而且查询的日期范围比较小。

也可以考虑网络带有公历转换农历功能程序进行在线查询这样会更方便点，可以使用信达利在线排盘系统，通过公历日期可以查农历日期、干支八字、星座等，查询 *** 作图如下：如何查询自己的阴历生日。

Excel 中阳历日期如何转换成阴历日期？

1、电脑打开Excel表格，列好日期。月份和日期对照表。

2、然后在阴历中输入公式=TEXT（A2,”[$-]yyyy-m-d”）。阳阴生日转换器。

3、输入公式后，按回车键就可以把阳历转换为阴历了。

4、下拉复制公式就可以了。常说的生日历还是阳历。

阳历转农历生日转换器：阴历日期转阳历日期怎么用公年历查

手机下个万年历就可以了、如果喜欢点个好评呗

阴历与阳历的生日转换农历生日查询对照表。

每一年的阴历阳历相对应的日子是不固定的，年四月初四那天的阳历日期是年5月10日。如果你要过阳历生日就看当年的日历在5月10日，不必管那天历的几月初几，如果你要历生日，就按当年的阴历四月初四，也不必理会那天的阳历日期是多少号。公历到农历的计算公式。

今年的阳历5月2日是你四月初四的阴历生日，当然要在那天庆生。但是，那不是17周岁的生日，因为周岁是按阳历的。要过17周岁的生日只能在5月10日。1996年9月30日阳历是多少。

你知道吗？按阴历你已经18岁了。（虚岁）

农历：丁丑年四月初四怎样算农历生日。

公历：年5月10日星期六金牛座

信息来源：华中农历网免费农历生辰八字最详细分析。

以上就是与有没有软件可以把农历生日导出为公历相关内容，是关于公历生日和农历生日怎么转换的？的分享。看完阳历转农历生日转换器后，希望这对大家有所帮助！

正如楼主所说：我国农历的确是一门古老而严密的科学。但不能说是统计学。这是一套建立在长期天文观测基础之上，经过严密推算而产生的独特历法。

在我国使用公历之前，是没有什么对应日期可言的，唯一的验证指标就是季节。如农历新年总是在冬末春初，故我国的新年又称春节。

你观察很细，闰月现象让你很感兴趣，并且产生了强烈的研究欲望，正好我也喜欢，就简单地交流几句吧。

一、我国的农历其实是阴历合历，因为它依据回归年周期安排年份，同时又按月相变化确定月份，更依据24节气调节年的长度（设置闰月）以保证月份与季节的大致对应关系。

二、我国天文学家把每年春节后第一次昼夜等长的那一天叫做“春分”，连续两次春分之间的时间叫做一年。长期观测表明，一年的时间为3652422天（天文学上称为回归年）。又将太阳在星空中巡天一周的轨迹（黄道）分为24份，每份15度。以春分时太阳所在的位置称为“春分点”，每隔15度依据物象分别取了一个形象直观的名字，如清明、谷雨、冬至等，这就是24节气。

三、常言说“月有阴晴圆缺”，这里的圆缺就是指月相的周期性变化。月亮有时将整个亮面对着地球，我们就看到了一轮满月，有时则会是一个月牙，有时又完全看不到她。这样的变化周期称为朔望月，长期观测表明，一个朔望月的平均长度为295306天。

四、一般情况下，以12个朔望月为1年，长度为3543672天，比一个回归年少10875天。如果不加调整，每三年大约就要少一个月，不到18年就会相差半年，从而出现季节颠倒。因此，我国古代天文学家就使用了设置闰月的方法对这种可能出现的季节混乱加以调整，使农历日期与季节保持尽可能的对应关系。

五、设置闰月就是在必要时在某一个农历年中多加一个月，此法称为“置闰”，多出来的这个月叫做“闰月”，含有闰月的年份也称为“闰年”。

六、值得称道的是，为了最大限度地保证月份与季节的对应关系，我国农历不是等农历年份与回归年的差别攒够了一个月的时间才置闰，而是按照24节气的交节日期逐月推算，适时安排闰月（以保证冬至永远只出现在农历十一月），从而提高了历法的科学性。

七、闰月的出现没有简单的规律可循。这是因为由于地轴的进动，使得春分点逐年西移，而地球的轨道是椭圆而非正圆，这就造成了以春分点为参考的回归年每年的长度都不相同。同时，由于24节气交节时刻是地球在公转轨道上的位置（而不是地月质心位置）确定的，这就使得两个节气之间的时长也显得杂乱无章。这就使得“19年7闰”等所谓的置闰规律只是一个大概，而非真正的规律。

八、闰月只能依据日、地、月三者的位置关系逐月推算才能安排，而没有简单的规律可循。要设计出能够计算闰月的程序，至少要扎实掌握以下几方面的知识：物理、天文、高等数学、地理、历史等。当然，计算机技术也应当相当熟练。

先说这些吧，祝你成功！

中国农历采用干支纪法排列年份。如甲子为第一年，乙丑为第二年，丙寅为第三年……六十年为一周。一周完了，再由甲子年起，周而始，循环下去。十天干：甲、乙、丙、丁、戊、己、庚、辛、壬、癸；十二地支对应十二生肖

首先点击桌面左下角的开始按钮展开程序列表，步骤截图如下所示：

在展开的程序列表中，找到并点击日历磁贴，步骤截图如下所示：

可以看到默认的情况下的日历，只是显示日期和周几，没有任何节假日和二十四节气等的信息，步骤截图如下所示：

点击界面左下角的更多日历按钮，步骤截图如下所示：

滚动展开的日历列表到最底部，勾选上中国，步骤截图如下所示：

此时我们就可以看到在日期的下面多出了一些信息，有节假日、有二十四节气，是不是很方便，赶快动手设置一下吧！

<%

' 用途：

' 当前日期计算该日期的农历天干地支及当年属相

' ##-------------------------------------------##

Dim objChinaDay

Dim sDay, sWeekDay, sChinaDay, sChinaYear,sChinaAni

Set objChinaDay = New ChinaDay

Call objChinaDayAction("",sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni)

ResponseWrite sDay&" " '当前日期

ResponseWrite sWeekDay&" " '星期

ResponseWrite sChinaYear&" " '农历年份

ResponseWrite sChinaDay&" " '农历日期

ResponseWrite sChinaAni&" " '生肖

' Copyright: 本代码非原创，原作者未知。

'

Class ChinaDay

Dim arrWeekName(7), MonthAdd(11), NongliData(99)

Dim arrTianGan(9), arrDiZhi(11), arrShuXiang(11), arrDayName(30), arrMonName(12)

Dim curTime, curYear, curMonth, curDay, curWeekday

Dim i, m, n, k, isEnd, bit, TheDate

'初始化数据

Sub Class_Initialize()

'-------------------------------------------------------------------------

'定义显示字串

'星期名

arrWeekName(0) = ""

arrWeekName(1) = "星期日"

arrWeekName(2) = "星期一"

arrWeekName(3) = "星期二"

arrWeekName(4) = "星期三"

arrWeekName(5) = "星期四"

arrWeekName(6) = "星期五"

arrWeekName(7) = "星期六"

'天干名称

arrTianGan(0) = "甲"

arrTianGan(1) = "乙"

arrTianGan(2) = "丙"

arrTianGan(3) = "丁"

arrTianGan(4) = "戊"

arrTianGan(5) = "己"

arrTianGan(6) = "庚"

arrTianGan(7) = "辛"

arrTianGan(8) = "壬"

arrTianGan(9) = "癸"

'地支名称

arrDiZhi(0) = "子"

arrDiZhi(1) = "丑"

arrDiZhi(2) = "寅"

arrDiZhi(3) = "卯"

arrDiZhi(4) = "辰"

arrDiZhi(5) = "巳"

arrDiZhi(6) = "午"

arrDiZhi(7) = "未"

arrDiZhi(8) = "申"

arrDiZhi(9) = "酉"

arrDiZhi(10) = "戌"

arrDiZhi(11) = "亥"

'属相名称

arrShuXiang(0) = "鼠"

arrShuXiang(1) = "牛"

arrShuXiang(2) = "虎"

arrShuXiang(3) = "兔"

arrShuXiang(4) = "龙"

arrShuXiang(5) = "蛇"

arrShuXiang(6) = "马"

arrShuXiang(7) = "羊"

arrShuXiang(8) = "猴"

arrShuXiang(9) = "鸡"

arrShuXiang(10) = "狗"

arrShuXiang(11) = "猪"

'农历日期名

arrDayName(0) = ""

arrDayName(1) = "初一"

arrDayName(2) = "初二"

arrDayName(3) = "初三"

arrDayName(4) = "初四"

arrDayName(5) = "初五"

arrDayName(6) = "初六"

arrDayName(7) = "初七"

arrDayName(8) = "初八"

arrDayName(9) = "初九"

arrDayName(10) = "初十"

arrDayName(11) = "十一"

arrDayName(12) = "十二"

arrDayName(13) = "十三"

arrDayName(14) = "十四"

arrDayName(15) = "十五"

arrDayName(16) = "十六"

arrDayName(17) = "十七"

arrDayName(18) = "十八"

arrDayName(19) = "十九"

arrDayName(20) = "二十"

arrDayName(21) = "廿一"

arrDayName(22) = "廿二"

arrDayName(23) = "廿三"

arrDayName(24) = "廿四"

arrDayName(25) = "廿五"

arrDayName(26) = "廿六"

arrDayName(27) = "廿七"

arrDayName(28) = "廿八"

arrDayName(29) = "廿九"

arrDayName(30) = "卅十"

'农历月份名

arrMonName(0) = ""

arrMonName(1) = "正"

arrMonName(2) = "二"

arrMonName(3) = "三"

arrMonName(4) = "四"

arrMonName(5) = "五"

arrMonName(6) = "六"

arrMonName(7) = "七"

arrMonName(8) = "八"

arrMonName(9) = "九"

arrMonName(10) = "十"

arrMonName(11) = "冬"

arrMonName(12) = "腊"

'-------------------------------------------------------------------------

'公差数据定义

'公历每月前面的天数

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

End Sub

'#################################################################

'主要方法 Action

' inDay 输入日期，如果不输入则默认为当前日期

' sDay 中文格式日期

' sWeekDay 周几

' sChinaYear 农历年

' sChinaDay 农历日

' sChinaAni 属相

'#################################################################

Public Function Action(inDay,sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni)

'转换要转换的日期

If inDay="" Or Not IsDate(inDay) Then

'获取当前系统时间

curTime = Now()

Else

curTime = CDate(inDay)

End If

If Datediff("d",curTime,Cdate("1921-2-8"))>0 Then

Exit Function

End If

'生成当前公历年、月、日 ==> sDay

curYear = Year(curTime)

curMonth = Month(curTime)

curDay = Day(curTime)

sDay = curYear&"年"

If (curMonth < 10) Then

sDay = sDay&"0"&curMonth&"月"

Else

sDay = sDay&curMonth&"月"

End If

If (curDay < 10) Then

sDay = sDay&"0"&curDay&"日"

Else

sDay = sDay&curDay&"日"

End If

'生成当前公历星期 ==> sWeekDay

curWeekday = Weekday(curTime)

sWeekDay = arrWeekName(curWeekday)

'计算到初始时间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

'------------------------------------

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

If (curMonth = (Int(NongliData(m) / 65536) + 1)) Then

curMonth = 1 - curMonth

ElseIf (curMonth > (Int(NongliData(m) / 65536) + 1)) Then

curMonth = curMonth - 1

End if

End If

'生成农历天干、地支==> sChinaYear

sChinaYear = "农历"&arrTianGan(((curYear - 4) Mod 60) Mod 10)&arrDiZhi(((curYear - 4) Mod 60) Mod 12)&"年"

'生成属相 == > sChinaAni

sChinaAni = arrShuXiang(((curYear - 4) Mod 60) Mod 12)

'生成农历月、日 ==> NongliDayStr

If (curMonth < 1) Then

sChinaDay = "闰"&arrMonName(-1 curMonth)

Else

sChinaDay = arrMonName(curMonth)

End If

sChinaDay = sChinaDay&"月"

sChinaDay = sChinaDay & arrDayName(curDay)

End Function

End Class

%>

以上就是关于2022年农历二月二十日适合出殡吗丧事办理的程序是什么全部的内容，包括:2022年农历二月二十日适合出殡吗丧事办理的程序是什么、vb程序的农历用什么函数、阳历转农历生日转换器，有没有软件可以把农历生日导出为公历等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！