陰陽曆轉換表?
在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.html
l966年陰陽曆對照表陽陰曆6月13是陽曆的幾月幾號
萬年曆
陽曆 1966年7月30日 星期六
陰曆 六月十三 丙午年【馬年】乙未月 庚寅日
1966年陰曆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附件。
可能需要註冊一下。
陽曆陰曆十二時對照表
陰曆陽曆二十四