運算式........ |
答題得分者是:ddy
|
kenji
一般會員 發表:32 回覆:44 積分:20 註冊:2002-08-05 發送簡訊給我 |
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
|
ddy
站務副站長 發表:262 回覆:2105 積分:1169 註冊:2002-07-13 發送簡訊給我 |
function MyRound(iValue:Double; UnderZero:integer):string; Var m:double; n:double; begin n:= exp(ln(10) * UnderZero); //小數點下的位數 m:=round(ivalue *n); m:=m / n; Result :=FormatFloat('####.############',m); end;參考看看 Round 是將其小數四捨五入後化成整數 故n 值就是先把小數點移至要被四捨五入的地方 例如小數點下二位,就是n=100,underzero=2 ( 10的2次方) 最後四捨五入完了,再除回n值即可 例: self.Caption :=MyRound(12.9351,0); //為13 self.Caption :=MyRound(12.9351,1); //為12.9 self.Caption :=MyRound(12.9351,2); //為12.94 self.Caption :=MyRound(12.9351,3); //為12.935 self.Caption :=MyRound(12.9351,4); //為12.9351 可修改符合你所需要的 噓~~~~~~沉思中… 發表人 - ddy 於 2002/08/18 18:53:01 |
kenji
一般會員 發表:32 回覆:44 積分:20 註冊:2002-08-05 發送簡訊給我 |
|
ddy
站務副站長 發表:262 回覆:2105 積分:1169 註冊:2002-07-13 發送簡訊給我 |
|
kenji
一般會員 發表:32 回覆:44 積分:20 註冊:2002-08-05 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |