怎么实现显示当前日期的农历？有控件么？

Question

请大家帮忙了

Answer 1

playicq有下载，代码比较多function yeartoyin(yeardata:tdatetime):string;
var
text1,text2,text3,nian:string ;
t1:string;
begin
  Text1:='甲乙丙丁戊己庚辛壬癸';
  Text2:='子丑寅卯辰巳午未申酉戌亥';
  nian:=copy(formatdatetime('yyyy-mm-dd',yeardata),1,4);
  t1:=copy(text1,((strtoint(nian)-4) mod 10)*2+1,2);
  t1:=t1+copy(text2,((strtoint(nian)-4) mod 12)*2+1,2);
  t1:='农历 '+t1+'年';
  nian:=t1;
  Result:=nian;
end;

Answer 2

这个有算法，太长，你在csdn上找找超级猛料，下载下来在日期和时间相关一项中有三种算法，关于控件，我记得以前自己下过一个，现在找不到了，你从网上搜搜吧，如果找不到超级猛料，告诉我你的email，我发一个给你