公历转农历EXCEL宏讲解

合集下载

excel公历转农历的四种方法

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

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

excel公历转农历方法二：使用text+MID函数

A列仍然是公历，B1输入公式：=MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(A1,"[$-13 0000]e")-4,10)+1,1)&MID("子丑寅卯辰巳午未申酉戌亥",MOD(TEXT(A1,"[$-130000]e")-4, 12)+1,1)&"年"&TEXT(A1,"[$-130000][DBNum1]m月d日"即可。

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

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

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

excel制作周历农历阳历转换

步骤一，在Excel工作表界面下按组合键打开VBA窗口，进入VBA编辑环境，在其窗口的菜单栏上依次单击“插入”→“模块”，可在当前VBA工程中插入模块，并直接进入此模块的代码编辑区域。可在此编辑区域中输入自定义函数的程序代码,如图：

Public Function NongLi(Optional XX_DATE As Date)

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

Dim curTime, curYear, curMonth, curDay

Dim GongliStr, NongliStr, NongliDayStr

Dim i, 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) = "午"

公历转农历的函数公式

函数名称：gregorian_to_lunar(year, month, day)

1.首先，我们需要准备一个农历数据表，其中记录了每年农历的月份、日期、以及对应的公历日期。

2. 接下来，我们可以根据给定的公历日期(year, month, day)计算

出自公历公元年（如公元1年）到给定年份的总天数，以及给定月份之前

的总天数。

3.然后，我们需要根据计算出的天数以及农历数据表，找到与给定公

历日期对应的农历日期。

4.最后，我们可以将找到的农历日期返回。

以下是具体的函数实现：

```python

def gregorian_to_lunar(year, month, day):

#农历数据表

lunar_data =

[2635,1,1,1900,1,31],[2692,2,1,1900,2,30],...

#其他农历数据

#计算自公历公元年（如公元1年）到给定年份的总天数

total_days = 0

for i in range(1, year):

if is_leap_gregorian(i):

total_days += 366

else:

total_days += 365

#计算给定月份之前的总天数

for i in range(1, month):

if i == 2 and is_leap_gregorian(year):

total_days += 29

else:

total_days += get_month_length(i)

#在农历数据表中查找与给定公历日期对应的农历日期lunar_month = 0

在excel中实现阳历转化阴历

Public Function NongLi(Optional XX_DATE As Date)

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

Dim curTime, curYear, curMonth, curDay

Dim GongliStr, NongliStr, NongliDayStr

Dim i, 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) = "午"

excel公历转农历的四种方法

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

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

excel公历转农历方法二：使用text+MID函数

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

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

阳历转阴历

1.虽然EXCEL中没有专门的阴阳历转换函数，却保留了一种格式“[$-130000]”，

可以将阳历转换为阴历，如图使用文本函数TEXT，使用此格式，就可以进行转换：=TEXT(A1,"[$-130000]yyyy年m月d")

2.不过这样转换出来的阴历不符合我国使用习惯，再加个格式，转换成汉字：

=TEXT(A1,"[$-130000][dbnum1]yyyy年m月d")

3.当阴历日小于等于“十”时习惯在前面加个“初”字，才比较顺口，所以再增

加个条件判断：=TEXT(A1,"[$-130000][dbnum1]yyyy年m月"&IF((--TEXT(A1,"[$-130000]d"))<11,"初","")&"d")

4.当阴历为“一月”时，习惯上不称之为“一月”，而称为“正月”，这样就需

要对月份也进行判断，当月份为“一”时，将之改为“正”，不过使用条件函

数判断，公式会较长，也可以直接使用替换函数，将“一月”替换为“正月”，但是因为“一月”、“十一月”的后两个字都是“一月”，直接替换会出错，所以我们可以将“年”也带进去，将“年一月”的替换为“年正月”：=SUBSTITUTE(TEXT(A1,"[$-130000][dbnum1]yyyy年m月"&IF((--TEXT(A1,"[$-130000]d"))<11,"初","")&"d"),"年一月","年正月")

5. 5

另外，习惯上将“十二月”称为“腊月”，可以再加个替换：=SUBSTITUTE(SUBSTITUTE(TEXT(A1,"[$-130000][dbnum1]yyyy年m月"&IF((--TEXT(A1,"[$-130000]d"))<11,"初","")&"d"),"年一月","年正月"),"十二月","腊月")

如何在excel中实现阳历转化阴历

步骤一，在Excel工作表界面下按<ALT+F11>组合键打开VBA窗口，进入VBA编辑环境，在其窗口的菜单栏上依次单击“插入”→“模块”，可在当前VBA工程中插入模块，并直接进入此模块的代码编辑区域。可在此编辑区域中输入自定义函数的程序代码,如图：

Public Function NongLi(Optional XX_DATE As Date)

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

Dim curTime, curYear, curMonth, curDay

Dim GongliStr, NongliStr, NongliDayStr

Dim i, 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) = "辰"

公历与农历自动转化表格

公历与农历自动转化表格公历与农历的转换涉及到农历的闰月和年份的差异，因此需要使用一些特殊的计算方法。以下是一个简单的公历与农历自动转化的表格，你可以在Excel等表格软件中使用：

在这个表格中，"公历日期"列是公历日期，"农历日期"列是对应的农历日期。请注意，这只是一个简化的示例，实际上，要实现精确的公历与农历转化可能需要使用专业的农历计算库或算法。

如果你需要实现更复杂的公历与农历转化功能，建议使用专业的日期计算库或在线工具，这样可以确保准确性和可靠性。

1/ 1

一键转换，公历转农历只要一个公式，超简单

⼀键转换，公历转农历只要⼀个公式，超简单私信回复关键词【学⼀招】，⼀次性 Get 学⼀招合集！助你成为⾼效职场⼈！

分不清「公历」和「农历」的烦恼⽆处不在。

⽐如从⼩只过「公历」⽣⽇的⼩ E，⾝边有⼀⼤群只过「农历」⽣⽇的朋友。每次⼩ E 都要翻

N 遍黄历，以确保不在错误的时间送上祝福。

还有过年放假，家⾥⼈总说「初三去⼤姨那⼉拜年，初四去⼤姑家」。⼩E只能看着台历，从⼤

年三⼗数到正⽉初三。

再⽐如⼀直认为农历七⼣指的是 7 ⽉ 7 ⽇。

……

如果你也有类似的烦恼，那么今天要学的这⼀招，⼀定能帮上你——⽤ Excel 将公历转农历！

公历转农历只需要⼀个简单的公式：

=TEXT(A2,'[$-130000]yyyy-m-d')

其中，A2 表⽰要转化的公历⽇期；

yyyy-m-d 表⽰输⼊⽇期的格式；

[$-130000] 是表⽰公历转阴历的特殊参数。

操作⽅法：

❶先点选单元格，输⼊上述公式：

❷输⼊完公式后，只要按下【回车】键，再双击单元格右下⾓的「填充柄」，快速填充，对应

的农历⽇期就全部转换完成！

例如：今天是公历 2019/7/3，那么对应的农历⽇期就为 2019-6-1：

美中不⾜的是，该公式只适⽤于 Excel 2010 以上的版本，且⽆法计算出闰⽉。

excel中农历国历的相互转换方法及代码

打开相应的excel表格，按Alt+F11打开VBA编辑器，点击插入—插入模块，将下面代码粘贴上去，点击保存后关闭该窗口。接着在相应单元格调用下面四个函数即可实现相应的功能了。

适用于1901-2100年间

=lunar("2006-11-1") 求阳历2006-11-1日对应的阴历

=solar("2006-1-1") 求阴历2006年正月初一对应的阳历

=lunarbirth("1975-5-6") 阴历生日:阳历1975年5月6日出生,今年阴历生日时对应的阳历日期

=solarbirth("1975-5-6") 阳历生日:阳历1975年5月6日出生,今年阳历生日时对应的阳历日期

1.'阴阳历转换和阴阳历生日

2.'Version: 1.1 2005-9-1

3.'Author: James Zhuang

4.'Lunar(SolarDate[, Part = 0 | 1 | 2 | 3]) 阳历转换成阴历

5.' Part = 0, all; Part = 1, lunar year; Part = 2, lunar

month; Part = 3, lunar day

6.'Solar(LunarDate[, LunarMonth = 0 | 1]) 阴历转换成阳历

7.Type ConvDataA

8. leapmonth As Integer

9. month(1 To 13) As Integer

10. sp_month As Integer 'Solar month of Spring Festival

Excel中公历转农历的使用方法

1.新建一个Excel文件

2.将Excel加载宏.xlam文件放到Excel安装的一个目录下

3.打开刚才新建的Excel文件点击文件->选项->自定义功能区

5.勾选右侧的开发工具，点击确定

6.返回Excel主界面，打开开发工具工具栏

8.点击加载项->浏览找到Excel加载宏.xlam文件，点击确定。9.

10.使用方法：采用自定义功能函数进行转换，在公式->插入函数->选择用户定义

->MYOlddate函数；

11.选择第一个日期，此时生成农历日期，向下拖动，生成一列

excel国历转农历表格

要将Excel中的公历日期转换为农历日期，通常需要使用宏或

公式来实现。以下是一种常见的方法：

1. 首先，你需要在Excel中安装农历插件或者使用VBA宏来实

现公历到农历的转换。如果你不熟悉VBA，可以在网上搜索并下载

农历插件，然后安装到Excel中。

2. 一旦安装好了插件或者准备好了VBA宏，你就可以使用公历

日期的单元格作为输入，然后在相应的农历日期单元格中得到转换

后的结果。

3. 如果你选择使用VBA宏，你可以编写一个简单的VBA函数来

实现公历转农历的功能。这需要一定的VBA编程知识，但是一旦编

写完成，你就可以在Excel中直接调用这个函数来实现日期的转换。

4. 另一种方法是使用在线的农历转换工具，将公历日期转换为

农历日期，然后手动输入到Excel中。这种方法虽然不够自动化，

但对于简单的转换任务可能会更加方便。

总之，要在Excel中将公历日期转换为农历日期，你可以选择安装插件、编写VBA宏或者使用在线工具来实现。希望这些方法能够帮到你。

excel公历转农历试了一下，不对

excel公历转农历试了⼀下，不对

尽管通过很多渠道可以轻松获取公历转农历，但是对excel迷们还是很期待⽤excel来实现公历转农历。

设想⼀下，IT部落窝会员们的信息都是以阳历注册的，我们也可以使⽤下⾯即将介绍的⽅法实现excel公历转农历。excel公历转农历⽅法⼀：使⽤text函数

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

excel公历转农历⽅法⼆：使⽤text+MID函数

A列仍然是公历，B1输⼊公式：=MID("甲⼄丙丁戊⼰庚⾟壬癸",MOD(TEXT(A1,"[$-130000]e")-

4,10)+1,1)&MID("⼦丑寅卯⾠巳午未申⾣戌亥",MOD(TEXT(A1,"[$-130000]e")-4,12)+1,1)&"年"&TEXT(A1,"[$-130000] [DBNum1]m⽉d⽇"即可。

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

A1为公历，B1输⼊：=CHOOSE(MOD(YEAR(A1)-

1900,10)+1,"庚","⾟","壬","癸","甲","⼄","丙","丁","戊","⼰")&CHOOSE(MOD(YEAR(A1)-

1900,12)+1,"⼦","丑","寅","卯","⾠","巳","午","未","申","⾣","戌","亥")&TEXT(A1,"[dbnum1][$-130000]年m⽉"&IF(--TEXT(A1,"[$-130000]d")<11,"初","")&TEXT(A1,"[dbnum1][$-130000]d"))

Excel自定义求农历函数——nongli(公历日期,显示序号)

Option Base 1

Dim rq As Integer '日期

Dim y As Date '农历正月月初一的阳历日期

Dim yts As Variant '农历每月的天数

Dim yy(2) As Integer '农历闰月数、阳历闰年数（闰年为1，不闰年为0）

Dim nl(3, 385) As String '阳历日期字符串、农历日期字符串、农历闰月字符串

Function NONGLI(glrq As Date, nlr As Integer)

Dim X As Integer, i As Integer, k As Integer, n1 As Integer, n2 As Integer

X = Year(glrq)

If X < 1900 Or glrq > #1/28/2101# Then

NONGLI = "？"

Exit Function

End If

'1、将X年的阴阳历等，通过运行程序2，装入数组

If X < 2021 Then Call Array1(X, n1, glrq)

If X > 2020 Then Call Array2(X, n1, glrq)

'2、查找阳历日期所在数组的序号rq

di2bu: rq = 0

If X = 1899 Then

rq = Day(glrq)

Else

For i = 1 To n1

If nl(1, i) = glrq Then rq = i: Exit For

Next i

End If

'3、填写"农历日期"(包括节日、纪念日)

EXCEL公历日期转农历日期方法

方法1：使用EXCEL内置函数Text---返回日期的阿拉伯数字的农历年月日

在A1单元格输入公历日期如 2001-11-30

在B1单元格

•按照阿拉伯数字的日期格式显示转换后的农历日期，在B1单元格输入转农历公式：=TEXT(A1,"[$-130000]yyyy-mm-dd")

回车显示农历日期 2001-10-16

•按照中文年月的日期格式显示转换后的农历日期，在B1单元格输入转农历公式：=TEXT(A1,"[$-130000]yyyy年m月"&IF(LEN(--TEXT(A1,"[$-130000]dd"))=1,"初

","")&"d")

回车显示农历日期 2001年10月16

方法2：使用EXCEL自定义函数

上面介绍的Text函数是Excel内置函数，如果要显示农历的天干地支等信息，用内置函数公式写得就会很长，这种情况下，可以使用自定义函数，在公式栏就可以简化输入。

我们可以自定义函数Lunardate, 用以实现在A1单元格输入公历日期如 2001-11-30

在B2输入公式：=Lunardate(A2)，回车显示农历日期农历辛巳年(蛇)十月十六

在Excel中设定自定义函数Lunardate的步骤：

1.按“Alt+F11”快捷键，出现如下图的空白窗，在框体 1处，粘贴Lunardate的程序（见下面

的详细程序），粘贴完毕，点击右上角的2处十字叉关闭关闭框，再点击左上角的3处的E xcel图标回到Excel的工作表。

2.要粘贴的程序如下：

Public Function Lunardate(Optional XX_DATE As Date)

excell农历和公历转换公式

Excel是一款功能强大的电子表格软件，它不仅可以用于数据统计和分析，还可以进行日期转换，包括农历和公历的转换。在Excel中，我们可以使用一些公式来实现农历和公历的转换。下面将介绍一些常用的Excel公式，帮助大家在农历和公历之间进行转换。

一、农历转公历公式

农历转公历是指将农历日期转换为公历日期。在Excel中，可以使用以下公式来实现农历转公历的计算：

```

=DATE(YEAR(公历日期), 2, 1) + 农历天数 - 1

```

其中，公历日期是指要转换的公历日期，农历天数是指要转换的农历日期对应的天数。通过这个公式，我们可以将农历日期转换为公历日期。

二、公历转农历公式

公历转农历是指将公历日期转换为农历日期。在Excel中，可以使用以下公式来实现公历转农历的计算：

```

=公历日期 - DATE(YEAR(公历日期), 2, 1) + 1

```

其中，公历日期是指要转换的公历日期。通过这个公式，我们可以将公历日期转换为农历日期。

三、应用示例

下面通过一个示例来演示如何在Excel中进行农历和公历的转换。

假设我们要将农历2022年正月初一转换为公历日期。首先，我们需要知道农历2022年正月初一对应的公历日期是什么。根据农历日历，我们知道2022年的农历正月初一对应的公历日期是2月1日。

接下来，我们可以使用上述的公式来进行转换。在一个单元格中输入农历日期2022/1/1，然后在另一个单元格中输入以下公式：

```

=DATE(YEAR(A1), 2, 1) + A1 - 1

公历转农历EXCEL宏讲解

excel公历转农历的四种方法

excel制作周历 农历阳历转换

公历转农历的函数公式

在excel中实现阳历转化阴历

excel公历转农历的四种方法

阳历转阴历

如何在excel中实现阳历转化阴历

公历与农历自动转化表格

一键转换，公历转农历只要一个公式，超简单

excel中农历国历的相互转换方法及代码

Excel中公历转农历的使用方法

excel国历转农历表格

excel公历转农历试了一下，不对

Excel自定义求农历函数——nongli(公历日期,显示序号)

EXCEL公历日期转农历日期方法

excell农历和公历转换公式

excel制作周历农历阳历转换