TryStrToDate

[Perlsau]

Dann ersetz doch einfach mal TDate durch TDateTime

Delphi-Quellcode:

function VarStrtToDate(Value: Variant; Default: TDateTime = 0 ) : TDate;
begin
   if TryStrToDate(Value,Default) then
      Result := DateUtils.DateOf(Default) else
      Result := 0;
end;