如何判断日期是否合法？(0分)

B

babyrun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-10

• #1

我想判断edit中输入的日期是否正确，我设定日期的标准形式为20030710形式的，如果不符合这种形式则报错退出。该如何处理？

 

H

hongdx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-10

• #2

为什么你不用日期型的控件？？？

 

Z

zhumoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-10

• #3

用MaskEdit，你看行不。

 

B

barton

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-10

• #4

写一个函数：
Result := False；
if Length(S) = 8 then
if StrToInt(Copy(S, 1, 4)) in [1900..2100] then
if StrToInt(Copy(S, 5, 2)) in [1..12] then
if StrToInt(Copy(S, 7, 2)) in [1..31] then
Result := True；
我有个函数，支持下列任何一种格式：
yyyy-mm-dd
yyyy-m-dd
yyyy-m-d
mm-dd
m-dd
m-d
dd
d

 

Y

yanyandt2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-10

• #5

delphi不是自己带了一个日期型控件

 

L

lhq_007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-10

• #6

用datetimepicker

 

J

j_shen2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-10

• #7

简单。
procedure TForm1.Button1Click(Sender: TObject);
function isvaldate(s:string):boolean;
var y,m,d:word;
begin
try
y:=strtoint(copy(trim(s),1,4));
m:=strtoint(copy(trim(s),5,2));
d:=strtoint(copy(trim(s),7,2));
result:=isvaliddate(y,m,d);
except
result:=false;
end;
end;
begin
if isvaldate(edit1.Text) then
showmessage('ok');
end;

 

P

panjf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-10

• #8

[][][]
var
MyDate: TDateTime;
try
MyDate := StrToDate(Edit1.text);
except
MessageBox(Handle, '不合法！','', MB_OK);
end;

 

B

babyrun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-10

• #9

谢谢各位，我按你们说的试试，如有问题再来咨询。

 

H

hardware007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-10

• #10

时间范围大的可用maskedit
时间范围小的可用datetimepicker

 

G

glasses

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-10

• #11

我通常是用下面这个方法，基本上可以检验所有格式
try
//时间
StrToDateTime(varDate);
except
showmessage(格式不正确);
Exit;
end;
同理，如果判断别的格式，那DateTimeToStr换成别的：StrToDate;StrToInt,.....

 

仙

仙人掌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-10

• #12

还是建议你用日期控件，就不会有这种问题，
用EDIT不是自找麻烦吗？

 

A

A_LI

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-11

• #13

procedure TForm1.Button1Click(Sender: TObject);
function isvaldate(s:string):boolean;
var y,m,d:word;
begin
try
y:=strtoint(copy(trim(s),1,4));
m:=strtoint(copy(trim(s),5,2));
d:=strtoint(copy(trim(s),7,2));
result:=isvaliddate(y,m,d);
except
result:=false;
end;
end;
begin
if isvaldate(edit1.Text) then
showmessage('ok');
end;
或者用
用MaskEdit
或者用Delphi自带的控件

 

J

jybzjf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-12

• #14

delphi不是自带了一个日期型的控件吗，用它试试啊。

 

B

babyrun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-15

• #15

datetimepicker我知道是提取系统时间的。可是，maskedit会起到什么作用？我得试试

 

S

sword_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-15

• #16

其实用Try...except就可以了

 

B

babyrun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-23

• #17

接受答案了.