//将日期表示为中文格式:XXXX年XX月XX日 function DateToChinese(ADate:TDate):String -//Will be the date that the format for the Chinese: XXXX in XX on XX date function DateToChinese (ADate: TDate): String