Delphi 获取系统时间后格式化输出

时间:2022-12-07 08:57:48

问题:客户现场程序运行提示时间格式不对导致的错误,原因是与开发环境及公司内部测试环境的日期格式不一致;

解决:统一强制转换;

//引用单元:SysUtils
//目的:实现跨环境兼容不同日期格式,如果不做强制格式处理,不同环境存在发生问题的可能性;
function GetSysTimeByFormate: string;
var
dtFormate: TFormatSettings;
begin
try
dtFormate.ShortDateFormat := 'yyyy/MM/dd';
dtFormate.DateSeparator := '/';
dtFormate.LongTimeFormat := 'hh:mm:ss';
dtFormate.TimeSeparator := ':';
Result := DateTimeToStr(Now(),dtFormate);
except
end;
end;