陽曆轉陰曆查詢?

General 更新 2024年12月24日

Excel 中陽曆日期如何轉換成陰曆日期？

2007版的excel可用下面公式轉換：

=TEXT(A1,"[$-130000]yyyy年m月"&IF(LEN(--TEXT(A1,"[$-130000]dd"))=1,"初","")&"d")

javascript陽曆轉陰曆方法？

我這裡剛好有這個演算法程式碼，請看：

var LunarDate = { madd: new Array(0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334), HsString: '甲乙丙丁戊己庚辛壬癸', EbString: '子醜寅卯辰巳午未申酉戌亥', NumString: "一二三四五六七八九十", MonString: "正二三四五六七八九十冬臘", CalendarData: new Array(0xA4B, 0x5164B, 0x6A5, 0x6D4, 0x415B5, 0x2B6, 0x957, 0x2092F, 0x497, 0x60C96, 0xD4A, 0xEA5, 0x50DA9, 0x5AD, 0x2B6, 0x3126E, 0x92E, 0x7192D, 0xC95, 0xD4A, 0x61B4A, 0xB55, 0x56A, 0x4155B, 0x25D, 0x92D, 0x2192B, 0xA95, 0x71695, 0x6CA, 0xB55, 0x50AB5, 0x4DA, 0xA5B, 0x30A57, 0x52B, 0x8152A, 0xE95, 0x6AA, 0x615AA, 0xAB5, 0x4B6, 0x414AE, 0xA57, 0x526, 0x31D26, 0xD95, 0x70B55, 0x56A, 0x96D, 0x5095D, 0x4AD, 0xA4D, 0x41A4D, 0xD25, 0x81AA5, 0xB54, 0xB6A, 0x612DA, 0x95B, 0x49B, 0x41497, 0xA4B, 0xA164B, 0x6A5, 0x6D4, 0x615B4, 0xAB6, 0x957, 0x5092F, 0x497, 0x64B, 0x30D4A, 0xEA5, 0x80D65, 0x5AC, 0xAB6, 0x5126D, 0x92E, 0xC96, 0x41A95, 0xD4A, 0xDA5, 0x20B55, 0x56A, 0x7155B, 0x25D, 0x92D, 0x5192B, 0xA95, 0xB4A, 0x416AA, 0xAD5, 0x90AB5, 0x4BA, 0xA5B, 0x60A57, 0x52B, 0xA93, 0x40E95), Year: null, Month: null, Day: null, TheDate: null, GetBit: function(m, n){ return (m >> n) & 1; }, e2c: function(){ this.TheDate = (arguments.length != 3) ? new Date(): new Date(arguments[0], arguments[1], arguments[2]); var total, m, n, k; var isEnd = false; var tmp = this.TheDate.getFullYear(); total = (tmp - 1921) * 365 + Math.floor(乏鼎催刮詘......餘下全文>>

贊助廣告

excel如何農曆轉換陽曆公式

比如今天是2010年9月2日，用以下公式就可以得出農曆七月二十四：

雖然在遇到閏月時，顯示結果有點差強人意，如下圖中，2010年2月9日的農曆應是十二月二十六，但因為那年有個閏五月，就無辜多出來一個月了。不過總比編程式碼要快捷多了吧，而且閏月也不是天天有。

假如把公式改成：=MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(A2,"[$-130000]e")-4,10)+1,1)&MID("子醜寅卯辰巳午未申酉戌亥",MOD(TEXT(A2,"[$-130000]e")-4,12)+1,1)&"年"&TEXT(A2,"[$-130000][DBNum1]m月")&TEXT(A2,IF(--TEXT(A2,"[$-130000]d")=10,"初十",IF(--TEXT(A2,"[$-130000]d")>10,"[$-130000][DBNum1]d","初[$-130000][DBNum1]d")))，那就更像農曆表示法了，不過因為農曆每年開始日期都不一樣，所以函式很難達到十分精確的結果，只能是將就著用。

贊助廣告

萬年曆的c語言程式程式碼包括節假日農曆，農曆轉公曆，公曆農曆查詢某

/* 多格式萬年曆 1.問題設計程式實現多規格列印萬年曆，要求每一橫排列印x個月整數x可取1,2,3,4,6五個選項 2.設計思路設定兩個陣列：一維m陣列存放月份的天數，如m(8)=31，即8月份為31天二維d陣列存放日號，如d(3,24)=11，即3月份第2個星期的星期4為11號其中24分解為十位數字2與個位數字4，巧妙地利用二維陣列存放了三維資訊輸入年號y,m陣列資料通過賦值完成。根據曆法規定，平年二月份為28天；若年號能被4整除且不被100整除，或能被400整除，該年為閏年，二月份為29天則必須把m(2)改為29. 同時，根據曆法，設y年元旦是星期w(取值0-6,0為星期日)，整數w的計算公式為 w={y+[(y-1)/4]-[(y-1)/100]+[(y-1)/400]}%7 []為取整。元旦以後，每增加一天，w增1，當w=7時改為w=0即可。設定三重迴圈i、j、k為d陣列的d(i,j*10+k)賦值。i：1-12，表示月份號；j：1-60 表示每個月約定最多6個星期；k；0-6，表示星期k。從元旦的a=1開始，每賦一個元素， a增1，同時w=k+1。當w=7時，w=0(為星期日)。當a>m(i)時，終止第i月的賦值操作。輸入格式引數x(1,2,3,4,6)，設定4重迴圈控制規格列印： n迴圈，n：1-12/x，控制列印12/x段(每一段x個月)。、 j迴圈，j：1-6，控制列印每月的6個星期(6行)。 i迴圈，i：t--t+x-1,控制列印每行x個月(從第t個月至t+x-1月，t=x(n-1)+1). k迴圈，k：0-6，控制列印每個星期的7天。 */ #include #include void main() { int a,i,j,n,k,t,w,x,y,z; static int d[13][78]; int m[14]={0,31,28,31,30,31,30,31,31,30,31,30,31}; char wst[]="Sun Mon Tue Wed Thu Fri Sat"; puts("Please enter the year: "); scanf("%d",&y); if(y%4==0&&y%100!=0||y%400==0)//閏年的二月為29天 m[2]=29; w=(y+(y-1)/4-(y-1)/100+(y-1)/400)%7;//計算y年元旦為星期w for(i=1;i<=12;i++) { a=1; for(j=1;j<=6;j++) { for(k=0;k<=6;k++) { while(km[i]) break; } if(a>m[i]) break; } } puts......餘下全文>>

農曆和公曆是怎麼轉換的？（怎麼算的？）

你是要口算還是要用筆算？

告訴你，這樣子算不靠譜的，根本算不出來，涉及到的轉換不是簡單的幾個公式能得出，相反，它的轉換相當複雜。

如果有興趣編寫程式的，我可以提供轉換函式庫，呼叫一個函式就可以實現農曆與公曆的互轉了。

目前我已經完美地實現了轉換，如果需要，我可以提供。

求農曆公曆轉換演算法

程式設計不太懂

傳下來口訣

乘五除四九加日

雙月間隔三十天。

一二自加整少一，

三五七八十尾前。

具體的演算法你可網上找下資料百度上很多的我就不多累贅了的

在EXCEL中怎樣把公曆轉換成農曆

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

Dim curTime, curYear, curMonth, curDay, curWeekday

Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr

Dim i, m, n, k, isEnd, bit, TheDate

Private Sub Form_Load()

'獲取當前系統時間

curTime = Now()

'星期名

WeekName(0) = " * "

WeekName(1) = "星期日"

WeekName(2) = "星期一"

WeekName(3) = "星期二"

WeekName(4) = "星期三"

WeekName(5) = "星期四"

WeekName(6) = "星期五"

WeekName(7) = "星期六"

'天干名稱

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) = &q......餘下全文>>

公曆農曆轉換

回曆、公曆、農曆的換算

（128 × 365＋31）日÷ 128年＝ 365．2421875日/年

可見共置閏精度遠高於現代的公曆。

2．換算中一日誤差之訂正

《曆法叢談》以回曆1387年為例，求算合公曆之年月日。

解1：1387 × 0．970224＋621．5774＝1967．278088年

0．278088年 × 365．2422日＝101．569日公曆累計日數為101．57日可視為4月11日或4月12日。究竟是哪一日，當依兩歷在公曆4月11日或12日間所具有同一的星期序數以訂正。

依回曆歲首星期序數計算公式：

[（138－1）×131＋164] ÷30＝6057，餘20

6057÷7＝865，餘 2

故回曆1387年元旦為星期2。（表）

按公曆自1583年元旦（星期六）至1967年4月11日，共歷：

1967－1583＝384年，在這384年中依格列高利曆四年一閏，百年不閏，四百年加一閏日的規則共歷93個閏日，又1967年元旦後一日起至4月11日又需加 100日，則

（384 × 365＋93＋100＋6）÷ 7＝140359＋7＝2001，餘 2餘2即星期2，故回曆1387年元旦在公曆1967年4月11日。

因公曆計算星期日數採用資料較多，計算時難免有所遺漏，現引人公曆日期與星期推算表阿），供參考。

應用此表查詢公元1967年4月11日星期序數步驟如下：

先在本表年份表前二位數字欄目中，查到19二字所在的位置；

再在年份表後二位數字欄目中查到67二字所在位置，自19二字處平行右移，67二字處垂直下移，二者在英文大寫字母欄目中相交於字母G處；

再自月份表欄目中查到4月，自4月所在位置平行左移，查到G在4月欄目所在位置；

自日期欄目查到11日所在位置，自此位置平行右移，使與4月份欄目G在星期表相交處知為星期二，結果與回曆計算所得相同。故知回曆 1387年元旦確為公曆1967年4月11日，而不是12日。

在換算中所得公曆日數常多於31日，甚至常在200—300日或更多，需要將此數化為該年的月日時，可用下列兩表。

表3 公曆月份及其累計日數

三公曆換算為回曆

將回歷換算為公曆的算式移項，整理，即可得到公曆換算為國曆的算式

（公曆紀年一621．5691）÷0．9702＝回曆年月日（儒略曆）……………………………………………（5）

（公曆紀年一621．5774）÷0．970224＝回曆年月日（格氏歷）…………………………………………（6）

無論回曆換算為公曆或相反，大體都有一日之差，以星期序數訂正時，回曆換算為公曆，以回曆的星期序數為準；相反，以公曆的星期序數為準。

四國曆或公曆換算為中國農曆

1．回曆換算為農曆

僅管中國農曆各年在年內月數日數都不是一個相對的穩定值，給回曆與公曆換算為農曆上帶來較多的困難，但仍然可以換算。中國農曆為陰陽合曆，在月份上與回曆同屬太陰曆，惟回曆每月以見新月為一月之始，其日約遲於農歷合朔（初一日）1—2日乃至3日，因此只要查清二者在月份上關係，便可將回歷換算為中國農曆。馬以愚先生稱：“......餘下全文>>

陽曆19001225陽曆轉換為陰曆是幾月幾號

公曆（陽曆）1900年12月25日，星期二，摩羯座。

農曆（陰曆）是庚子年十一月初四，屬鼠。

如何在Excel中轉換陰曆陽曆

可以啊，不過比較複雜。參看excelhome論壇：