摘自：星期、干支、二十八宿计算公式打印本页关闭本窗口1. 求星期公式星期=[5+A（实际天数）]mod 72. 干支计算公式六十甲子干支序号，从1->59->0六十甲子干支序号=[23+A（实际天数）]mod 603. 二十八宿计算公式二十八宿序号=[23+A （实际天数）]mod 284. 实际天数A的计算A=B（基本天数）+C（闰日天数）B=（计算年-1）*365+（要计算到年的月日天数）例：1984 年 2 月 1 日的基本天数 B=（1984-1）*365+（31+1）=723827（天）, 其中，31是1月为31天，1为2月1日为1天公元308年8月28日的基本天数B=（308-1）*365+（31+28+31+30+31+30+31+27）=112055+239=112294天） 这里的（要计算到年的月日天数），用的是公历，月日天数的规则我好 象小学就学过了哈哈……C=（计算年-1） div 4 -误差修正值+ fixValue2 fixValue2为0或者1常值为0，当年数为闰年（公历闰年法）之中的3月 1日之后的为1误差修正值推算：公元元年1月1日至1582年10月14日为0。
1582年10月15日至1699年12月31日为10从1701年1月1日起每增加一个世纪累加1，但能被400除尽的世纪不累 加1此方法推算即可有一个问题，1700年这一年的修正值应为多少呢？算法中正好没有 讲到，但看来应该是10例1701年1月1日起误差值为11，而1801年1月1日起误差修正值为12, 而1901年1月1日起误差修正值为13，但2001年误差修正值仍为13，因为2000年能被400整除，故不累加而 2101年1月1日起误差修正值为145. 实例：1998.3.15的星期、干支与二十八宿B=（1998-1）*365+（31+28+15）=728979C=（1998-1） div 4 - 13 + 0 = 486A=B+C=728979+486=729465星期序号=（5+729465） mod 7=0，即为星期日干支序号=（13+729465） mod 60=58，即为辛酉二十八宿序号=(23+729465) mod 28=4,即为房好可怕！还有一些其它公式……但好象有些参数不知道怎么得到：二十四节交节日算法：用已知年的交接时辰加上22个小时35分，超过24要减去24，分数足60 进1个小时，即得到8年后的各节交节时辰。
如2000年雨水交节时辰为16时22分，则2008年雨水交节时辰为14时52 分因为16时22分+22时35分=38时57分38-24=14时谁知道公元元年到公元八年的交节日，这个算法就可以实现了好象逆算法可以解决这个问题谁试试？农历闰月算法：农历中，二十四节气(十二节气和十二中气)的中气落在月末的话，下个月就没有中气农历将这种有节(节气)无气(中气)的月份规定为闰月平均计算，19年有七个闰月但二十四个节气的十二节气和十二中气是怎么分的呢？我没有资料， 估记应该是一节气一中气这样交叉unit CNYear;interfaceuses sysutils;type TCNDate = Cardinal;function DecodeGregToCNDate(dtGreg:TDateTime):TCNDate;functionGetGregDateFromCN(cnYear,cnMonth,cnDay:word;bLeap:Boolean=Fal se):TDateTime;function GregDateToCNStr(dtGreg:TDateTime):String;function isCNLeap(cnDate:TCNDate):boolean;implementationconst cstDateOrg:Integer=32900; //公历 1990-01-27 的 TDateTime 表示对应农历1990-01-01const cstCNYearOrg=1990;const cstCNTable:array[cstCNYearOrg..cstCNYearOrg + 60] ofWORD=( // unsigned 16-bit24402, 3730, 3366, 13614, 2647, 35542, 858, 1749, //199723401, 1865, 1683, 19099, 1323, 2651, 10926, 1386, //200532213, 2980, 2889, 23891, 2709, 1325, 17757, 2741, //201339850, 1490, 3493, 61098, 3402, 3221, 19102, 1366, //20212773, 10970, 1746, 26469, 1829, 1611, 22103, 3243, //20291370, 13678, 2902, 48978, 2898, 2853, 60715, 2635, //20371195, 21179, 1453, 2922, 11690, 3474, 32421, 3365, //20452645, 55901, 1206, 1461, 14038); //2050//建表方法：// 0101 111101010010高四位是闰月位置，后12位表示大小月，大月30 天，小月29天，〃闰月一般算小月，但是有三个特例2017/06,2036/06,2047/05〃对于特例则高四位的闰月位置表示法中的最高为设置为1特殊处理 用 wLeapNormal 变量// //2017/06 28330->61098 2036/06 27947->60715 2047/05 23133->55901〃如果希望用汇编，这里有一条信息:农历不会滞后公历2个月.//将公历转换为农历//返回:12位年份+4位月份+5位日期function DecodeGregToCNDate(dtGreg:TDateTime):TCNDate;variDayLeave:Integer;wYear,wMonth,wDay:WORD;i,j:integer;wBigSmallDist,wLeap,wCount,wLeapShift:WORD;label OK;beginresult := 0;iDayLeave := Trunc(dtGreg) - cstDateOrg;DecodeDate(IncMonth(dtGreg,-1),wYear,wMonth,wDay);if (iDayLeave < 0) or (iDayLeave > 22295 )then Exit;//Raise Exception.Create('目前只能算 1990-01-27 以后的')；//Raise Exception.Create('目前只能算 2051-02-11 以前的')；for i:=Low(cstCNTable) to High(cstCNTable) do begin wBigSmallDist := cstCNTable[i];wLeap := wBigSmallDist shr 12;if wLeap > 12 then beginwLeap := wLeap and 7;wLeapShift := 1;end elsewLeapShift := 0;for j:=1 to 12 do beginwCount:=(wBigSmallDist and 1) + 29;if j=wLeap then wCount := wCount - wLeapShift;if iDayLeave < wCount then beginResult := (i shl 9) + (j shl 5) + iDayLeave + 1;Exit;end;iDayLeave := iDayLeave - wCount;if j=wLeap then beginwCount:=29 + wLeapShift;if iDayLeave < wCount then beginResult := (i shl 9) + (j shl 5) + iDayLeave + 1 + (1 shl 21);Exit;end;iDayLeave := iDayLeave - wCount;end;wBigSmallDist := wBigSmallDist shr 1;end;end;//返回值：// 1位闰月标志+ 12位年份+4位月份+5位日期(共22位)end;function isCNLeap(cnDate:TCNDate):boolean;beginresult := (cnDate and $200000) <> 0;end;functionGetGregDateFromCN(cnYear,cnMonth,cnDay:word;bLeap:Boolean=Fal se):TDateTime;vari,j:integer;DayCount:integer;wBigSmallDist,wLeap,wLeapShift:WORD;begin// 0101 010010101111高四位是闰月位置，后12位表示大小月，大月30天，小月29天，DayCount := 0;if (cnYear < 1990) or (cnYear >2050) then beginResult := 0;Exit;end;for i:= cstCNYearOrg to cnYear-1 do begin wBigSmallDist := cstCNTable[i];if (wBigSmallDist and $F000) <> 0 then DayCount := DayCount + 29;DayCount := DayCount + 12 * 29;for j:= 1 to 12 do beginDayCount := DayCount + wBigSmallDist and 1;wBigSmallDist := wBigSmallDist shr 1;end;end;wBigSmallDist := cstCNTable[cnYear];wLeap := wBigSmallDist shr 12;if wLeap > 12 then beginwLeap := wLeap and 7;wLeapShift := 1; //大月在闰月.end elsewLeapShift := 0;for j:= 1 to cnMonth-1 do beginDayCount:=DayCount + (wBigSmallDist and 1) + 29;if j=wLeap then DayCount := DayCount + 29;wBigSmallDist := wBigSmallDist shr 1;end;if bLeap and (cnMonth = wLeap) then //是要闰月的吗？DayCount := DayCount + 30 - wLeapShift;result := cstDateOrg。