USER在EXCEL中輸入小數的部份, 利用儲存格格式設定顯示成分數, 例如：1.5 => 1 1/2 ,  1.25=> 1 1/4
讀取方式類似max5020寫的範例如下：

[code delphi]
procedure TfmStk029.XLS2Price1(const sFileName: String);
var j: Integer;
ExcelAP, ExcelWB: Variant;
s: String;
begin
try
ExcelAP:= CreateOleObject('Excel.Application');
ExcelWB:= ExcelAP.WorkBooks.OPEN(sFileName);
ExcelAP.Worksheets[1].Select;
// Append Data from Excel
DataSet_Detail.DisableControls;
j:= 1;
repeat
j:= j 1;
DataSet_Detail.Append;
DataSet_Detail.FieldByName('prc1s_partNo').asString:= ExcelAP.Cells[j, 1].Value;
DataSet_Detail.FieldByName('prc1s_new').asFloat:= ExcelAP.Cells[j, 2].Value;
DataSet_Detail.Post;
s:= ExcelAP.Cells[j 1, 1].Value;
until ( s = '');
finally
ExcelAP.Quit;
end;
DataSet_Detail.First;
DataSet_Detail.EnableControls;
end;
[/code]

請問如何能將資料讀進來後是分數而不是小數?

編輯記錄

如果改用 AsString 讀進來呢 ?  我亂猜的!!!

我想到解決方法了, 既然DELPHI無法讀取EXCEL中的分數, 只能讀成小數,
那就在DELPHI裡寫一支function把小數轉成分數不就得了.

如果是 0.33, 你要轉成 1/3 ?   

這樣中間有誤差的, 要考慮誤差會不會影響後續的計算


===================引 用 ycl2005 文 章===================
我想到解決方法了, 既然DELPHI無法讀取EXCEL中的分數, 只能讀成小數,
那就在DELPHI裡寫一支function把小數轉成分數不就得了.

你把Cell的 Formula 改成分數才取Value吧
不過Delphi這邊要拿String來接才好