輸入一串字串，做為日期，
但我總不會用 1月大 2月小 去判斷全部日期吧?
是不是有其他函式？
或是演算法?

1.
#include "DateUtils.hpp"
if (IsValidDate(y,m,d))

or

2.
DateSeparator='/'
TDateTime td;
if (TryStrToDate(Edit1->Text,td))
若成立時會td=StrToDate，不成立則td=1899/12/30
會受個別電腦DateSeparator之設定影響

詳細請自行參考help

[code delphi]
bool TfrmMain::MyStrToDateTime(AnsiString S, TDateTime &dt)
{
try{
dt = StrToDateTime(S);
return true;
}
catch (EConvertError &e){
dt = -1;
return false;
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::Button1Click(TObject *Sender)
{
TDateTime dt;
if(MyStrToDateTime(Edit1->Text,dt))
ShowMessage("A Valid DateTime");
else
ShowMessage("An Invalid DateTime");
}
//---------------------------------------------------------------------------
[/code]