sCNLeap(cnDate) then strLeap:=''''(闰)'''' else strLeap := '''''''';
result := ''''农历'''' + ConvertYMD(cnYear,1) + ''''年'''' + ConvertYMD(cnMonth,2) + ''''月''''
+ strLeap + ConvertYMD(cnDay,3) ;
end;
end.
////////////////////////// 应用 /////////////////////////////
uses CNYear;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=GregDateToCNStr(DateTimePicker1.date);
end;
上一页 [1] [2] |
