如何判断字符串可以成功转化为时间格式？？

Question

采用str:=FormatDateTime('yyyy-mm-dd hh:mm',Now)我知道，现在要把客户输入的字符串转化为时间格式”yyyy-mm-dd hh:mm“。如何判断成功转化为时间格式？？  if 字符串成功转化时间格式  then  ShowMessage('OK')
  else
     ShowMessage('转化失败请重新转化');
   我不知道事业什么转化函数？？

Answer 1

将str 转为TDatetime试试就知道了
    try
     ... StrtoDateTime(str);
      ShowMessage('OK')    except
      ShowMessage('转化失败请重新转化');    end;
  

Answer 2

可以 直接使用 Tdatetimepicker 主件来完成你的 任务啊！  并且也不会出现你用输入不能
判断的情况！！后者 像前面那样做   但我个人觉得   不太好！！

Answer 3

请问用Tdatetimepicker 怎么可以实现”'yyyy-mm-dd hh:mm“显示格式，还可以手工修改

Answer 4

    try
     ... StrtoDateTime(str);
      ShowMessage('OK')    except
      ShowMessage('转化失败请重新转化');    end;
这个方法行，但是冒出异常总不是好方法，
那你句逐个字符判断吧不过还是建议你用 Tdatetimepicker 控件来完成

Answer 5

var
 flag:boolean;
begin
  flag:=false;    
  try
     ... StrtoDateTime(str);
      flag:=true;    except
      flag:=false;
    end;
  if flag then
   ……
  else
  ……
  end;
end;
\\这个不会有异常出现，但你的设置下你的,在编译时你要设置一下你的debugger options中的language exceptions 的stop on delphi exceptions为不选中，就可以了

Answer 6

感谢楼上的朋友帮忙，请问用Tdatetimepicker 控件怎么来做？？

Answer 7

哎呀，这位仁兄，用lianshaohua(永远深爱一个叫“...... ”的好女孩儿!) 的方法即简单又实用，最好把这个做成一个函数，例如:IsValidDateTime(var sDate: String): boolean，每次用这个函数来判断就行了。干吗那么麻烦去用一些额外的控件呢？

Answer 8

用 TryStrToDateTime 函数,我用的delphi7

Answer 9

datetimepicker1.Format:='yyyy-MM-dd-hh-mm-ss';

Answer 10

能否给个例子???用 TryStrToDateTime 或用 datetimepicker1

Answer 11

用strtodatetime 转化 字符串
用两个Tdatetimepicker  一个设为date  一个设为time 就可以试了啊！
比如：
var
  dt:TDateTime;
begin    if TryStrToDateTime(edit1.Text,dt) then
    begin
        DateTimePicker1.DateTime := dt;
        DateTimePicker2.DateTime := dt;
      end
      else
      ShowMessage('错了！');end;