如何格式化日期時間？

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;