用DateTimeToString取得自己想要的格式的日期。 如: procedure TForm1.btn1Click(Sender: TObject); var timestring : string; begin DateTimeToString(); datetimetostring(timestring,'yyyy年mm月dd日',Now); //显示“XXXX年XX月XX日”的消息框。 ShowMessage(timestring); datetimetostring(timestring,'yyyymmddhhnnss',Now); //显示“20100117204702”格式的消息框。 ShowMessage(timestring); end;