delphi 关于DBGrid 单元格为空格时,StrToDateTime(c1),怎么用?(50)

  • 主题发起人 主题发起人 zhangbin0733
  • 开始时间 开始时间
Z

zhangbin0733

Unregistered / Unconfirmed
GUEST, unregistred user!
DBgrid单元格内容里面有空,我计算c:=StrToDateTime( )时报错,应该怎么写?比如写成,假如单元格内时间为空,c;='未开工';否则c:=StrToDateTime( );
 
你用IF语句先判断一下。
 
var a,b,c,d,e:Tdatetime; a1,b1,c1,d1:string;begin a1:=dbgrid1.fields[3].AsString ; b1:=dbgrid1.fields[4].AsString; c1:=dbgrid1.fields[5].AsString; d1:=dbgrid1.fields[6].AsString ;if c1=' ' then form1.Edit3.Text:='未开工' else begin a:=StrToDateTime(a1); //计划开工时间 b:=StrToDateTime(b1); //计划完工时间 c:=StrToDateTime(c1); // 实际开工时间 d:=StrToDateTime(d1); //实际完工时间 form1.Edit3.Text:=Datetimetostr(c); end结果报错,怎么回事啊?
 
好象有一个TryStrToDataTime,可以转换,如果成功,返回TRUE,如果不成功返回FALSE。你可以试试。
 
可以用:a:=StrToDateTimeDef(a1,'2000-01-01 00:00:00'); //计划开工时间
 
后退
顶部