日期换农历 日期转换为农历

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

公历转农历公式,在EXCEL中怎样把公历转换成农历

提到公历转农历公式，大家都知道，有人问公历农历转换，另外，还有人想问将公历转换成农历的换算公式公式是什么，你知道这是怎么回事？其实农历转换成公历的计算公式，下面就一起来看看在EXCEL中怎样把公历转换成农历，希望能够帮助到大家！

公历转农历公式

原发布者:谭韬君Gonglizuannongli。

农历转换成公历的计算公式？

公历和农历是如何换算的？农历查询。

公历和农历之间是不能换算的，二者采用的计算方法不同，没有特殊关系可以查询，只能分别计算。excel农历转公历公式。

公历是阳历的一种，阳历就是以地球绕太阳公转的运动周期为基础而制定的历法。公历农历转换公式。

公历别称公元、西历、西元等，是一种源自于的纪年方法，由意大利医生兼哲学家Aloysius Lilius对儒略历加以而制成的亩庆吵一种历法。1582年，时任罗马教皇的格列高利十予以批准颁行，以诞生之年作为纪年的开始。公历转化农历简单公式。

公历是一种平均太阳历，只有回归年，不管朔。地球绕差信太阳一周的时间为365.2422天，因此，平均每4年便会少大约1天的时间。

公历转农历公式：公历农历转换

农历也是“历”，又称为夏历、阴历、旧历，是东亚传统历法之一。农历属于一种历，平均历月等于一个朔，但设置闰月以使平均历年为一个回归年，设置二十四节气以反映季节(太阳直射点的周年运动)的变化特征，所以又有阳历的成分。公历农历月份转换公式。

平年十二个月，大月三十天，小月二十九天，全年354天或355天。由于每年的天数比太阳年约差十一天，所以采用设置闰月的方法使这几年的平均日数尽。农历和公历换算的公式。

和阴历一样，在19年里中设置了7个闰月。不过和阴历不同的是，又根据太阳的位置，把一个太阳年分成二十四个节气，以利于农业种植等活动。纪年用天干地支搭配，六十年周而复始。这种历传创始于夏代，所以又称为夏历。也叫旧历。

这就导致了农历和阴历的起迅侍始月份不一样，阴历是以正月初一为一年的起点，而农历是按24节气来划分的，也就是说立春是农历的起点。公历换算农历公式。

阳历就是太阳历，是以地球绕太阳公转的运动周期为基础而制定的历法。一年12个月，这个“月”实际上与朔无关，月份、日期都与太阳在黄道上的位置较好地合，在一年中可以明显看出四季寒暖变化的情况。公历农历 公式。

阴历，又称太阴历，是以月球绕行地球一周为一个月，即以朔作为确定历月的基础的一种历法。农历转公历转换器。

因朔较之回归年易于观测，远古的历法几乎都历。但是朔的长度(29.5306日)为一个月的平均值，全年12个月，同回归年(365.2422日)相差约10日21时，所以，需要设置闰月，三年闰一个月，五年闰二个月，十九年闰七个月。公历农历转换。

农历公历生日转换器?

农历公历生日转换器是一种可以将农历日期转换为公历日期的工具，也可以将公历日期转换为农历日期。这种工具非常方便，兄羡特别是当你想要标注一个重要的传统节日或者大家都能够理解的生日，而不必担心因为使用了不同的历法而引发误会。此外，还有搭塌很多地方可以找到这种工具，包括各大应用商店、社交媒体平台、在线差异化平台羡枝拍以及相应的官方网站上都能找到相应的已安装好的版本。

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

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