Question

delphi 字符串转换成带秒的日期类型

var s1,s2：string
有S1:=2014-10-10 空格11：11：11
S2:=2014-10-10空格12：12：12
如何转换格式使可以用withinpastseconds(s1,s2,30)函数 判断是否在范围内？

Answer 1

uses　DateUtils;

procedure　TForm1.FormCreate(Sender:　TObject);
var
　s1,s2:　string;
　t1,t2:　TDateTime;
　b:　Boolean;
begin
  s1 := '2014-10-10 11:11:11';
  s2 := '2014-10-10 12:12:12'; 
　t1 := StrToDateTime(s1);
　t2 := StrToDateTime(s2);

　{两个时间差是否在　24　秒内}
　b　:=　WithinPastSeconds(t1,　t2,　30);　　　


//　ShowMessage(BoolToStr(b,　True));
end;

end.

追问

6rl，可是在系统区域选项中短时间日期方式中带有星期几字样的话，上面的转换会使只能比较日期，不能比较时间。
如s1:=2014-10-10 11:11:11;
t1:=strtodatetime(s1);
S1会变为2014-10-10 星期X这样的日期。

追答

不理解你说的意思，也不明白你的需求。能截图进一步来说明？

Answer 2

从字符串中解析出年月日时分秒，调用EncodeDateTime方法返回时间