如何格式化日期时间？

Question

如何使用Delphi WED 16/11/2016 IT 15:26格式化此日期时间。这是XML的价值，我只想要16/11/2016 15:26。

Answer 1

很简单的解决办法是只取所需的原始字符串的部分：

MyDateString := Copy(XMLDateString, 5, 10) + ' ' + Copy(XMLDateString, 19, 5); 

或者，您可能希望将原始字符串解析成一个DateTime值，这样可以更好的格式化值根据区域设置或任何你可能需要的任何时候，根据你想要的字符串。

function XMLDateToMyFormat(XMLDate: string): string; 
var DateValue: TDateTime; 
begin 
    DateValue := EncodeDateTime(Copy(XMLDate, 5, 2).ToInteger, 
           Copy(XMLDate, 8, 2).ToInteger, 
           Copy(XMLDate, 11, 4).ToInteger, 
           Copy(XMLDate, 19, 2).ToInteger, 
           Copy(XMLDate, 22, 2).ToInteger, 
           0, 
           0); 

    Result := FormatDateTime('dd/mm/yyyy hh:nn', DateValue); 
end;