| 用delphi处理公历到农历的转换 |  |
|
boymaster 摘 要：公历到农历的转换 关键字：日历,农历,转换 类 别：object pascal | |
| unit calfunc; interface uses sysutils,windows; const start_year=1901; end_year=2050; //返回iyear年imonth月的天数 1年1月 --- 65535年12月 function monthdays(iyear,imonth:word):word; //返回阴历ilunaryer年阴历ilunarmonth月的天数，如果ilunarmonth为闰月， //高字为第二个ilunarmonth月的天数，否则高字为0 1901年1月---2050年12月 function lunarmonthdays(ilunaryear,ilunarmonth:word):longword; //返回阴历ilunaryear年的总天数 1901年1月---2050年12月 function lunaryeardays(ilunaryear:word):word; //返回阴历ilunaryear年的闰月月份，如没有返回0 1901年1月---2050年12月 function getleapmonth(ilunaryear:word):word; //把iyear年格式化成天干记年法表示的字符串 procedure formatlunaryear(iyear:word;var pbuffer:string);overload; function formatlunaryear(iyear:word):string;overload; //把imonth格式化成中文字符串 procedure formatmonth(imonth:word;var pbuffer:string;blunar:boolean=true);overload; function formatmonth(imonth:word;blunar:boolean=true):string;overload; //把iday格式化成中文字符串 procedure formatlunarday(iday:word;var pbuffer:string);overload; function formatlunarday(iday:word):string;overload; //计算公历两个日期间相差的天数 1年1月1日 --- 65535年12月31日 function calcdatediff(iendyear,iendmonth,iendday:word;istartyear:word=start_year;istartmonth:word=1;istartday:word=1):longword;overload; function calcdatediff(enddate,startdate:tdatetime):longword;overload; //计算公历iyear年imonth月iday日对应的阴历日期,返回对应的阴历节气 0-24 //1901年1月1日---2050年12月31日 function getlunarholday(indate:tdatetime):string;overload; function getlunarholday(iyear,imonth,iday:word):string;overload; //private function-------------------------------------- //计算从1901年1月1日过ispandays天后的阴历日期 procedure l_calclunardate(var iyear,imonth,iday:word;ispandays:longword); //计算公历iyear年imonth月iday日对应的节气 0-24，0表不是节气 function l_getlunarholday(iyear,imonth,iday:word):word; implementation var //数组glunarday存入阴历1901年到2100年每年中的月天数信息， //阴历每月只能是29或30天，一年用12（或13）个二进制位表示，对应位为1表30天，否则为29天 glunarmonthday:array[0..149] of word=( //测试数据只有1901.1.1 --2050.12.31 $4ae0, $a570, $5268, $d260, $d950, $6aa8, $56a0, $9ad0, $4ae8, $4ae0, //1910 $a4d8, $a4d0, $d250, $d548, $b550, $56a0, $96d0, $95b0, $49b8, $49b0, //1920 $a4b0, $b258, $6a50, $6d40, $ada8, $2b60, $9570, $4978, $4970, $64b0, //1930 $d4a0, $ea50, $6d48, $5ad0, $2b60, $9370, $92e0, $c968, $c950, $d4a0, //1940 $da50, $b550, $56a0, $aad8, $25d0, $92d0, $c958, $a950, $b4a8, $6ca0, //1950 $b550, $55a8, $4da0, $a5b0, $52b8, $52b0, $a950, $e950, $6aa0, $ad50, //1960 $ab50, $4b60, $a570, $a570, $5260, $e930, $d950, $5aa8, $56a0, $96d0, //1970 $4ae8, $4ad0, $a4d0, $d268, $d250, $d528, $b540, $b6a0, $96d0, $95b0, //1980 $49b0, $a4b8, $a4b0, $b258, $6a50, $6d40, $ada0, $ab60, $9370, $4978, //1990 $4970, $64b0, $6a50, $ea50, $6b28, $5ac0, $ab60, $9368, $92e0, $c960, //2000 $d4a8, $d4a0, $da50, $5aa8, $56a0, $aad8, $25d0, $92d0, $c958, $a950, //2010 $b4a0, $b550, $b550, $55a8, $4ba0, $a5b0, $52b8, $52b0, $a930, $74a8, //2020 $6aa0, $ad50, $4da8, $4b60, $9570, $a4e0, $d260, $e930, $d530, $5aa0, //2030 $6b50, $96d0, $4ae8, $4ad0, $a4d0, $d258, $d250, $d520, $daa0, $b5a0, //2040 $56d0, $4ad8, $49b0, $a4b8, $a4b0, $aa50, $b528, $6d20, $ada0, $55b0); //2050 //数组glanarmonth存放阴历1901年到2050年闰月的月份，如没有则为0，每字节存两年 glunarmonth:array[0..74] of byte=( $00, $50, $04, $00, $20, //1910 $60, $05, $00, $20, $70, //1920 $05, $00, $40, $02, $06, //1930 $00, $50, $03, $07, $00, //1940 $60, $04, $00, $20, $70, //1950 $05, $00, $30, $80, $06, //1960 $00, $40, $03, $07, $00, //1970 $50, $04, $08, $00, $60, //1980 $04, $0a, $00, $60, $05, //1990 $00, $30, $80, $05, $00, //2000 $40, $02, $07, $00, $50, //2010 $04, $09, $00, $60, $04, //2020 $00, $20, $60, $05, $00, //2030 $30, $b0, $06, $00, $50, //2040 $02, $07, $00, $50, $03); //2050 //数组glanarholiday存放每年的二十四节气对应的阳历日期 //每年的二十四节气对应的阳历日期几乎固定，平均分布于十二个月中 // 1月 2月 3月 4月 5月 6月 //小寒 大寒 立春 雨水 惊蛰 春分 清明 谷雨 立夏 小满 芒种 夏至 // 7月 8月 9月 10月 11月 12月 //小暑 大暑 立秋 处暑 白露 秋分 寒露 霜降 立冬 小雪 大雪 冬至 {********************************************************************************* 节气无任何确定规律,所以只好存表,要节省空间,所以.... **********************************************************************************} //数据格式说明: //如1901年的节气为 // 1月 2月 3月 4月 5月 6月 7月 8月 9月 10月 11月 12月 // 6, 21, 4, 19, 6, 21, 5, 21, 6,22, 6,22, 8, 23, 8, 24, 8, 24, 8, 24, 8, 23, 8, 22 // 9, 6, 11,4, 9, 6, 10,6, 9,7, 9,7, 7, 8, 7, 9, 7, 9, 7, 9, 7, 8, 7, 15 //上面第一行数据为每月节气对应日期,15减去每月第一个节气,每月第二个节气减去15得第二行 // 这样每月两个节气对应数据都小于16,每月用一个字节存放,高位存放第一个节气数据,低位存放 //第二个节气的数据,可得下表 glunarholday:array[0..1799] of byte=( $96, $b4, $96, $a6, $97, $97, $78, $79, $79, $69, $78, $77, //1901 $96, $a4, $96, $96, $97, $87, $79, $79, $79, $69, $78, $78, //1902 $96, $a5, $87, $96, $87, $87, $79, $69, $69, $69, $78, $78, //1903 $86, $a5, $96, $a5, $96, $97, $88, $78, $78, $79, $78, $87, //1904
本文关键：公历,农历
相关方案
本站最佳浏览方式为 分辨率 1024x768 IE 6.0（或更高版本的 IE浏览器） 
| |