Mega Code Archive
How to check if a string is a valid date or time
<![CDATA[
Title: How to check if a string is a valid date or time
function IsDate(str: string): Boolean;
var
dt: TDateTime;
begin
Result := True;
try
dt := StrToDate(str);
except
Result := False;
end;
end;
function IsTime(str: string): Boolean;
var
dt: TDateTime;
begin
Result := True;
try
dt := StrToTime(str);
except
Result := False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsDate('24.07.2001') then
begin
ShowMessage('Yes, it is a date.');
end;
if IsTime('16:23') then
begin
ShowMessage('Yes, it is a time.');
end;
end;
]]>