比較Cint() , int() , fix() ,round()的區別

 

Cint 小數部分超過0.5的部分都進位，不分正負

例如：Cint（2.51）=3  Cint（-2.51）=-3

        

         小於等於0.5的部分都捨去，不分正負

例如：Cint(2.49)=2 Cint(-2.49)=-2

             Cint(2.5)=2  Cint(-2.5)=-2

 

Int 取到的是小於這個數的最大整數

例如:

Int(2.49)=2   Int(2.50)=2  Int(2.51)=2

Int(-2.49)=-3   Int(-2.50)=-3  Int(-2.51)=-3

 

Round 確定好保留的位元後，後面的直接四捨五入

例如：

Round(2.459,2)=2.46

Round(2.454,2)=2.45

Round(-2.459)=-2.46

Round(-2.454,2)=-2.45   

 

Fix 省略小數位，即直接截走小數位

例如

Fix(2.51)=2    Fix(2.49)=2

Fix(-2.49)=-2      Fix(-2.51)=-2

 

在實際操作中驗證：

Private Sub Command1_Click()

       List1.AddItem "Cint(2.49)=" & CStr(CInt(2.49))

       List1.AddItem "Cint(-2.49)=" & CStr(CInt(-2.49))

       List1.AddItem "Cint(2.50)=" & CStr(CInt(2.5))

       List1.AddItem "Cint(-2.50)=" & CStr(CInt(-2.5))

       List1.AddItem "Cint(2.12)=" & CStr(CInt(2.12))

       List1.AddItem "Cint(-2.12)=" & CStr(CInt(-2.12))

       List1.AddItem "Cint(2.51)=" & CStr(CInt(2.51))

       List1.AddItem "Cint(-2.51)=" & CStr(CInt(-2.51))

    

       List1.AddItem " "

      

       List1.AddItem "Int(2.49)=" & CStr(Int(2.49))

       List1.AddItem "Int(-2.49)=" & CStr(Int(-2.49))

       List1.AddItem "Int(2.50)=" & CStr(Int(2.5))

       List1.AddItem "Int(-2.50)=" & CStr(Int(-2.5))

       List1.AddItem "Int(2.12)=" & CStr(Int(2.12))

       List1.AddItem "Int(-2.12)=" & CStr(Int(-2.12))

       List1.AddItem "Int(2.51)=" & CStr(Int(2.51))

       List1.AddItem "Int(-2.51)=" & CStr(Int(-2.51))

       List1.AddItem "Int(-0.51)=" & CStr(Int(-0.51))

       List1.AddItem "Int(0.51)=" & CStr(Int(0.51))

      

       List1.AddItem " "

      

       List1.AddItem "Round(2.459,2)=" & CStr(Round(2.459, 2))

       List1.AddItem "Round(-2.459,2)=" & CStr(Round(-2.459, 2))

       List1.AddItem "Round(2.454,2)=" & CStr(Round(2.454, 2))

       List1.AddItem "Round(-2.454,2)=" & CStr(Round(-2.454, 2))

      

       List1.AddItem " "

      

       List1.AddItem "fix(2.45)=" & CStr(Fix(2.45))

       List1.AddItem "fix(2.51)=" & CStr(Fix(2.51))

       List1.AddItem "fix(-2.49)=" & CStr(Fix(-2.49))

       List1.AddItem "fix(-2.51)=" & CStr(Fix(-2.51))

End Sub