陰陽曆轉換表?

General 更新 2024年07月06日

在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日 星期六

陰曆 六月十三 丙午年【馬年】乙未月 庚寅日

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附件。

可能需要註冊一下。

陽曆陰曆十二時對照表

陰曆陽曆二十四

相關問題答案
陰陽曆轉換表?
陰陽曆轉換查詢?
出生陰陽曆轉換查詢?
陰陽曆轉換查詢星座?
陰陽曆轉換?
陰陽曆轉換公式?
星座陰陽曆轉換?
萬年曆陰陽曆轉換查詢?
生日陰陽曆轉換器?
陽曆陰曆轉換表?