1在電腦中打開需要操作的EXCEL表格，如需要將A1的日期轉(zhuǎn)成農(nóng)歷，如下圖所示2點擊上方菜單欄中的開始選項，進(jìn)入下一頁面3點擊右側(cè)的求和選項下拉菜單，選擇“其他函數(shù)”選項，點擊進(jìn)入下一頁面4在彈出的對話框。

sDObj = new Datey，m，i+1 當(dāng)月一日日期 lDObj = new LunarsDObj 農(nóng)歷 lY = lDObjyear 農(nóng)歷年 lM = lDObjmonth 農(nóng)歷月 lD = lDObjday 農(nóng)歷日 lL = lDObjisLeap 農(nóng)歷是否閏月 lX = lL。

如下圖所示，我們在B2輸入公式=nongliA1，即可C列農(nóng)歷簡稱中C1公式是=RIGHTB1，LENB18下面是此自定義函數(shù)相關(guān)的代碼Public Function NongLiOptional XX_DATE As DateDim MonthAdd11， NongliData。

1電腦打開Excel表格，列好日期2然后在陰歷中輸入公式=TEXTA2，quot$yyyymdquot3輸入公式后，按回車鍵就可以把陽歷轉(zhuǎn)換為陰歷了4下拉復(fù)制公式就可以了。

Excel可以實現(xiàn)中陽歷日期轉(zhuǎn)換成陰歷日期，具體操作如下一使用工具excel2010 二操作步驟1假設(shè)A1為陽歷日期，B1為轉(zhuǎn)換后的陰歷日期值，點擊B1單元格輸入以下代碼=CHOOSEMODYEARLEFTTEXTA1，quot$yyyy。

#39 =solarquot200611quot 求陰歷2006年正月初一對應(yīng)的陽歷 #39 =lunarbirthquot197556quot 陰歷生日陽歷1975年5月6日出生，今年陰歷生日時對應(yīng)的陽歷日期 #39 =solarbirthquot197556quot 陽歷生日陽歷197。

簡單版B2單元格就是第一種情況，“2016917”表示農(nóng)歷是九月十七日該公式是=TEXTA2，#39$YYYYMD#39TEXT用來轉(zhuǎn)化文本格式，這個公式的關(guān)鍵是$，它是Excel中陽歷轉(zhuǎn)化農(nóng)歷的參數(shù)，不過。

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。

包含星期計算公歷轉(zhuǎn)農(nóng)歷農(nóng)歷轉(zhuǎn)公歷節(jié)氣查詢數(shù)據(jù)與算法均為原創(chuàng)，絕非網(wǎng)上復(fù)制而來附件中有源代碼，同時附帶農(nóng)歷數(shù)據(jù)提取工具，可提取1600到7000年之間的任意年份區(qū)間，提取后的數(shù)據(jù)為壓縮數(shù)據(jù)，占用空間小，同時數(shù)據(jù)包含。

如何編寫一個這樣的函數(shù)？例如輸入一個日期，便可得出該日期的農(nóng)歷謝謝，有具體的代碼最好！ 用ASP如何得出某一日期的農(nóng)歷？如何編寫一個這樣的函數(shù)？例如輸入一個日期，便可得出該日期的農(nóng)歷謝謝，有具體的代碼最好！ 展開。

20100110 · TA獲得超過526個贊 知道答主 回答量375 采納率0% 幫助的人174萬 我也去答題訪問個人頁 關(guān)注 展開全部 #39下面是一個關(guān)于VB的農(nóng)歷算法#39提供基本計算方法，具體應(yīng)用自己補充#39日期數(shù)據(jù)定義方法如下#39前12。

7 在“Custom format”框中輸入以下代碼$DddMMyyyy $Hmmss $L $W 8 點擊“Apply”按鈕保存設(shè)置，然后關(guān)閉“Taskbar Tweaker”軟件現(xiàn)在，你就可以在Win7任務(wù)欄的時間顯示區(qū)域看到農(nóng)歷星期幾和天氣了。

#39公歷日期轉(zhuǎn)農(nóng)歷 Function GetYLDateByVal strDate As String As String On Error GoTo aErr If Not IsDatestrDate Then Exit Function Dim setDate As Date， tYear As Integer， tMonth As Integer， tDay As。

有轉(zhuǎn)換農(nóng)歷日期的功能，但是無法識別閏月，閏月的年會產(chǎn)生13月這樣的月份公式如圖所示3 另一種轉(zhuǎn)換需vba代碼實現(xiàn)，由于代碼太長無法在這里展示紅框的部分是自定義函數(shù)的轉(zhuǎn)換公式。

NongliDayStr = NongliDayStr quot月quotNongliDayStr = NongliDayStr DayNamecurDayNongLi = NongliStr NongliDayStrEnd Function這是農(nóng)歷代碼計算日期同期的函數(shù) days360 已贊過 已踩過lt 你對這個回答的評價是？ 評論 收起。

flash中有專門的組件用于日歷的，你可以試試，設(shè)置可以在參數(shù)中調(diào)覺得行的話，給我加點分，謝謝。

4Funtouch OS機型可下滑呼出通知欄，在屏幕頂端可查看到農(nóng)歷時間若有更多疑問，可進(jìn)入vivo官網(wǎng)vivo商城APP我的在線客服或者vivo官網(wǎng)網(wǎng)頁版下滑底部在線客服輸入人工客服進(jìn)入咨詢了解。