阴阳历转换查询

在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/...0

l966年阴阳历对照表阳阴历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论坛：

club.excelhome/dispbbs.asp?BoardID=3ID=26011replyID=skin=0

下载里面的Excel附件。

可能需要注册一下。

阳历阴历十二时对照表 阴历阳历二十四

阴阳历转换查询相关文章：