Delphi里如何将字符型的时间转为TDATETIME

10 | 问答知识库用户 |浏览322次
收藏|2014/05/17 22:00
如将2011.01.04 09:05 转换为时间,怎么做呢? 用什么函数?

满意回答

2014/05/18 21:56

写了个小函数:
function StringToDateTime(ADateTimeStr: string): TDateTime;
var
  AFormatSettings: TFormatSettings;
begin
  AFormatSettings.ShortDateFormat := ShortDateFormat;
  AFormatSettings.DateSeparator := DateSeparator;
  AFormatSettings.ShortTimeFormat := ShortTimeFormat;
  AFormatSettings.TimeSeparator := TimeSeparator;
  Result := StrToDateTime(ADateTimeStr, AFormatSettings);
end;
ShortDateFormat:='yyyy-MM-dd';
DateSeparator:='-';
ShortTimeFormat:='HH:mm:ss';
TimeSeparator:=':';

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...