陰曆農曆轉換器?
在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......餘下全文>>
如何在Excel中轉換陰曆陽曆
可以啊，不過比較複雜。參看excelhome論壇：
http://club.excelhome.net/dispbbs.asp?BoardID=3&ID=26011&replyID=&skin=0
下載裡面的Excel附件。
可能需要註冊一下。
求農曆公曆轉換演算法
程式設計不太懂
傳下來 口訣
乘五除四九加日
雙月間隔三十天。
一二自加整少一，
三五七八十尾前。
具體的演算法你可網上找下資料 百度上很多的 我就不多累贅了的
請問農曆陰曆怎麼算?
首先你和你的同學陰曆生日不一樣的話，那你跟他應該不是一年生的。
陰曆和陽曆沒有什麼具體的換算辦法，你只能去查日曆。
陰曆，以月球繞行地球一週（以太陽為參照物，實際月球執行超過一週）為一月，即以朔望月作為確定歷月的基礎，一年為十二個歷月的一種曆法。
以太陽視運動為依據設定的歷法，叫“太陽曆”，簡稱“陽曆”；月亮為“太陰”，以月亮的視運動規律為依據設定的歷法，稱為“太陰曆”，簡稱“陰曆”。
陰曆定月的依據是月亮的運動規律：月球執行的軌道，名曰白道，白道與黃道同為天體上之兩大圓，以五度九分而斜交，月球繞地球一週，出沒於黃道者兩次，歷二十七日七小時四十三分十一秒半，為月球公轉一週所需的時間，謂之“恆星月”。唯當月球繞地球之時，地球因公轉而位置亦有變動，計前進二十七度餘，而月球每日行十三度十五分，故月球自合朔，全繞地球一週，復至合朔，實需二十九日十二時四十四分二秒八，謂之“朔望月”，習俗所謂一個月，即指朔望月而言。
參考資料：baike.baidu.com/view/23598.htm