delphi 从字符串转换为秒（需完整的年月日时分秒）

procedure TForm1.FormCreate(Sender: TObject);

var

  sDate:String;

begin

  DateTimeToString(sDate,'yyyy-MM-dd HH:mm:ss.SSS',Now);

  Application.MessageBox(PChar(sDate), 'DateTimeToString', MB_OK + MB_ICONWARNING);

  sDate := FormatDateTime('yyyy-MM-dd HH:mm:ss.zzz', now);

  Application.MessageBox(PChar(sDate), 'FormatDateTime', MB_OK + MB_ICONWARNING);

end;