如何判断日期变量的输入是否合法

[liufeng]

举例：
在TEdit或TMaskEdit中输入日期，并把这个日期存入数据库中，在数据库中该字段为日期变量，请问如何能检验TEdit或TMaskEdit中输入的日期合法？
不胜感谢！

[kxy]

var
aDate : TDateTime;
begin
try
aDate := StrToDateTime(Edit1.Text);
except
ShowMEssage('');
Edit1.SetFocus;
end;
end;

[Wingsun]

使用如下程序：返回值为空则表错误。该段程序还可以纠正输入的格式
如：1999.9.9经过转换成为：1999-9-9
1999a9b9---------->1999-9-9
1999-9------------>1999-9-1
1999-------------->1999-1-1
很有用的。
AnsiString __fastcall FormatDate(AnsiString DateTime)
{
AnsiString TempStr1 , TempStr2;
int i , j;
if (DateTime=="")
{
return "";
}
TempStr2 = DateTime.Trim();
if(TempStr2== "")
{
return "";
}
for(i = 1; i<TempStr2.Length();i++)
{
if ((TempStr2.SubString(i, 1).AnsiCompare("0")< 0) || (TempStr2.SubString(i, 1).AnsiCompare("9") >0) )
break;
}
TempStr1 = TempStr2.SubString(1,i - 1);
if (i <= TempStr2.Length())
{
for (j = i ;j<=TempStr2.Length();j++)
{
if ((TempStr2.SubString(j, 1).AnsiCompare("0")>=0) && (TempStr2.SubString(j, 1).AnsiCompare("9")<=0))
break;
}
TempStr2 = TempStr2.SubString(j,TempStr2.Length()-j+1);
for(i = 1 ;i< TempStr2.Length();i++)
{
if ((TempStr2.SubString(i, 1).AnsiCompare("0")<0) ||(TempStr2.SubString(i, 1).AnsiCompare("9")>0))
break;
}
if(i==TempStr2.Length())
{
TempStr2 = TempStr1 + "-" + TempStr2.SubString(1,1)+"-01";
}
else
{
TempStr1=TempStr1+"-"+TempStr2.SubString(1,i-1);
TempStr2 = TempStr2.SubString(i,TempStr2.Length()-i+1);
for(i = 1;i<TempStr2.Length();i++)
{
if((TempStr2.SubString(i, 1).AnsiCompare("0")>=0)&&(TempStr2.SubString(i, 1).AnsiCompare("9")<=0))
break;
}
TempStr2 = TempStr2.SubString(i,TempStr2.Length()-i+1);
for(i = 1;i<=TempStr2.Length();i++)
{
if((TempStr2.SubString(i, 1).AnsiCompare("0")<0)||(TempStr2.SubString(i, 1).AnsiCompare("9")>0 ))
break;
}
TempStr2 = TempStr2.SubString(1,i-1);
if(TempStr2=="")
TempStr2 = TempStr1 + "-1";
else
TempStr2 = TempStr1 + "-" + TempStr2;
}
}
else
{
TempStr2 = TempStr1 + "-1-1";
}
try
{
StrToDate(TempStr2);
}
catch( EConvertError & e)
{
MessageBox(NULL,"日期格式错误，请重新输入。","日期格式错误",MB_OK+MB_ICONINFORMATION);
TempStr2="";
}
return TempStr2;
}

[liufeng]

我试过，确实管用！
非常感谢！