如何实现只要有小数就入呀,比如:23.1也变成24

Question

如何实现只要有小数就入呀,比如:23.1也变成24
-----------
求最简便的办法.谢谢了.

Answer 1

a= 23.1
b= a - fix(a)<a

Answer 2

aa=23.1
if aa<>int(aa) then aa=int(aa)+1

Answer 3

优先级的问题,可能要加个() ,
即a= 23.1
b= a -( fix(a)<a)

Answer 4

先判断是不是整数 
如不是 then +1

Answer 5

楼上的那个应该改一下：
a= 23.1
b= fix(a) + ( fix(a) < a )

Answer 6

( fix(a) < a ):成立则返回1,否则返回0

Answer 7

dim i
i = 23.1
print (abs(int(-i)))这样可以吧？

Answer 8

round(a+0.5)
--------
a=3.0
b=round(a+0.5)  '不对了吧

Answer 9

round(a+0.5)这个还是要加判断，整数就不对了abs(int(-a))不用加判断，整数小数都可以得到正确结果吧

Answer 10

a=3.0
round(3.0+0.5)=round(3.5)=4除非你是指double精度问题？

Answer 11

a= 23.1
b= a -( fix(a)<a)好！

Answer 12

Sgn(a) * (Abs(Fix(a)) - (Fix(a) <> a))
支持正负数判断
如果a= 2.1 结果=3
如果a= -2.1 结果=-3

Answer 13

Dim f As Single
    f = CSng(Text1.Text)    f = IIf(f = Int(f), f, Int(f) + 1)

Answer 14

Option ExplicitPrivate Sub Command1_Click()
Dim a As Double
Dim b As Double    a = Val(Text1.Text)
    b = Sgn(a) * (IIf(a > 0, Abs(Int(a)) + 1, Abs(Int(a))))
    
    MsgBox bEnd Sub

Answer 15

m = 23.1
Print CInt(m + 0.5)

Answer 16

Cint(m+0.5) 
debug.print Cint(m+0.5)
最简单的方法。0.5-0.6之间的数都可以。

Answer 17

比如Cint(0.0000000001+0.5)=1
Cint(0.00000000001+0.59)=1