判断字符串是否为有效日期格式(100)

K

kxn022

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-01-12

• #1

判断字符串是否为日期格式：Try StrToDate('2010/01/01')
Result:=Ture;except Result:=False;end;以上代码：若系统设置的日期分格符为-，则函数StrToDate('2010/01/01') 会提示'2010/01/01' is not a valid date。若系统设置的日期分格符为/，则函数StrToDate('2010-01-01') 也会提示错误。另，无法确定传入的字符串是哪种日期格式。请问大家是如何判断字符串是否为有效日期格式？？？

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-01-12

• #2

Try StrToDate('2010/01/01')
Result:=Ture;except Try StrToDate('2010-01-01')
Result:=Ture
except Result:=False
end;end;

 

S

shhw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-01-12

• #3

自己写代码转换一下

 

J

jhddx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-01-12

• #4

kaida的方法就可以了。

 

S

smlabc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-01-12

• #5

StrToDateDef()

 

H

happycyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-01-12

• #6

uses SysUtils;ATimeStr := StringReplace(ATimeStr,'-', DateSeparator, [rfReplaceAll]);ATimeStr := StringReplace(ATimeStr,'/', DateSeparator, [rfReplaceAll]);Result := StrToDate(ATimeStr);

 

K

kxn022

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-01-16

• #7

结合happycyp、kaida两位的方法刚好是我想要的结果。谢谢