Is not a valid date and time 不是有效的日期格式

Is not a valid date and time 不是有效的日期格式

分类： Delphi 2012-03-20 17:12 7051人阅读 评论(0) 收藏 举报

datestring

方法一:

 var
  sTime: TDateTime;
  s1: String;
begin
  //没有下面两行时转换会出错
  ShortDateFormat := 'yyyy-MM-dd';
  DateSeparator := '-';
  //
  s1 := '2012-03-20 12:30:40';
  sTime := StrToDateTime(s1) + 1;
  ShowMessage(FormatDateTime('yyyy-mm-dd hh:nn:ss',sTime));
end;

方法二：

uses
  SysUtils

var
  sTime: TDateTime;
  s1: String;
  aDateTimeFormat: TFormatSettings;
begin
  //设定转换格式
  aDateTimeFormat.DateSeparator := '-';
  aDateTimeFormat.ShortDateFormat := 'yyyy-mm-dd';
  aDateTimeFormat.TimeSeparator := ':';
  aDateTimeFormat.ShortTimeFormat := 'hh:mm:ss';

  s1 := '2012-03-20 12:30:40';
  sTime := StrToDateTime(s1, aDateTimeFormat) + 1;
  ShowMessage(FormatDateTime('yyyy-mm-dd hh:nn:ss',sTime));
end;