农历自动生成日历 在线农历转换

一篇好的文章需要好好的打磨，你现在浏览的文章是一篇关于农历自动生成日历 在线农历转换的文章，本文对文章农历自动生成日历 在线农历转换好好的分析和解答，希望你能喜欢，只有你喜欢的内容存在，只有你来光临，我们才能继续前行。

WPS表格怎么将公历转化成农历日期?

excel公历转农历方法一：使用text函数

假设A列是公历日期，A1是公历日期，我们在B1单元格输入公式：=TEXT(A1,"[$-]yyyy年m月"&IF(LEN(--TEXT(A1,"[$-]dd"))=1,"初","")&"d")，下拉完成公历转农历。

excel公历转农历方法二：使用text+MID函数实现更完整的转换

A列仍然是公历，B1输入公式：

=MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(A1,"[$-]e")-4,10)+1,1)&MID("子丑寅卯辰巳午未申酉戌亥",MOD(TEXT(A1,"[$-]e")-4,12)+1,1)&"年"&TEXT(A1,"[$-][DBNum1]m月d日")

即可。

这里增加了参数[DBNum1]，表示数值以“一、二、三......”中文格式显示。

excel公历转农历方法三：使用text+MID+ CHOOSE+ YEAR函数

A1为公历，B1输入：

=CHOOSE(MOD(YEAR(A1)-1900,10)+1,"庚","辛","壬","癸","甲","乙","丙","丁","戊","己")&CHOOSE(MOD(YEAR(A1)-1900,12)+1,"子","丑","寅","卯"空燃姿,"辰","巳","午","未","申","酉","戌","亥")&TEXT(A1,"[dbnum1][$-]年m月"&IF(--TEXT(A1,"[$-]d")<11,"初","")&TEXT(A1,"[dbnum1][$-]d"))

这里可以对初几进行显示

excel公历转农历方法四：使用自定义函数

上面介绍的excel公历转农历都是使用excel内置函数完成的，有一个弊端就是公式太长，如果使用自定义函数，在公式栏就可以简化输入。

下面是此自定义函数相关的代码：

PublicFunctionNongLi(OptionalXX_DATEAsDate)

DimMonthAdd(11),NongliData(99),TianGan(9),DiZhi(11),ShuXiang(11),DayName(30),MonName(12)

DimcurTime,curYear,curMonth,curDay

DimGongliStr,NongliStr,NongliDayStr

Dimi,m,n,k,isEnd,bit,TheDate

'获取当前系统时间

curTime=XX_DATE

'天干名称

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)="十一"

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)=

NongliData(2)=1701

NongliData(3)=1748

NongliData(4)=

NongliData(5)=694

NongliData(6)=2391

NongliData(7)=

NongliData(8)=1175

NongliData(9)=

NongliData(10)=3402

NongliData(11)=3749

NongliData(12)=

NongliData(13)=1453

NongliData(14)=694

NongliData(15)=

NongliData(16)=2350

NongliData(17)=

NongliData(18)=3221

NongliData(19)=3402

NongliData(21)=2901

NongliData(22)=1386

NongliData(23)=

NongliData(24)=605

NongliData(25)=2349

NongliData(26)=

NongliData(27)=2709

NongliData(28)=

NongliData(29)=1738

NongliData(30)=2901

NongliData(31)=

NongliData(32)=1242

NongliData(33)=2651

NongliData(34)=

NongliData(35)=1323

NongliData(36)=

NongliData(37)=3733

NongliData(38)=1706

NongliData(39)=

NongliData(40)=2741

NongliData(41)=1206

NongliData(42)=

NongliData(43)=2647

NongliData(44)=1318

NongliData(45)=

NongliData(46)=3477

NongliData(47)=

NongliData(48)=1386

NongliData(49)=2413

NongliData(50)=

NongliData(51)=1197

NongliData(52)=2637

NongliData(53)=

NongliData(54)=3365

NongliData(55)=

NongliData(56)=2900

NongliData(57)=2922

NongliData(58)=

NongliData(59)=2395

NongliData(60)=1179

NongliData(61)=

NongliData(62)=2635

NongliData(63)=

NongliData(64)=1701

NongliData(65)=1748

NongliData(66)=

NongliData(67)=2742

NongliData(68)=2391

NongliData(69)=

NongliData(70)=1175

NongliData(71)=1611

NongliData(72)=

NongliData(73)=3749

NongliData(74)=

NongliData(75)=1452

NongliData(76)=2742

NongliData(77)=

NongliData(78)=2350

NongliData(79)=3222

NongliData(80)=

NongliData(81)=3402

NongliData(82)=3493

NongliData(83)=

NongliData(84)=1386

NongliData(85)=

NongliData(86)=605

NongliData(87)=2349

NongliData(88)=

NongliData(89)=2709

NongliData(90)=2890

NongliData(91)=

NongliData(92)=2773

NongliData(93)=

NongliData(94)=1210

NongliData(95)=2651

NongliData(96)=

NongliData(97)=1323

NongliData(98)=2707

NongliData(99)=

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

curYear=Year(curTime)

curMonth=Month(curTime)

curDay=Day(curTime)

GongliStr=curYear&"年"

If(curMonth<10)Then

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

Else

GongliStr=GongliStr&curMonth&"月"

EndIf

If(curDay<10)Then

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

Else

GongliStr=GongliStr&curDay&"日"

EndIf

'计算到初始时间1921年2月8日的天数：1921-2-8(正月初一)

TheDate=(curYear-1921)*365+Int((curYear-1921)/4)+curDay+MonthAdd(curMonth-1)-38

If((curYearMod4)=0AndcurMonth>2)Then

TheDate=TheDate+1

EndIf

'计算农历天干、地支、月、日

isEnd=0

m=0

Do

If(NongliData(m)<4095)Then

k=11

Else

k=12

EndIf

n=k

Do

If(n<0)Then

ExitDo

EndIf

'获取NongliData(m)的第n个二进制位的值

bit=NongliData(m)

Fori=1TonStep1

bit=Int(bit/2)

Next

bit=bitMod2

If(TheDate<=29+bit)Then

isEnd=1

ExitDo

EndIf

TheDate=TheDate-29-bit

n=n-1

Loop

If(isEnd=1)Then

ExitDo

EndIf

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

EndIf

EndIf

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

NongliStr="农历"&TianGan(((curYear-4)Mod60)Mod10)&DiZhi(((curYear-4)Mod60)Mod12)&"年"

NongliStr=NongliStr&"("&ShuXiang(((curYear-4)Mod60)Mod12)&")"

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

If(curMonth<1)Then

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

Else

NongliDayStr=MonName(curMonth)

EndIf

NongliDayStr=NongliDayStr&"月"

NongliDayStr=NongliDayStr&DayName(curDay)

NongLi=NongliStr&NongliDayStr

EndFunction

日历怎么看农历和阳历?

在手机或电脑操作系统自带的日历应用中，通常会默认展示阳历日期。如果想查看农历日期，可以按以下步骤操作：

1. 打开日历应用，进入日历主页。

3. 在设置菜单中，找到“日历类型”或“农历/阳历”选项，勾选“农历”选项。

4. 返回到仔迹日历主页，此时日历上的日期就会自动转换为农历日期。

如果想切换回阳历日期，可以回到设置菜单，取消“农历”选项即可。

万年历日历农历查询,查找万年历和农历转

提起万年历日历农历查询，大家都知道，有人问查找万年念祥历和农历转，另外，还有人想问万年历查询表农历，你知道这是怎么回事？其实万年历农历查询，下面就一起来看看查找万年历和农历转，希望能够帮助到大家！

万年历日历农历查询

1、万年历日历农历查询:查找万年历和农历转

打开手机上的日历，在设置里面选择农历也显示日历日期讲解。

跳到制定日期就可以了万年历查公历农历对照。

或者在网上

http://www..com/s?wd=%C8%D5%C0%FA&word=%C8%D5%C0%FA&tn=&oq=1&rsp=0&f=3

希望对你有所帮助..万年历个人运势查询。

2、万年历日历农历查询:万年历查询表农历

阳历年9月7日星期二农历八月十四日阳历年10月7日星期四农历闰八月十四日

年8月14是阳历9月7号万年历查询对照表。

是10月7号

3、万年历日历农历查询:万年历农历查询

亲查阳历年11月16日历年10月11日。阴历年11月16为阳历年10月十六日，希望采纳，祝您愉快。

4、万年历日历农历查询:万年历好日子查询

万年历好日子查询方法：阳历中红色/绿色表示节假日，农历中绿色表示为24节气日，红色表示为传统节日，蓝色则表示为公众节假日，多功能电子万年历在线查询网,可以查询各种农历节气节日,以及生肖生辰八字黄历等

5、万年历日历农历查询:万年历黄道吉日查询

阴历女的是,6,8阴历男的是,4,4

本月为您二位结婚的吉月–，无不利您的冲日！

年09月份恭候您二位结婚的黄道吉日是：

(您二位任选)万年历为什么农历不显示。

年09月03日星期五农历七月25日冲狗(庚戍)万年历查询黄道吉日吉时。

年09月05日星期日农历七月27日冲鼠(壬子)

年09月12日星期日农历八月05日冲羊(己未)

年09月15日星期三农历八月08日冲狗(壬戍)

年09月17日星期五农历八月10日冲鼠(甲子)

年09月19日星期日农历八月12日冲虎(丙寅)

年09月24日星期五农历八月17日冲羊(辛未)

万年历农历查询

年09月27日星期一农历八月20日冲狗(甲戌)中华万年历农历查询。

年09月29日星期三农历八月22日冲鼠(丙子)

祝愿你们幸福！万年历2023年农历查询。

6、万年历日历农历查询:万年历每天怎么查询

掌心万年历是一款运行在PPC&SmartPhone上的式架构的万年历软件仔哗搏，包含年范围内的公农历查询、历史上的、黄道吉日、支持自定义公农历生日提醒。一款华人必备的软件。。

7、万年历日历农历查询:万年历黄道吉日（婚嫁）查询

男：农历年闰6月25兔

女：农历年3月19兔

中国人婚姻嫁娶的择日原则是，以新娘方芦姿的出生日期为主的，俗话说：“子靠出生时，女靠行嫁年”。根据《择日之女命行嫁大利月》正七迎鸡兔，二八虎合猴，三九蛇共猪，四十龙合狗，牛羊五十一，鼠马六十二。您二位的婚嫁大利月是农历正月、七月。

恭候您二位的结婚黄道吉日是：

（已避开二位生肖冲日）

年1月27日农历01月(大)05日星期五冲蛇(辛巳)煞西

年2月3日农历01月(大)12日星期五冲鼠(戊子)煞北

年2月8日农历01月(大)17日星期三冲蛇(癸已)煞西

年2月9日农历01月(大)18日星期四冲马(甲午)煞南

年2月16日农历01月(大)25日星期四冲牛(辛丑)煞西

年2月21日农历01月(大)30日星期二冲马(丙午)煞南电子万年历不显示怎么维修。

年8月20日农历07月(大)04日星期一冲羊(丁未)煞东

年8月25日农历07月(大)09日星期六冲鼠(壬子)煞北中国万年历。

年9月1日农历07月(大)16日星期六冲羊(己未)煞东

年9月6日农历07月(大)21日星期四冲鼠(甲子)煞北

年9月7日农历07月(大)22日星期五冲牛(乙丑)煞西公元万年历查询。

祝你们幸福！

以上内容是小编精心整理的关于农历自动生成日历 在线农历转换的精彩内容，好的文章需要你的分享，喜欢农历自动生成日历 在线农历转换这篇精彩文章的，请您经常光顾吧！