引言: 我寫了這個 var TempS : string; TempD : TDateTime; TempS := '30/1/2001 12:00:00' TempD := StrToDateTime(TempS); 在我的電腦run 這一句沒有問題 但我覺得很奇怪 因為 StrToDateTime()中日期的格式應該是 MM/DD/YY HH:MM:SS 所以 temps 應該是有錯出現 但當我用在其他的電腦就有這Econverterror 出現 原因就在 MM/DD/YY HH:MM:SS 跟 DD/MM/YY HH:MM:SS StrToDateTime 應該只接收 MM/DD/YY HH:MM:SS 當MM 大於 12 就會有問題出現 請問有大大知道是什麼地方的問題 我完全沒有方向 另外的是那個 tempS 我是從 Database 裡的table 裡的其中一個 field 而field的type 是 TimeStamp 這樣拿出來的data 都是 DD/MM/YY HH:MM:SS 那怎麼辦? 我用的是 Paradox7.0 BDE administrator 4.0 謝謝

procedure TForm1.Button1Click(Sender: TObject);
begin
 with query1 do 
   begin
     close;
     sql.Clear;
     sql.Add('select * from table1');
     open;  
     showmessage(fieldbyname('field1').AsString);  
     Label1.Caption :=(formatdatetime('MM"/"DD"/"YY HH:MM:SS',fieldbyname('field1').value)); 
   end;
end;
其中field1的type 是 TimeStamp；
 

procedure TForm1.Button1Click(Sender: TObject);
var
  Dt : TDatetime;
  FormatSettings : TFormatSettings;
begin
  FormatSettings.ShortDateFormat := ShortDateFormat;
  FormatSettings.LongTimeFormat := LongTimeFormat;
  ShortDateFormat := 'dd/mm/yyyy';
  LongTimeFormat := 'hh:mm:ss';
  Dt := StrToDateTime('31/12/2005 18:59:59');
  ShortDateFormat := FormatSettings.ShortDateFormat;
  LongTimeFormat := FormatSettings.LongTimeFormat;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Dt : TDatetime;
  SDF,LTF : String;
begin
  SDF := ShortDateFormat;
  LTF := LongTimeFormat;
  ShortDateFormat := 'dd/mm/yyyy';
  LongTimeFormat := 'hh:mm:ss';
  Dt := StrToDateTime('31/12/2005 18:59:59');
  ShortDateFormat := SDF;
  LongTimeFormat := LTF;
end;