各位前輩： ＫＴＯＰ中有許多農曆日期的取得討論，但好像都沒有直接取得 天干地支等中文表示方式的函數，不知道要如何計算，自己可以取得日 的天干地支計算，計算方式是以1900/1/1為基底起算日期，取得該日的天干地支序，然後對應取得與欲取得日期所差天數，除以60，但是若要取得月份和年度因為牽涉到各月份日期天數不一，而且可能有潤年和潤月的問題，需取得日期格式如：2005/11/2中式日期為：乙酉年丁亥月庚寅日，版上我知道有可以取得乙酉年的函數為彭宏傑前輩所撰寫cal.pas元件，但是取得月份的部分，一直困擾著我，不知道有無簡單的方式取得中式日期的方式，或者已經有前輩建立了對照表可以計算方式可以參考，感謝萬分！

如果你看得懂 JavaScript 的話 可以參考這裡 http://www.cc.nctu.edu.tw/~changyo/chinesecalendar.html

感謝reptile回應 不過該JavaScript 已經編碼過，實在不好看懂，而且Java底子實在不夠 要看懂，我看還是要繼續等待KTOP爬文才能解決，總之還是感謝！

那個 Java 很簡單啊 它把農曆的天數用陣列記錄下來 取得今天農曆的方式就是從頭算到今天是第幾天… 所以它是有期間限制的 它有很清楚的中文註解喔 它的節氣是用算的～ http://www.chinesefortunecalendar.com/ 這一個好像是華僑的樣子 真的是用算的喔～ 不只算農曆，還有它其一些東西… 像奇門遁甲、沖煞等… 不過呢～並沒有公開～ 好像可以跟它買光碟的樣子，內容好像有 Source Code 有興趣的話一起研究

缺席原因，參考資料已散佚。

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

我看到漠氏万年历的代码，可以参考一下。如下：

[code delphi]
請在此區域輸入程式碼
{
主要函数：农历转换成公历
公历转换成农历
计算潮汐时间
求某日有哪些节日，节气
求某日干支
本单元的数据及函数基本上都来自 http://www.21softs.com/ 所提供
的万年历JavaScript代码。
潮汐算法主要参考自: <http://www.yuqu.com/haidiao/hai019.htm>
第一次高潮 F1= 0.8 X ((day mod 15) - 1) 高潮间隙
低潮 F2= F1 6:12
第二次高潮 F3= F2 12:24 - 6:12
JavaScript的原作者是台湾的 Sean Lin (林洵賢) <sean@4u.net>
简体中文(作者授权) Sumyou (梅竹松) <bushi@21softs.com>
有关于原代码详细情况，请访问 http://www.21softs.com/
本单元由Mostone.Jiang 业余兴趣所改写
源代码无条件共享,有Bug或是改进，
烦请mail me.
Mostone.Jiang 漠石 <mostone@hotmail.com>
2003.04
}
unit CnBase;
interface
uses SysUtils, DateUtils, Controls;
type
THzDate = record //农历日期
Year: integer;
Month: integer;
Day: integer;
isLeap: Boolean;
end;
TGzDate = record //干支日期
Year: integer;
Month: integer;
Day: integer;
// FullDate: string; //如:癸未年丙辰月丁巳日
end;
TCnDate = record //包含数字及干支显示的日期
Date: TDate;
HzDate: THzDate;
GzDate: TGzDate;
end;
const
lunarInfo: array[0..200] of WORD =(
$4bd8,$4ae0,$a570,$54d5,$d260,$d950,$5554,$56af,$9ad0,$55d2,
$4ae0,$a5b6,$a4d0,$d250,$d295,$b54f,$d6a0,$ada2,$95b0,$4977,
$497f,$a4b0,$b4b5,$6a50,$6d40,$ab54,$2b6f,$9570,$52f2,$4970,
$6566,$d4a0,$ea50,$6a95,$5adf,$2b60,$86e3,$92ef,$c8d7,$c95f,
$d4a0,$d8a6,$b55f,$56a0,$a5b4,$25df,$92d0,$d2b2,$a950,$b557,
$6ca0,$b550,$5355,$4daf,$a5b0,$4573,$52bf,$a9a8,$e950,$6aa0,
$aea6,$ab50,$4b60,$aae4,$a570,$5260,$f263,$d950,$5b57,$56a0,
$96d0,$4dd5,$4ad0,$a4d0,$d4d4,$d250,$d558,$b540,$b6a0,$95a6,
$95bf,$49b0,$a974,$a4b0,$b27a,$6a50,$6d40,$af46,$ab60,$9570,
$4af5,$4970,$64b0,$74a3,$ea50,$6b58,$5ac0,$ab60,$96d5,$92e0,
$c960,$d954,$d4a0,$da50,$7552,$56a0,$abb7,$25d0,$92d0,$cab5,
$a950,$b4a0,$baa4,$ad50,$55d9,$4ba0,$a5b0,$5176,$52bf,$a930,
$7954,$6aa0,$ad50,$5b52,$4b60,$a6e6,$a4e0,$d260,$ea65,$d530,
$5aa0,$76a3,$96d0,$4afb,$4ad0,$a4d0,$d0b6,$d25f,$d520,$dd45,
$b5a0,$56d0,$55b2,$49b0,$a577,$a4b0,$aa50,$b255,$6d2f,$ada0,
$4b63,$937f,$49f8,$4970,$64b0,$68a6,$ea5f,$6b20,$a6c4,$aaef,
$92e0,$d2e3,$c960,$d557,$d4a0,$da50,$5d55,$56a0,$a6d0,$55d4,
$52d0,$a9b8,$a950,$b4a0,$b6a6,$ad50,$55a0,$aba4,$a5b0,$52b0,
$b273,$6930,$7337,$6aa0,$ad50,$4b55,$4b6f,$a570,$54e4,$d260,
$e968,$d520,$daa0,$6aa6,$56df,$4ae0,$a9d4,$a4d0,$d150,$f252,
$d520);
solarMonth: array[0..11] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);
Gan: array[0..9] of string[2] =
('甲','乙','丙','丁','戊'
,'己','庚','辛','壬','癸');
Zhi: array[0..11] of string[2] =
('子','丑','寅','卯','辰','巳',
'午','未','申','酉','戌','亥');
Animals: Array[0..11] of string[2] =
('鼠','牛','虎','兔','龙','蛇'
,'马','羊','猴','鸡','狗','猪');
solarTerm: Array[0..23] of string[4] =
('小寒','大寒','立春','雨水'
,'惊蛰','春分','清明','谷雨'
,'立夏','小满','芒种','夏至'
,'小暑','大暑','立秋','处暑'
,'白露','秋分','寒露','霜降'
,'立冬','小雪','大雪','冬至');
sTermInfo: Array[0..23] of integer =
(0,21208,42467,63836
,85337,107014,128867,150921
,173149,195551,218072,240693
,263343,285989,308563,331033
,353350,375494,397447,419210
,440795,462224,483532,504758);
nStr1: array[0..10] of string[2] =
('日','一','二','三','四','五'
,'六','七','八','九','十');
nStr2: Array[0..4] of string[2] = ('初','十','廿','卅','□');
monthName: Array[0..11] of string[3] =
('JAN','FEB','MAR','APR','MAY','JUN'
,'JUL','AUG','SEP','OCT','NOV','DEC');
//公历节日 *表示放假日
sFtv: Array[0..95] of string =(
'0101*新年元旦',
'0202 世界湿地日',
'0207 国际声援南非日',
'0210 国际气象节',
'0212 国际足球比赛日',
'0214 西方情人节',
'0301 国际海豹日',
'0303 全国爱耳日',
'0308 国际妇女节',
'0312 植树节 孙中山逝世纪念日',
'0314 国际警察日',
'0315 国际消费者权益日',
'0317 中国国医节 国际航海日',
'0321 世界森林日 消除种族歧视国际日',
'0321 世界儿歌日',
'0322 世界水日',
'0323 世界气象日',
'0324 世界防治结核病日',
'0325 全国中小学生安全教育日',
'0330 巴勒斯坦国土日',
'0401 愚人节 全国爱国卫生运动月(四月) 税收宣传月(四月)',
'0407 世界卫生日',
'0422 世界地球日',
'0423 世界图书和版权日',
'0424 亚非新闻工作者日',
'0501*国际劳动节',
'0504 中国五四青年节',
'0505 碘缺乏病防治日',
'0508 世界红十字日',
'0512 国际护士节',
'0515 国际家庭日',
'0517 世界电信日',
'0518 国际博物馆日',
'0520 全国学生营养日',
'0523 国际牛奶日',
'0531 世界无烟日',
'0601*国际儿童节',
'0605 世界环境日',
'0606 全国爱眼日',
'0617 防治荒漠化和干旱日',
'0623 国际奥林匹克日',
'0625 全国土地日',
'0626 国际反毒品日',
'0701 中国共产党建党日 世界建筑日',
'0702 国际体育记者日 精品推介站(http://www.21softs.com/)正式对外开放纪念日',
'0707 中国人民抗日战争纪念日',
'0711 世界人口日',
'0730 非洲妇女日',
'0801 中国建军节',
'0808 中国男子节(爸爸节)',
'0815 日本正式宣布无条件投降日',
'0908 国际扫盲日 国际新闻工作者日',
'0910*教师节',
'0914 世界清洁地球日',
'0916 国际臭氧层保护日',
'0918 九·一八事变纪念日',
'0920 国际爱牙日',
'0927 世界旅游日',
'1001*国庆节 世界音乐日 国际老人节',
'1001 国际音乐日',
'1002 国际和平与民主自由斗争日',
'1004 世界动物日',
'1008 全国高血压日',
'1008 世界视觉日',
'1009 世界邮政日 万国邮联日',
'1010 辛亥革命纪念日 世界精神卫生日',
'1013 世界保健日 国际教师节',
'1014 世界标准日',
'1015 国际盲人节(白手杖节)',
'1016 世界粮食日',
'1017 世界消除贫困日',
'1022 世界传统医药日',
'1024 联合国日 世界发展信息日',
'1031 世界勤俭日',
'1107 十月社会主义革命纪念日',
'1108 中国记者日',
'1109 全国消防安全宣传教育日',
'1110 世界青年节',
'1111 国际科学与和平周(本日所属的一周)',
'1112 孙中山诞辰纪念日',
'1114 世界糖尿病日',
'1117 国际大学生节 世界学生节',
'1121 世界问候日 世界电视日',
'1129 国际声援巴勒斯坦人民国际日',
'1201 世界艾滋病日',
'1203 世界残疾人日',
'1205 国际经济和社会发展志愿人员日',
'1208 国际儿童电视日',
'1209 世界足球日',
'1210 世界人权日',
'1212 西安事变纪念日',
'1213 南京大屠杀(1937年)纪念日！紧记血泪史！',
'1221 国际篮球日',
'1224 平安夜',
'1225*圣诞节',
'1229 国际生物多样性日');
//某月的第几个星期几。 5,6,7,8 表示到数第 1,2,3,4 个星期几
wFtv: Array[0..11] of string = (
'0110 黑人日',
'0150 世界麻风日', //一月的最后一个星期日（月倒数第一个星期日）
'0520 国际母亲节',
'0530 全国助残日',
'0630 父亲节',
'0911 劳动节',
'0932 国际和平日',
'0940 国际聋人节 世界儿童日',
'0950 世界海事日',
'1011 国际住房日',
'1013 国际减轻自然灾害日(减灾日)',
'1144 感恩节');
//农历节日
lFtv: Array[0..10] of string = (
'0101*春节',
'0115*元宵节 中国情人节',
'0202 龙抬头节',
'0323 妈祖生辰 (天上圣母诞辰)',
'0505*端午节',
'0707 七七中国情人节',
'0815*中秋节',
'0909*重阳节',
'1208 腊八节',
'1223 灶君(祭灶)节',
'0100*除夕');
function lYearDays(y: integer): integer; //返回农历 y年的总天数
function leapDays(y: integer): integer; //返回农历 y年闰月的天数
function leapMonth(y: integer): integer; //返回农历 y年闰哪个月 1-12 , 没闰返回 0
function monthDays(y, m: integer): integer; //返回农历 y年m月的总天数
function Lunar(objDate: TDate): THzDate; //算出农历, 传入日期控件, 返回农历日期控件
function solarDays(y, m: integer): integer; //返回公历 y年m月的天数
function cyclical(num: integer): string; //传入 offset 返回干支, 0=甲子
function HzLunar(objDate: THzDate): TDate; //算出公历, 传入农历日期控件, 返回公历
function ChkHzDate(objDate: THzDate): Boolean; //检查农历日期是否合法
function sTerm(y, n: integer): TDateTime; //某年的第n个节气为几日(从0小寒起算)
function GetGZ(y, m: integer; objDate: TDate): TGzDate; //求年柱，月柱，日柱(年，月为农历数字，objDate为当天的公历日期)
function GetCnDay(objDate: THzDate): string;
function GetCnMonth(ObjDate: THzDate): string;
function GetCnYear(objDate: THzDate): string;
function GetCnWeek(day: TDate): string;
//取得潮汐时间 jth: 潮汐间隙小时，jtm: 潮汐间隙分钟
function GetZX(HzDay: Integer; zxjx: TTime= 0.42709491898): string;
// 指定月分第几个星期几是第几天
function Getd0(y, m: Integer; S: string): Integer;
// 去除节日列表中的标记，返回以，相隔的字符串
procedure ClearJR(S: string; var strSave: string);
//取得指定日期的节日
function GetDayOfJR(day: TCnDate):string;
// 取得指定日期的节气
function GetDayOfJQ(day: TDate): string;
implementation
{*****************************************************************************
日期计算
*****************************************************************************}
//====================================== 返回农历 y年的总天数
function lYearDays(y: integer): integer;
var
i, sum: integer;
begin
sum:= 348;
i:= $8000;
while i > $8 do
begin
if (lunarInfo[y - 1900] and i) > 0 then Inc(sum);
i:= i shr 1;
end;
Result:= sum leapDays(y);
end;
//====================================== 返回农历 y年闰月的天数
function leapDays(y: integer): integer;
begin
if Boolean(leapMonth(y)) then
begin
if (lunarInfo[y - 1899] and $f) = $f then Result := 30 else Result := 29;
end
else Result := 0;
end;
//====================================== 返回农历 y年闰哪个月 1-12 , 没闰返回 0
function leapMonth(y: integer): integer;
var
lm: Word;
begin
lm:= lunarInfo[y - 1900] and $f;
if lm = $f then Result:= 0 else Result:= lm;
end;
//====================================== 返回农历 y年m月的总天数
function monthDays(y, m: integer): integer;
var
temp1, temp2, temp3: Word;
begin
temp1:= lunarInfo[y - 1900];
temp2:= $8000;
if m > 1 then temp2:= $8000 shr (m - 1);
// temp2:= $10000 shr (m - 1);
temp3:= temp1 and temp2;
// if Boolean(temp3) then
// if Boolean(lunarInfo[y - 1900] and ($8000 shr (m - 1))) then
if temp3 > 0 then
Result:= 30
else Result:= 29;
end;
//====================================== 算出农历, 传入日期控件, 返回农历日期控件
function Lunar(objDate: TDate): THzDate;
var
i, leap, temp, offset: integer;
begin
temp:= yearof(objDate);
if (temp < 1901) or (temp > 2100) then exit;
offset:= DaysBetween(EncodeDate(1900,1,31),objDate);
i:= 1900;
while (i < 2100) and (offset > 0) do
begin
temp:= lYearDays(i);
offset:= offset - temp;
Inc(i);
end;
if (offset < 0) then
begin
offset:= offset temp;
i:= i - 1;
end;
Result.Year:= i;
leap:= leapMonth(i); //闰哪个月
Result.isLeap:= False;
i:=1;
while (i < 13) and (offset > 0) do
begin
if (leap > 0) and (i = leap 1) and (Result.isLeap = False) then
begin
i:= i - 1;
Result.isLeap:= True;
temp:= leapDays(Result.Year);
end else temp:= monthDays(Result.Year, i);
if (Result.isLeap = True) and (i = leap 1) then
Result.isLeap:= False;
offset:= offset - temp;
inc(i);
end;
if (offset = 0) and (leap > 0) and (i = leap 1) then
begin
if Result.isLeap then Result.isLeap:= False
else begin
Result.isLeap:= True;
i:= i - 1;
end;
end;
if offset < 0 then
begin
offset:= offset temp;
i:= i - 1;
end;
Result.Month:= i;
Result.Day:= offset 1;

end;
//=============================== // 求年柱，月柱，日柱
//============= 年，月为农历数字，objDate为当天的公历日期
function GetGZ(y, m: integer; objDate: TDate): TGzDate;
var
term: TDate;
sy, sm, sd: Word;
begin
DecodeDate(objDate, sy, sm, sd);
term:= sTerm(sy, (sm - 1) * 2); // 当月的节气日期
//年柱 1900年立春后为庚子年(60进制36)
Result.Year:= sy - 1900 36;
//依立春日期调整年柱
if (sm = 2) and (objDate < term) then
Result.Year:= sy - 1900 35;
//月柱 农历1900年1月小寒以前为 丙子月(60进制12)
Result.Month:= (sy - 1900) * 12 sm 11;
//依节气调整月柱
if objDate >= DateOf(term) then Result.Month:= (sy - 1900) * 12 sm 12;
// 1900/1/1 日柱为甲辰日(60进制10)
Result.Day:= DaysBetween(EncodeDate(1900,1,1),objDate) 10;
end;
//====================================== 算出公历, 传入农历日期控件, 返回公历
function HzLunar(objDate: THzDate): TDate;
var
i, j, t, leap, temp, offset: integer;
isLeap: Boolean;
y, m: integer;
begin
Result:= EncodeDate(1,1,1);
if not ChkHzDate(objDate) then exit;
isLeap:= False;
y:= objDate.Year;
m:= objDate.Month;
leap:= leapMonth(y);
//本年内从大年初一过来的天数
offset:= 0;
i:= 1;
while i < m do
begin
if i = leap then
begin
if isLeap then
begin
temp:= leapDays(y);
isLeap:= False;
end else
begin
temp:= monthDays(y, i);
isLeap:= True;
i:= i - 1;
end;
end else
temp:= monthDays(y, i);
offset:= offset temp;
Inc(i);
end;
offset:= offset objDate.Day - 1;
if (m = leap) and objDate.isLeap then //若为闰月，再加上前一个非闰月天数
offset:= offset monthDays(y, m);
// 该年到 2000.1.1 这几年的天数
if y > 2000 then
begin
i:= 2000;
j:= y - 1;
end else
begin
i:= y;
j:= 1999;
end;
temp:= 0;
for t:= i to j do
begin
temp:= temp lYearDays(t);
end;
if y > 1999 then offset:= offset temp
else offset:= offset - temp;
//农历二零零零年大年初一的阳历为 2000.2.5
Result:= incDay(EncodeDate(2000,2,5),offset);
end;
//====================================== 检查农历日期是否合法
function ChkHzDate(objDate: THzDate): Boolean;
begin
if (objDate.Year > 2099) or (objDate.Year < 1901)
or (objDate.Month > 12) or (objDate.Day > 31) then
begin
Result:= False;
exit;
end;
Result:= True;
if objDate.isLeap then
begin
if leapMonth(objDate.Year) = objDate.Month then
begin
if leapDays(objDate.Year) < objDate.Day then
Result:= False;
end else Result:= False;
end else
begin
if monthDays(objDate.Year,objDate.Month) < objDate.Day then
Result:= False;
end;
end;
//===== 某年的第n个节气为几日(从0小寒起算)
function sTerm(y, n: integer): TDateTime;
var
temp: TDateTime;
t,tt: real;
i: Int64;
begin
t:= sTermInfo[n];
t:= t * 60000;
tt:= 31556925974.7 * (y - 1900);
t:= t tt;
i:= Round(t);
Temp:= IncMilliSecond(EncodeDateTime(1900,1,6,2,5,0,0),i);
Result:= temp;
{ var offDate = new Date( ( 31556925974.7*(y-1900) sTermInfo[n]*60000 ) Date.UTC(1900,0,6,2,5) );
return(offDate.getUTCDate());
}
end;

//==============================返回公历 y年m月的天数
function solarDays(y, m: integer): integer;
begin
if m = 2 then
begin
if ((y mod 4) = 0) and ((y mod 100) <> 0) or ((y mod 400) = 0) then
Result:= 29
else Result:= 28;
end else Result:= solarMonth[m - 1];
end;
//============================== 传入 offset 返回干支, 0=甲子
function cyclical(num: integer): string;
begin
Result:= Gan[num mod 10] Zhi[num mod 12];
end;
//
function GetCnDay(objDate: THzDate): string;
var
day: integer;
begin
day:= objDate.Day;
case day of
1..10: Result:= nStr2[0] nStr1[day];
11..19: Result:= nStr2[1] nStr1[day - 10];
20: Result:= nStr1[2] nStr1[10];
21..29: Result:= nStr2[2] nStr1[day - 20];
30: Result:= nStr1[3] nStr1[10];
end;
end;
function GetCnMonth(ObjDate: THzDate): string;
var
month: integer;
begin
month:= objDate.Month;
case month of
1..10: Result:= nStr1[month];
11..12: Result:= nStr1[10] nStr1[month - 10];
end;
if objDate.isLeap then Result:= '闰' Result;
Result:= Result '月';
end;
function GetCnYear(objDate: THzDate): string;
var
year, temp: integer;
zero: string;
begin
year:= objDate.Year;
zero:= '零';
temp:= year div 1000;
Result:= nStr1[temp];
year:= year - temp * 1000;
if year >= 100 then
begin
temp:= year div 100;
Result:= Result nStr1[temp];
year:= year - temp * 100;
end
else
Result:= Result zero;
if year >= 10 then
begin
temp:= year div 10;
Result:= Result nStr1[temp];
year:= year - temp * 10;
end
else
Result:= Result zero;
if year = 0 then Result:= Result zero else
Result:= Result nStr1[year];
Result:= Result '年';
end;
// 潮汐算法主要参考自: <http://www.yuqu.com/haidiao/hai019.htm>
//
// 第一次高潮 F1= 0.8 X ((day mod 15) - 1) 高潮间隙
// 低潮 F2= F1 6:12
// 第二次高潮 F3= F2 12:24 - 6:12
function GetZX(HzDay: Integer; zxjx: TTime= 0.42709491898): string;
var
Pos: Integer;
temp: Double;
h, m: Word;
begin
if zxjx = 0 then zxjx:= 0.42709491898;
Pos:= HzDay mod 15;
if Pos = 0 then Pos:= 15;
Inc(Pos, -1);
temp:= 0.8 * Pos;
h:= Trunc(temp);
m:= Trunc((temp - h) * 10);
m:= 60 * h m * 6;
zxjx:= IncMinute(zxjx, m);
Result:= FormatDateTime(' hh:mm',zxjx); //高潮，低潮间隔是二个#32空格
zxjx:= IncMinute(zxjx, 372);
Result:= Result FormatDateTime(' hh:mm',zxjx);
zxjx:= IncMinute(zxjx, 372);
Result:= Result FormatDateTime(' hh:mm',zxjx);
end;
// 指定月分第几个星期几是第几天
function Getd0(y, m: Integer; S: string): Integer;
var
cntDay, cntWeek, idxPos, idxWeek: integer;
CurDay: TDate;
i: integer;
begin
cntDay:= solarDays(y, m);
idxPos:= strtoint(Copy(S,1,1));
idxWeek:= strtoint(Copy(S,2,1));
cntWeek:= 1;
if idxPos< 5 then
begin
CurDay:= EncodeDate(y, m, 1);
for i:= 1 to cntDay do
begin
if (DayOfWeek(CurDay) - 1) = idxWeek then
if cntWeek = idxPos then break else Inc(cntWeek);
CurDay:= IncDay(CurDay);
end;
Result:= i;
end
else begin
idxPos:= idxPos - 4;
CurDay:= EncodeDate(y, m, cntDay);
for i:= cntDay downto 1 do
begin
if (DayOfWeek(CurDay) - 1) = idxWeek then
if cntWeek = idxPos then break else Inc(cntWeek);
CurDay:= IncDay(CurDay, -1);
end;
Result:= i;
end;
end;
// 去除节日列表中的标记，返回以，相隔的字符串
procedure ClearJR(S: string; var strSave: string);
var
PosOfSpc: Integer;
ss: string;
begin
s:= Trim(s);
repeat
PosOfSpc:= Pos(' ', S);
if PosOfSpc > 0 then ss:= Copy(s, 1, PosOfSpc -1)
else ss:= s;
ss:= TrimLeft(ss);
if Copy(ss,1,1) = '*' then Delete(ss,1,1);
if strSave = '' then strSave:= ss
else strSave:= strSave ',' ss;
Delete(s, 1, PosOfSpc);
until PosOfSpc = 0;
end;
// 取得指定日期的节气
function GetDayOfJQ(day: TDate): string;
var
jq: Integer;
term: TDateTime;
begin
Result:= '';
jq:= (MonthOf(day) - 1) * 2;
term:= sTerm(Yearof(day), jq); //节气时间
if DateOf(term) = day then Result:= solarTerm[jq]
else
begin
term:= sTerm(Yearof(day), jq 1); //中气时间
if DateOf(term) = day then Result:= solarTerm[jq 1];
end;
if Result<>'' then
Result:= Result ' (时间:' FormatDateTime('hh:mm',term) ')';
end;

//取得指定日期的节日
function GetDayOfJR(day: TCnDate):string;
var
H: THzDate;
i: Integer;
y, m, d: Word;
m0, d0: Integer;
lm: Boolean;
s, strSave: string;
begin
strSave:= '';
//农历节日
H:= day.HzDate;
m:= H.Month;
lm:= H.isLeap;
d:= H.Day;
if not lm then
for i:= Low(lFtv) to High(lFtv) do
begin
m0:= strtoint(Copy(lFtv[i], 1, 2));
d0:= strtoint(Copy(lFtv[i],3,2));
if (m0 = m) and (d0 = d) then
begin
s:= lFtv[i];
Delete(s,1,4);
ClearJR(s,strSave);
end;
end;
//公历节日
DecodeDate(day.Date, y, m, d);
for i:= Low(sFtv) to High(sFtv) do
begin
m0:= strtoint(sFtv[i][1] sFtv[i][2]);
d0:= strtoint(sFtv[i][3] sFtv[i][4]);
if (m0 = m) and (d0 = d) then
begin
S:= sFtv[i];
Delete(S,1,4);
ClearJr(s,strSave);
end;
end;
for i:= Low(wFtv) to High(wFtv) do
begin
m0:= strtoint(Copy(wFtv[i],1,2));
if m0 = m then
begin
d0:= Getd0(y, m, Copy(wFtv[i],3,2));
if (d0 = d) then
begin
S:= wFtv[i];
Delete(S, 1, 4);
ClearJR(s,strSave);
end;
end;
end;
Result:= strSave;
end;
function GetCnWeek(day: TDate): string;
begin
Result:= '星期' nStr1[DayOfWeek(day) - 1]
end;
end.

[/code]