日期与区域(50分)

D

dohye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-08

• #1

DateString:=Trim(Edit2.Text)+'/'+Trim(Edit3.Text)+'/'+Trim(Edit1.text); 区域设置为英文有效

Trim(Edit1.text)+'-'+Trim(Edit2.Text)+'-'+Trim(Edit3.Text); 区域设置为中文英文有效

Present:=StrToDateTime(DateString);
应怎样编才不会出错

 

柳

柳五公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-08

• #2

加一条语句：
DateSeparator := '-'; //或者'/'
然后用
DateString:=Trim(Edit2.Text)+'-'+Trim(Edit3.Text)+'-'+Trim(Edit1.text);
就可以了！

 

柳

柳五公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-08

• #3

再具体你可以参考Delphi Help: date/time formatting variables

 

W

wgzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-08

• #4

用EncodeDate,连分割符都不用写,次序为年月日
Present:= EncodeDate(strtoint(Edit1.Text),strtoint(Edit2.Text), strtoint(Edit3.Text));

 

柳

柳五公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-08

• #5

对wgzhang也是个好办法！

 

S

sonie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-08

• #6

来晚一步，我也是用wgzhang的方法解决的。特别如果你的世纪用4位的话强烈建议用此法。当然最好先接管strtoint的错误处理。

 

D

dohye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-08

• #7

多人接受答案了。