Genau das war es...
Kaum macht man es richtig, schon klappt's.
Delphi-Quellcode:
function VarStrToDate( Value : Variant; Default : TDateTime = 0 ) : TDateTime;
begin
if not TryStrToDate( Value, Result ) then
Result := Default;
end;
Vielen Dank
Patrick