1、你百度“Excel陽歷轉(zhuǎn)農(nóng)歷”可找到，但為什么不用公式直接計(jì)算=TEXTA2，quot$yyyymdquot如你要用VBA ，可寫為Sub 宏1A1 = ApplicationTextA2， quot$yyyymdquotEnd Sub；這個(gè)類也可以從MFC例子中直接提取因?yàn)橛泻枚鄠€(gè)例子源碼，就不貼代碼，直接上圖，工程在附件中用電腦登錄可見，若VS版本低于2008 SP1，請(qǐng)自建工程，然后再添加頭文件和源文件超全資料，一定要采納哦僅供參考 ，提取。

2、2雖然在遇到閏月時(shí)，顯示結(jié)果有點(diǎn)差強(qiáng)人意，如下圖中，2010年2月9日的農(nóng)歷應(yīng)是十二月二十六，但因?yàn)槟悄暧袀€(gè)閏五月，就無辜多出來一個(gè)月了不過總比編代碼要快捷多了，而且閏月也不是天天有3假如把公式改成=。

3、單行帶農(nóng)歷的日期時(shí)間代碼 ltSCRIPT language=JavaScript lt！ function CalConv FIRSTYEAR = 1998LASTYEAR = 2031today = new DateSolarYear = todaygetFullYearSolarMonth = todaygetMonth + 1；農(nóng)歷節(jié)日 *表示放假日var lFtv = new Arrayquot0101*春節(jié)quot，quot0115 元宵節(jié)quot，quot0328 我生日quot，quot0505 端午節(jié)quot，quot0707 七夕情人節(jié)quot，quot0715 中元節(jié)quot，quot0815 中秋節(jié)quot，quot0909 重陽節(jié)quot，quot1208 臘八節(jié)quot，quot1224 小年quot，quot0100*除夕quot；日期標(biāo)準(zhǔn)格式 公歷日期標(biāo)準(zhǔn)格式為2007年2月6日或20070206農(nóng)歷日期標(biāo)準(zhǔn)格式為丁亥年臘月十九日干支歷日期標(biāo)準(zhǔn)格式為丁亥年壬寅月辛未日日期書寫不得以小數(shù)點(diǎn)或頓號(hào)代替年月日，如200726 20072；function RunGLNL var today=new Date var d=new Arrayquot星期日quot，quot星期一quot，quot星期二quot，quot星期三quot，quot星期四quot，quot星期五quot，quot星期六quot var DDDD=todaygetYearlt100 ？ todaygetYear+1900。

4、誰知道農(nóng)歷是怎么個(gè)計(jì)算的方法有函數(shù)最好函數(shù)不要那種有個(gè)與公歷對(duì)應(yīng)的表然后換算的1我不要控件！2不要有公歷農(nóng) 誰知道農(nóng)歷是怎么個(gè)計(jì)算的方法有函數(shù)最好函數(shù)不要那種有個(gè)與公歷對(duì)應(yīng)的表 然后換算的1我不要控件；下面代碼開始lt%#39Option Explicit#39***#39 類名稱ChinaDay#39 用途#39 根據(jù)輸入的日期計(jì)算該日期的農(nóng)歷天干地支及當(dāng)年屬相#39 使用方法#39 第一個(gè)參數(shù)為輸入?yún)?shù)，不填寫默認(rèn)為當(dāng)日，#39 只計(jì)算192128之后的日期#39 #####39 Dim objChi；包含星期計(jì)算公歷轉(zhuǎn)農(nóng)歷農(nóng)歷轉(zhuǎn)公歷節(jié)氣查詢數(shù)據(jù)與算法均為原創(chuàng)，絕非網(wǎng)上復(fù)制而來附件中有源代碼，同時(shí)附帶農(nóng)歷數(shù)據(jù)提取工具，可提取1600到7000年之間的任意年份區(qū)間，提取后的數(shù)據(jù)為壓縮數(shù)據(jù)，占用空間小，同時(shí)數(shù)據(jù)包含；我剛好有資源，這是我原創(chuàng)的程序，里面的數(shù)據(jù)壓縮方式轉(zhuǎn)換參考點(diǎn)等，都是自行設(shè)計(jì)的，能夠準(zhǔn)確地將公歷轉(zhuǎn)農(nóng)歷，將農(nóng)歷轉(zhuǎn)公歷，同時(shí)還提供一個(gè)自行設(shè)計(jì)的農(nóng)歷庫(kù)，附帶例程，還有農(nóng)歷信息提取工具，可以自定義年份區(qū)間1600；1982年的數(shù)據(jù)是0x0a974 0000 1010 1010 0111 0100 表示1982年的4月為閏月，即有第二個(gè)4月，且是閏小月從1月到13月的天數(shù)依次為3029302929閏月3029302929303030不明白百度HI；function RunGLNL var today=new Datevar d=new Arrayquot星期日quot，quot星期一quot，quot星期二quot，quot星期三quot，quot星期四quot，quot星期五quot，quot星期六quotvar DDDD=todaygetYearlt100 ？todaygetYear+1900todaygetYear。

5、自定義函數(shù)，calendar，將此段代碼復(fù)制到模塊中 計(jì)算時(shí)間從21年2月8日到2020年的數(shù)據(jù)可以轉(zhuǎn)換成農(nóng)歷 Option Explicit Dim WeekName7， MonthAdd11， NongliData120， TianGan9， DiZhi11， ShuXiang11；flash中有專門的組件用于日歷的，你可以試試，設(shè)置可以在參數(shù)中調(diào)覺得行的話，給我加點(diǎn)分，謝謝；純ASP代碼之公歷轉(zhuǎn)農(nóng)歷實(shí)現(xiàn)含屬相例子代碼 可以參考這個(gè) asp？stype=1keyword=%C5%A9%C0%FAx=31y=12 以上轉(zhuǎn)自 自由時(shí)空學(xué)習(xí)網(wǎng) 參考資料。

6、2按Alt+F11打開代碼編輯器，3點(diǎn)“插入”“模塊”，4在左側(cè)欄中雙擊模塊，5在右側(cè)的編輯區(qū)中粘貼代碼，6檢查代碼是否報(bào)錯(cuò)變紅，7關(guān)閉代碼編輯器重要說明說明1從這里復(fù)制的代碼，行與行之間會(huì)被。