码迷,mamicode.com
首页 > Windows程序 > 详细

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

时间:2016-08-20 21:43:38      阅读:216      评论:0      收藏:0      [点我收藏+]

标签:

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

 解决:统一强制转换;

 

//引用单元: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; 

 

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

标签:

原文地址:http://www.cnblogs.com/wildfox/p/5791223.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!