H
houxiaolong
Unregistered / Unconfirmed
GUEST, unregistred user!
程序中将EDIT中的DATETOSTR格式定为'YYYYMMDD',允许客户修改,
但按'YYYYMMDD'的格式用STRTODATE校验日期型参数,为何返回
"'yyyymmddd'is not a valid data"错误.我用
dataseparator:=chr(0)不行,修改shortdateformat也不行
能否日期转换不必有分割符,
请高手赐教!
程序如下:
procedure TInfoadd.FormShow(Sender: TObject)
begin
shortdateformat:='yyyymmdd'
edit40.text:=datetostr(date)
end
//校验
function TInfoadd.Errdatetime(myedit: Tedit ) : boolean
var
opendate1: tdatetime
begin
try
setlocaleinfo(LOCALE_USER_DEFAULT ,locale_sdate,pchar(''))
shortdateformat:='yyyymmdd'
opendate1:=strtodate(myedit.text);//报错
except
on e:Econverterror do
begin
showmessage(e.Message)
...
exit
end
end
end
但按'YYYYMMDD'的格式用STRTODATE校验日期型参数,为何返回
"'yyyymmddd'is not a valid data"错误.我用
dataseparator:=chr(0)不行,修改shortdateformat也不行
能否日期转换不必有分割符,
请高手赐教!
程序如下:
procedure TInfoadd.FormShow(Sender: TObject)
begin
shortdateformat:='yyyymmdd'
edit40.text:=datetostr(date)
end
//校验
function TInfoadd.Errdatetime(myedit: Tedit ) : boolean
var
opendate1: tdatetime
begin
try
setlocaleinfo(LOCALE_USER_DEFAULT ,locale_sdate,pchar(''))
shortdateformat:='yyyymmdd'
opendate1:=strtodate(myedit.text);//报错
except
on e:Econverterror do
begin
showmessage(e.Message)
...
exit
end
end
end