阴阳历转换表
答案:1 悬赏:60 手机版
解决时间 2021-01-26 18:07
- 提问者网友：回忆在搜索
- 2021-01-26 13:20
阴阳历转换表
最佳答案
- 五星知识达人网友：千杯敬自由
- 2021-01-26 13:26
在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) = 午
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) = 初六&q......余下全文>>1978年阳历阴历对照表 绿色代表为二十四节气日，阳历红色代表为周末，其它加色的为节日。
此表为1978年的日历表、1978年农历表、1978年阴历阳历对照表，含阴阳历、节日、二十四节气等。一九七一年一月阴阳历对照表 下面是一九七一年一月阴阳历对照表。新历农历对照表 万年历换算——阴历阳历转换、公历农历对照表
提供万年历换算查询——智能转换阴历阳历、公历农历对照表！可以同时显示公历、农历、节气、国际……
万年历- 公历农历阴历转换-皇历对照查询- 节气- 干支- 生肖
万年历,农历转换,阴历查询,皇历对照查询,节气,干支,生肖,公历 万年历—阴历(农历)、节气、干支查询 ←【加入收藏夹】 万年历—阴历(农历)、节气、干支查询 0000
阳历与阴历对照阴历阳历对照表照表
本地时间: 中国, 国际换日线, 萨摩亚, 夏威夷, 阿拉斯加, 太平洋, 美国山区, 美加山区, 加拿大中部, 墨西哥, 美加中部, 南美洲太平洋, 美加东部, 美东, 南美洲西部
万年历查询
阳历中红色/绿色表示节假日，农历中绿色表示为24节气日，红色表示为传统节日，蓝色则表示为公众节假日 你的浏览器无法执行此程序。 此程序在IE4 以后的版本才能执行!
阴历阳历对照表
google.com/...0.htmll966年阴阳历对照表阳阴历6月13是阳历的几月几号 万年历
阳历 1966年7月30日 星期六
阴历 六月十三 丙午年【马年】乙未月 庚寅日
1?966年阴历6月13 , 是阳历的1966年7月30日 星期六求农历公历的excel对照表。 10分如果数据在A1单元格，在B1单元格中输入以下公式
=TEXT(A1,[$-130000]yyyy年m月&IF(LEN(--TEXT(A1,[$-130000]dd))=1,初,)&d)详见附图如何在excel表中将阴历生日批量转换成阳历？ 5分将下面面这段代码保存在模块中，就可以用公式 =nongli(A1) 调用了。
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) = 午
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) = 初五&q......余下全文>>公元和万年历对照表 万年历就是公元历的延伸，把公元历向前和向后推出了好多年，不用对照，本来就是一回事，一种历法，真心在帮你期待采纳，如何在Excel中转换阴历阳历 可以啊，不过比较复杂。参看excelhome论坛：
http://club.excelhome.net/dispbbs.asp?BoardID=3&ID=26011&replyID=&skin=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) = 午
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) = 初六&q......余下全文>>1978年阳历阴历对照表 绿色代表为二十四节气日，阳历红色代表为周末，其它加色的为节日。
此表为1978年的日历表、1978年农历表、1978年阴历阳历对照表，含阴阳历、节日、二十四节气等。一九七一年一月阴阳历对照表 下面是一九七一年一月阴阳历对照表。新历农历对照表 万年历换算——阴历阳历转换、公历农历对照表
提供万年历换算查询——智能转换阴历阳历、公历农历对照表！可以同时显示公历、农历、节气、国际……
万年历- 公历农历阴历转换-皇历对照查询- 节气- 干支- 生肖
万年历,农历转换,阴历查询,皇历对照查询,节气,干支,生肖,公历 万年历—阴历(农历)、节气、干支查询 ←【加入收藏夹】 万年历—阴历(农历)、节气、干支查询 0000
阳历与阴历对照阴历阳历对照表照表
本地时间: 中国, 国际换日线, 萨摩亚, 夏威夷, 阿拉斯加, 太平洋, 美国山区, 美加山区, 加拿大中部, 墨西哥, 美加中部, 南美洲太平洋, 美加东部, 美东, 南美洲西部
万年历查询
阳历中红色/绿色表示节假日，农历中绿色表示为24节气日，红色表示为传统节日，蓝色则表示为公众节假日 你的浏览器无法执行此程序。 此程序在IE4 以后的版本才能执行!
阴历阳历对照表
google.com/...0.htmll966年阴阳历对照表阳阴历6月13是阳历的几月几号 万年历
阳历 1966年7月30日 星期六
阴历 六月十三 丙午年【马年】乙未月 庚寅日
1?966年阴历6月13 , 是阳历的1966年7月30日 星期六求农历公历的excel对照表。 10分如果数据在A1单元格，在B1单元格中输入以下公式
=TEXT(A1,[$-130000]yyyy年m月&IF(LEN(--TEXT(A1,[$-130000]dd))=1,初,)&d)详见附图如何在excel表中将阴历生日批量转换成阳历？ 5分将下面面这段代码保存在模块中，就可以用公式 =nongli(A1) 调用了。
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) = 午
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) = 初五&q......余下全文>>公元和万年历对照表 万年历就是公元历的延伸，把公元历向前和向后推出了好多年，不用对照，本来就是一回事，一种历法，真心在帮你期待采纳，如何在Excel中转换阴历阳历 可以啊，不过比较复杂。参看excelhome论坛：
http://club.excelhome.net/dispbbs.asp?BoardID=3&ID=26011&replyID=&skin=0
下载里面的Excel附件。
可能需要注册一下。阳历阴历十二时对照表 阴历阳历二十四
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯