如果对一个数值保留1位小数？？？(100分)

W

wanglong0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-05

• #1

如何把cc这个变量保留1位小数，<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; cc: currency;<br>begin<br>&nbsp; cc := 5.85;<br>end;

 

W

wanglong0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-05

• #2

我这么写为什么不对？得到的结果是5.8，正确答案应该是5.9啊？？？<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; cc: currency;<br>&nbsp; cc2:currency;<br>begin<br>&nbsp; cc2 := 5.85;<br>&nbsp; cc := strtocurr(Format('%.1f', [cc2]));<br>end;

 

F

fwd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-05

• #3

round(cc*10)/10

 

L

lisa1002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-06

• #4

roundto(num,-1)

 

D

duxing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-08

• #5

cc := round(cc2 * 10)/10

 

S

szhcracker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-08

• #6

又见到类似的问题了，再顶一把。

 

C

cqwty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-08

• #7

roundto(num,-1)

 

D

duxing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-09

• #8

cc := trunc((cc2 + 0.05),1);