有时候保存到数据库的日期类型是字符类型,在不同系统下因为系统的日期类型不一致会导致转换出错如strtodatetime,利用下面的方法转换一下日期字符就不会报错。
'2012-1-1 12:12:12' 与 '2012/1/1 12:12:12'
function changeDateType(str:string):string; var sysdate,a,old:string; I:Integer; strlist:Tstringlist; begin sysdate:=datetostr(now); if str='' then begin Result:=sysdate; end else begin old:=Copy(str,5,1); a:=copy(sysdate,5,1); if a=old then begin Result:=str; end else begin strlist:=splitstr(old,str); try result:=strlist[0]+a+strlist[1]+a+strlist[2]; finally strlist.Free; end; end; end; end;