如何判断字符串"2007/5/7"是合法的日期格式? ( 积分: 50 )

L

l0v3_y1n9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-08

• #1

如题...[]

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-08

• #2

if TryStrToDateTime('2007/5/7') then 合法

 

L

l0v3_y1n9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-09

• #3

测试后不能成功...[8D]
而已TryStrToDateTime好象第一个参数的格式是'2007-5-7'...

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-09

• #4

var
adt:TdateTime;
try
adt := StrToDateTime('2007/5/7');
except
//不合法
end

 

H

hyty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-12

• #5

楼上的可以，结帖吧。。。

 

A

aerobull

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-12

• #6

试试我的，可以满足你的要求。
procedure TForm1.Button1Click(Sender: TObject);
var
a: TDateTime;
oldDateSeparator: Char;
begin
oldDateSeparator:=DateSeparator;
DateSeparator:='/';
if TryStrToDateTime('2007/5/7',a) then
showmessage('合法的日期')
else
showmessage('不合法的日期');
DateSeparator:=oldDateSeparator;
end;

 

L

l0v3_y1n9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-25

• #7

多人接受答案了。