高分悬赏--阳历日期转换成阴历日期的算法

Excel 中阳历日期如何转换成阴历日期？~

1、电脑打开Excel表格，列好日期。


2、然后在阴历中输入公式=TEXT（A2,"[$-130000]yyyy-m-d"）。


3、输入公式后，按回车键就可以把阳历转换为阴历了。


4、下拉复制公式就可以了。

如果写完整这代码,我想要几天.
你说思想,那就不写代码了,很烦忧的.

1 关于农历的知识(ZT)
阳历、阴历、农历
阳历（即公历），是世界上多数国家通用的历法，由"儒略历"修订而成。儒略历是公元前46年，古罗马统帅儒略、恺撒决定采用的历法。
阳历，是以地球绕太阳运动作为根据的历法。它以地球绕太阳一周（一回归年）为一年。一回归年的长度是365.2422日，也就是365天5小时48分46秒，积累4年共有23小时15分4秒，大约等于一天，所以每4年增加1天，加在2月的末尾，得366天，就是闰年。但是4年加1天实际回归年多了44分56秒，积满128年左右就又多算了一天，也就是在400年中约多算了3天。
阳历闰年规定：公元年数可用4整除的，就算闰年；为了要在400年减去多算的3天，并规定公元世纪的整数，即公元年数是100的整数时，须用400来整除的才算闰年，如1600年、2000年、2200年、2400年就是闰年。这样就巧妙地在400年中减去了3天，阳历规定每年都是12个月，月份的大小完全是人为的规定，现在规定每年的1、3、5、7、8、10、12月为大月，每月31天；4、6、9、11月为小月，每月30天；2月平年是28天，闰年是29天。
阴历，是根据月相圆缺变化的周期（即朔望月）来制订的。因为古人称月亮为太阴，所以又有太阴历之称，是纯粹的阴历，我国使用"农历"，一般人叫它"阴历"，那是不对的。农历不是一种纯粹的阴历，而是"阴阳历"。
阴历把月亮圆缺循环一次的时间算做一个月，12个月算做一年。然而月亮圆缺循环一次--一个朔望月，是29天12时44分3秒，比29天多，又比30天少。为方便，阴历把月份分成大月和小月两种，逢单的月是大月30天，逢双的月是小月29天，一年共是354天。
实际上，一个朔望月并不正好等于一个大月和一个小月的平均数--29天半，而是比29天半多44分2.8秒。所以12个朔望月实际上要比354天多8小时48分34秒，30年就要多出11天。因此，阴历30年中就要安插11年闰年，每逢闰年就在12个月多加一天。阴历的闰年是355天。这样，阴历每30年中有19年354天，11年355天，平均一年的长度是354天8小时48分。它的一年比回归年差不多短了11天。3年就短一个多月，17年就要短6个多月了。所以使用这种历时，新年不一定在冬天过，它可以在春天过，也可以在夏天或秋天过。它的惟一好处就是阴历上的每一个日期都可以知道月亮的形状。
阴历作为一种历法，由于它与农业生产和人们的日常生活不相协调，所以当今世界上除了几个伊斯兰教国家因为宗教上的原因仍然使用外，其他国家一般已经废弃不用了。
农历，是把朔望月的时间作为历月的平均时间。这一点上和纯粹的阴历相同，但农历运用了设置闰月的办法和二十四节气的办法，使历年的平均长度等于回归年，这样它就又具有了阳历的成分，所以它比纯粹的阴历好。
现在所有的农历，据说我们的祖先远在夏代（公元前17世纪以前）就使用了这种历法。所以人们又称它为夏历。解放后还仍然叫做夏历，1970年以后我国改称为"农历"。至于"农历"一名的由来，大概因为由于自古以农立国，所以制订历法必须为农业服务。
农历的历月是以朔望月为依据的。朔望月的时间是29日12小时44分3秒（即29.5366日），因此农历也是大月30天，小月29天，但它和纯粹的阴历并不完全一样，因为纯粹的阴历是大小月交替编排的，而农历年大小月是经过推算决定的。
农历每一个月初一都正好是"朔"（即月亮在太阳地球中间，且以黑着的半面对着地球的时候）。有时可能出现两个大月，也可以连续出现两个小月。由于朔望月稍大于29天半，所以在农历的每100个历月里约有53个大月和47个小月。
农历是基本上以12个月作为一年的，但12个朔望月的时间是354.3667日，和回归年比起来要相差11天左右。这样每隔3年就要多出33天，即多出一个多月。
为了要把多余的日数消除，每隔3年就要加一个月，这就是农历的闰月。有闰月的一年也叫闰年。所以农历的闰年就有13个月了。至于闰哪个月是由节气情况决定的。



【二十四节气】



作者： 202.116.24.* 2005-1-22 21:33 回复此发言

--------------------------------------------------------------------------------

2 关于农历的知识(ZT)

我国农历里把节气分得很细，定出了二十四节气，它们的名称大都反应物候、农时或季节的起点与中点。由于节气实际反应太阳运行所引 起的气候变化，故二十四节气为阳历的自然衍生的产物，与阴历无关。

二十四节气中以立春、春分、立夏，夏至、立秋、秋分、立冬与冬至等八节气最为重要。它们之间大约相隔46天。一年分为四季，「立」表示四季中每一个季节的开始，而「分」与「至」表示正处于这季节的中间。

现代我国所使用的历法，皆依回归年制定，二十四节气基本上是一致的，前后的相差不会超过一两天。为了调合回归年(阳历)与朔望月(阴历)之间的差异，农历把二十四节气中，双数的叫中气，单数的叫节气，而且规定每一个中气标定在一个农历的月份，例如雨水必定在正月，春分必定在二月，谷雨必定在三月，其余依此类推。另外，月名也必须和相对应的中气相合。


立春 立是开始的意思，春是蠢动，表示万物开始有生气，这一天春天开始。
雨水 降雨开始，雨水将多。

惊蛰 春雷响动，惊动蛰伏地下冬眠的生物，它们将开始出土活动。
春分 这是春季九十天的中分点，这一天昼夜相等，所以古代曾称春分秋分为昼夜分。

清明 明洁晴朗，气候温暖，草木开始萌发繁茂。
谷雨 雨生百谷的意思。雨水增多，适时的降雨对谷物生长很为有利。

立夏 夏天开始，万物渐将随温暖的气候而生长。
小满 满指籽粒饱满，麦类等夏热作物这时开始结籽灌浆，即将饱满。

芒种 有芒作物开始成熟，此时也是秋季作物播种的最繁忙时节。
夏至 白天最长，黑夜最短，这一天中午太阳位置最高，日影短至终极，古代又称这一天为日北至或长日至。

小暑 暑是炎热，此时还未到达最热。
大暑 炎热的程度到达高峰。

立秋 秋天开始，植物快成熟了。
处暑 处是住的意思，表示暑气到此为止。

白露 地面水气凝结为露，色白，是天气开始转凉了。
秋分 秋季九十天的中间，这一天昼夜相等，同春分一样，太阳从正东升起正西落下。

寒露 水露先白而后寒，是气候将逐渐转冷的意思。
霜降 水气开始凝结成霜。

立冬 冬是终了，作物收割后要收藏起来的意思，这一天起冬天开始。
小雪 开始降雪，但还不多。

大雪 雪量由小增大。
冬至 这一天中午太阳在天空中位置最低，日影最长，白天最短， 黑夜最长，古代又称短日至或日南至。

小寒 冷气积久而为寒，此时尚未冷到顶点。
大寒 天候达到最寒冷的程度





农历为何要设置闰月？

目前我们所用的阳历，是以地球围绕太阳公转一圈为一回归年而制定的，回归年长度是365.2422天。阴历是以月亮的圆缺变化而制定的，一个朔望月的长度是29.53天。农历是以阴历为基础，它的日期既能显示月亮的盈亏变化，又能与公历的四季保持同步。

广东天文学会的专家说，农历一年按12个朔望月计算，只有354.4天，比阳历回归年少10.9天。如果今年不安插闰二月，那么，明年春节就会出现在2005年1月10日。再过几年，农历就会出现“六月飞雪”的现象。为了协调阴历与阳历的季节关系，我国在春秋时代就采用“十九年七闰月”，即在19个回归年（6939.6天）中，农历要安插七个闰月。19个农历年有228个朔望月，再加上七个闰月，就有235个朔望月（6939.7天）。因此，农历19年安插七个闰月，就能使农历的寒暑变化与公历基本一致。

闰月怎样安插最恰当？

闰月怎样安插才最恰当呢？这要从24个节气谈起。24个节气，我国在汉朝就有了。它从立春开始，到大寒结束。从立春数起，逢单数的称为节气，逢双数的称为中气。农历月份是以中气作为标志的。一年中，以春分、夏至、秋分和冬至这四个中气为最重要。我国从1645年起就在没有中气的月份安插闰月，这是合情合理的。因为19个回归年中共有228个中气和235个朔望月，朔望月比中气多七个。因此，有七个朔望月没有中气就自然而然地成为闰月。今年农历闰二月，就只有“清明”一个节气，而没有中气。（

<script type="text/javascript">
var CalendarData=new Array(20);
var madd=new Array(12);
var TheDate=new Date();
var tgString="甲乙丙丁戊己庚辛壬癸";
var dzString="子丑寅卯辰巳午未申酉戌亥";
var numString="一二三四五六七八九十";
var monString="正二三四五六七八九十冬腊";
var weekString="日一二三四五六";
var sx="鼠牛虎兔龙蛇马羊猴鸡狗猪";
var cYear;
var cMonth;
var cDay;
var cHour;
var cDateString;
var DateString;
var Browser=navigator.appName;
function init()
{
CalendarData[0]=0x41A95;
CalendarData[1]=0xD4A;
CalendarData[2]=0xDA5;
CalendarData[3]=0x20B55;
CalendarData[4]=0x56A;
CalendarData[5]=0x7155B;
CalendarData[6]=0x25D;
CalendarData[7]=0x92D;
CalendarData[8]=0x5192B;
CalendarData[9]=0xA95;
CalendarData[10]=0xB4A;
CalendarData[11]=0x416AA;
CalendarData[12]=0xAD5;
CalendarData[13]=0x90AB5;
CalendarData[14]=0x4BA;
CalendarData[15]=0xA5B;
CalendarData[16]=0x60A57;
CalendarData[17]=0x52B;
CalendarData[18]=0xA93;
CalendarData[19]=0x40E95;
madd[0]=0;
madd[1]=31;
madd[2]=59;
madd[3]=90;
madd[4]=120;
madd[5]=151;
madd[6]=181;
madd[7]=212;
madd[8]=243;
madd[9]=273;
madd[10]=304;
madd[11]=334;
}
function GetBit(m,n)
{
return (m>>n)&1;
}
function e2c()
{
var total,m,n,k;
var isEnd=false;
var tmp=TheDate.getYear();
if (tmp<1900) tmp+=1900;

total=(tmp-2001)*365
+Math.floor((tmp-2001)/4)
+madd[TheDate.getMonth()]
+TheDate.getDate()
-23;
if (TheDate.getYear()%4==0&&TheDate.getMonth()>1)
total++;
for(m=0;;m++)
{
k=(CalendarData[m]<0xfff)?11:12;
for(n=k;n>=0;n--)
{
if(total<=29+GetBit(CalendarData[m],n))
{
isEnd=true;
break;
}
total=total-29-GetBit(CalendarData[m],n);
}
if(isEnd)break;
}
cYear=2001 + m;
cMonth=k-n+1;
cDay=total;
if(k==12)
{
if(cMonth==Math.floor(CalendarData[m]/0x10000)+1)
cMonth=1-cMonth;
if(cMonth>Math.floor(CalendarData[m]/0x10000)+1)
cMonth--;
}
cHour=Math.floor((TheDate.getHours()+3)/2);
}
function GetcDateString()
{
var tmp="";
tmp+=tgString.charAt((cYear-4)%10); //年干
tmp+=dzString.charAt((cYear-4)%12); //年支
tmp+="年(";
tmp+=sx.charAt((cYear-4)%12);
tmp+=")";
if(cMonth<1)
{
tmp+="闰";
tmp+=monString.charAt(-cMonth-1);
}
else
tmp+=monString.charAt(cMonth-1);
tmp+="月";
tmp+=(cDay<11)?"初":((cDay<20)?"十":((cDay<30)?"廿":"卅"));
if(cDay%10!=0||cDay==10)
tmp+=numString.charAt((cDay-1)%10);
if(cHour==13)tmp+="夜";
tmp+=dzString.charAt((cHour-1)%12);
tmp+="时";
cDateString=tmp;
return tmp;
}
function GetDateString()
{
var tmp="";
var t1=TheDate.getYear();
if (t1<1900)t1+=1900;
tmp+=t1
+"-"
+(TheDate.getMonth()+1)+"-"
+TheDate.getDate()+" "
+TheDate.getHours()+":"
+((TheDate.getMinutes()<10)?"0":"")
+TheDate.getMinutes()
+" 星期"+weekString.charAt(TheDate.getDay());
DateString=tmp;
return tmp;
}
init();
e2c();
GetDateString();
GetcDateString();
document.write(DateString,"<br>",cDateString);
</script>

阳历日期转农历日期

Option Explicit
Dim TianGan As String
Dim DiZhi As String
Dim ShuXiang As String
Dim TianGanx As String
Dim DiZhix As String
Dim ShuXiangx As String
Dim NongliData(99) As Double
Dim CurTime As Date
Dim curYear, curMonth, curDay
Dim I, M, N, K, isEnd, Bit, TheDate
Private Sub Form_Load()
CurTime = Now()
TianGanx = "甲乙丙丁戊已庚辛壬癸 "
DiZhix = "子丑寅卯辰已午未申酉戊亥 "
ShuXiangx = "鼠牛虎免龙蛇马羊猴鸡狗猪 "

NongliData(0) = 2635
NongliData(1) = 333387
NongliData(2) = 1701
NongliData(3) = 1748
NongliData(4) = 267701
NongliData(5) = 694
NongliData(6) = 2391
NongliData(7) = 133423
NongliData(8) = 1175
NongliData(9) = 396438
NongliData(10) = 3402
NongliData(11) = 3749
NongliData(12) = 331177
NongliData(13) = 1453
NongliData(14) = 694
NongliData(15) = 201326
NongliData(16) = 2350
NongliData(17) = 465197
NongliData(18) = 3221
NongliData(19) = 3402
NongliData(20) = 400202
NongliData(21) = 2901
NongliData(22) = 1386
NongliData(23) = 267611
NongliData(24) = 605
NongliData(25) = 2349
NongliData(26) = 137515
NongliData(27) = 2709
NongliData(28) = 464533
NongliData(29) = 1738
NongliData(30) = 2901
NongliData(31) = 330421
NongliData(32) = 1242
NongliData(33) = 2651
NongliData(34) = 199255
NongliData(35) = 1323
NongliData(36) = 529706
NongliData(37) = 3733
NongliData(38) = 1706
NongliData(39) = 398762
NongliData(40) = 2741
NongliData(41) = 1206
NongliData(42) = 267438
NongliData(43) = 2647
NongliData(44) = 1318
NongliData(45) = 204070
NongliData(46) = 3477
NongliData(47) = 461653
NongliData(48) = 1386
NongliData(49) = 2413
NongliData(50) = 330077
NongliData(51) = 1197
NongliData(52) = 2637
NongliData(53) = 268877
NongliData(54) = 3365
NongliData(55) = 531109
NongliData(56) = 2900
NongliData(57) = 2922
NongliData(58) = 398042
NongliData(59) = 2395
NongliData(60) = 1179
NongliData(61) = 267415
NongliData(62) = 2635
NongliData(63) = 661067
NongliData(64) = 1701
NongliData(65) = 1748
NongliData(66) = 398772
NongliData(67) = 2742
NongliData(68) = 2391
NongliData(69) = 330031
NongliData(70) = 1175
NongliData(71) = 1611
NongliData(72) = 200010
NongliData(73) = 3749
NongliData(74) = 527717
NongliData(75) = 1452
NongliData(76) = 2742
NongliData(77) = 332397
NongliData(78) = 2350
NongliData(79) = 3222
NongliData(80) = 268949
NongliData(81) = 3402
NongliData(82) = 3493
NongliData(83) = 133973
NongliData(84) = 1386
NongliData(85) = 464219
NongliData(86) = 605
NongliData(87) = 2349
NongliData(88) = 334123
NongliData(89) = 2709
NongliData(90) = 2890
NongliData(91) = 267946
NongliData(92) = 2773
NongliData(93) = 592565
NongliData(94) = 1210
NongliData(95) = 2651
NongliData(96) = 395863
NongliData(97) = 1323
NongliData(98) = 2707
NongliData(99) = 265877

curYear = Year(CurTime)
curMonth = Month(CurTime)
curDay = Day(CurTime)

TheDate = DateDiff( "d ", "1921/2/8 ", Date) + 1

isEnd = 0: M = 0
Do
If NongliData(M) < 4095 Then K = 11 Else K = 12
N = K
Do While N > = 0
Bit = NongliData(M)
For I = 1 To N Step 1
Bit = Int(Bit / 2)
Next
Bit = Bit Mod 2
If (TheDate <= 29 + Bit) Then
isEnd = 1
Exit Do
End If
TheDate = TheDate - 29 - Bit
N = N - 1
Loop
If (isEnd = 1) Then Exit Do
M = M + 1
Loop
curYear = 1921 + M
curMonth = K - N + 1
curDay = TheDate

If K = 12 Then
If curMonth = Int(NongliData(M) / 65536) + 1 Then
curMonth = 1 - curMonth
ElseIf (curMonth > (Int(NongliData(M) / 65536) + 1)) Then
curMonth = curMonth - 1
End If
End If

'获得NongLi值
TianGan = Mid(TianGanx, (((curYear - 4) Mod 60) Mod 10) + 1, 1)
DiZhi = Mid(DiZhix, (((curYear - 4) Mod 60) Mod 12) + 1, 1)
ShuXiang = Mid(ShuXiangx, (((curYear - 4) Mod 60) Mod 12) + 1, 1)

If curMonth < 1 Then curMonth = curMonth * -1
Application.StatusBar = "农历: " & curMonth & "月 " & curDay
End Sub

哦..这个啊..我有写好的..你可以先看看是一个jar下载地址在连接里面..源码没有传..但是算法资源有很多都是到2050年的..足够用了吧..

额，我还没动手呢，1楼，2楼就抢了，很好，很强大

都是牛逼人物啊

是不是自己写的呀

---

阳明区19853663133： 高分悬赏,求阳历转阴历的算法,用c实现 - ？
郁逄沉香： 如果写完整这代码,我想要几天.你说思想,那就不写代码了,很烦忧的.1 关于农历的知识(ZT)阳历、阴历、农历阳历(即公历),是世界上多数国家通用的历法,由＂儒略历＂修订而成.儒略历是公元前46年,古罗马统帅儒略、恺撒决定...

阳明区19853663133： 高分悬赏 生日 阳历12月20号变农历是多少？
郁逄沉香： 11月13日

阳明区19853663133： 农历日期和公历日期怎么转换, - ？
郁逄沉香： 我做计算器的,这个就是转化,你看哈嘛! //将日期换算为公历的天数 private int toJulian(){ int jy=year; if(year<0) jy++; int jm=month; if(month>2) jm++; else{ j...

阳明区19853663133： 农历生日转换公历生日!这次我下血本了,高悬赏啊!？
郁逄沉香： 是93年的9月24日周五,【戊申】

阳明区19853663133： 高悬赏求1993年阳历的9月6日农历应该是几月几日？
郁逄沉香： 农历七月二十,绝对没错

阳明区19853663133： 高分悬赏,帮我算下这几年阴历阳历的问题？
郁逄沉香： 1990阴历9月30 公历1990年11月16日 1991阴历9月30 公历1991年11月6日 1992阴历9月30 公历1992年10月25日 1993阴历9月30 公历1993年11月13日 1994阴历9月30 公历1994年11月3日 1995阴历9月30 公历1995年11月22日 如上所示:没有你要的年份!

阳明区19853663133： 阳历1996年7月8日是阴历几月几日?什么星座的?对不起没有悬赏了,帮个忙吧、 - ？
郁逄沉香： 你好,星座是西方人算命的东西,因为西方人没有农历,所以是按阳历,然后再查星座对照表. 阳历1996年7月8日,是巨蟹座. 阳历1996年7月8日,转换为阴历是5月23日,星期一.

阳明区19853663133： 请专家帮忙算算 谢谢了 高分悬赏 急 子时的生日是算哪一天?农历生日怎么算?？
郁逄沉香： 农历7月14日

阳明区19853663133： 高分悬赏~算天数……？
郁逄沉香： 12.14到12.31过了17天 1月31天 2月28天 3月31天 4月30天 5月31天 6月30天 7月到今天2天全部相加 所以 1.1到现在过了183天 总数为200楼下的算法也可以 但是除了点错误 呵呵 7月 31-2=29 8到11月:31 30 31 30 加起来为122 12月:14 所以 365-29-122-14=200

阳明区19853663133： 烦死了、就是搞不懂农历转换成公历怎么算,高分悬赏、？
郁逄沉香： 1.不用烦.这农历转换成公历问题,不是那么容易推算的.连我们这些日日排八字、择吉日的人,通常都要查万年历.2.你说出具体的日期吧,帮你查查.