我用的是ACCESS作為資料庫 在程式中運算過後設定顯示格式後 即可顯示四捨五入後數值 我已經在ACCESS中設定好小數點位數了 但回存資料庫後 雖顯示格式無誤 但實際儲存數字 仍保持原數值並非四捨五入後數值 請教各位前輩 如何在運算後回存四捨五入後數值 如果上述可以的話 那如果要求無條件捨去的話 程式須如何書寫設定 又資料庫中如何設定

Hi,Hslin 您好：     四捨五入請參考這篇          http://delphi.ktop.com.tw/topic.php?topic_id=21876     而我測試過只要 ACCESS 中有設定顯示小數點位數，且程式傳入的數值 確定為小數的話是可以正確存入的。我測試的程式碼如下 //這一段是四捨五入的示範 //抱歉「加」號顯示不出來，我用中文的 ﹢ procedure TForm1.Button1Click(Sender: TObject); var    S, T: string; begin    T := Floattostr(1.4);    S := T ﹢ ' rounds to ' ﹢ IntToStr(trunc(1.4 ﹢0.5)) + #13#10;    T := Floattostr(1.5);    S := S ﹢ T ﹢ ' rounds to ' ﹢ IntToStr(trunc(1.5﹢0.5)) ﹢#13#10;    T := Floattostr(-1.4);    S := S ﹢ T ﹢' rounds to ' ﹢IntToStr(trunc(-1.4﹢0.5)) ﹢ #13#10;    T := Floattostr(-1.5);    S := S ﹢ T ﹢ ' rounds to ' ﹢ IntToStr(trunc(-1.5﹢0.5));    MessageDlg(S, mtInformation, [mbOk], 0); end; //這裡是我的測試 procedure TForm1.Button2Click(Sender: TObject); var t : double;     s : string; begin     s := 'insert into table1 (test) values (''' ﹢ edit1.Text ﹢ ''')';;     adocommand1.CommandText := s;     adocommand1.Execute; end; 希望幫得上忙。    ========================

我要努力向上

========================

您好﹗    小弟補充一些﹒ 簡單來說﹐有關實數中整數小數部分的相關函數如下﹕ Round 五舍六入轉為整數     Trunc 無條件舍去小數﹐轉為整數 Frac 傳回實數的小數部分     Int 傳回實數的整數部分    就您的問題來看﹐只需要在存入資料庫前將值轉換一下即可 Trunc(1.6); // 結果就是1 Round(1.6); // 結果就是2 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

有一個最簡單的方法，就是format， 但是回傳是字串，要再轉換型態， 最大的好處是可以設定要四捨五入到小數第幾會 1.654 format('%3.2f',[1.654]) => 1.65 format('%2.1f',[1.654]) => 1.7 format('%1.0f',[1.654]) => 2 如果需要,號的話,但不能換成浮點數 format('%5.0n',[5000.623]) => 5,001 ---------------- 昂首千丘遠， 嘯傲風間， 堪尋敵手共論劍， 高處不甚寒! ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------