VarToDateTime允许更大的灵活性

把不同格式的日期字符串转换成日期

VarToDateTime允许更大的灵活性

StrToDate只能转换数字，所以你的字符串中有月份名，你就要使用VarToDateTime。这里是例子。
   var
     D1, D2, D3 : TDateTime;
   begin
     D1 := VarToDateTime('December 6, 1969');
     D2 := VarToDateTime('6-Apr-1998');
     D3 := VarToDateTime('1998-Apr-6');
     ShowMessage(DateToStr(D1)+' '+DateToStr(D2)+' '+
                 DateToStr(D3));
   end;