SQL使用Sum中的不同组合引起的结果误差

ning84

SQL使用Sum(大小),Sum(Round(大小,1)),Sum(Round(大小,0)),Sum(int(大小))误差
如图所示。

1. Function SqlRetuRs(Str)
   
2.    Dim Cn As ADODB.Connection
   
3.        Set Cn = New ADODB.Connection
   
4.    Dim Rs As ADODB.Recordset
   
5.        Set Rs = New ADODB.Recordset
   
6.         Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
   
7.         Rs.Open Str, Cn, adOpenKeyset, adLockOptimistic
   
8.        Set SqlRetuRs = Rs
   
9. End Function
   
10. 
    
11. 
    
12. Sub lll2()
    
13.    Dim Str, Rr
    
14.    Dim Sht As Worksheet
    
15.    Dim Rng As Range, oRng As Range, oRng1 As Range
    
16.        Set Rng = Selection
    
17.        Set Sht = Rng.Parent
    
18.        Set Rng = Sht.Cells(20, 1).CurrentRegion
    
19.        Rr = Rng.Row + Rng.Rows.Count
    
20.        Set oRng = Sht.Range("A1:G" & Rr)
    
21.       
    
22.        Set oRng1 = Sht.Cells(Rr + 20, 1).Resize(30000, 24)
    
23.        oRng1.Select
    
24.        oRng1.ClearContents
    
25.       
    
26.    Dim Rs As Recordset, Rs1 As Recordset, Rs2 As Recordset
    
27.    
    
28.       
    
29.        Str = "Select  地点,Count(地点),Sum(大小),Sum(Round(大小,1)),Sum(Round(大小,0)),Sum(int(大小)) From [" & Sht.Name & "$" & oRng.Address(0, 0) & "] Where 地点 <> Null  Group by  地点   "
    
30.        Set Rs = SqlRetuRs(Str)
    
31.        Sht.Cells(Rr + 20, "B").CopyFromRecordset Rs
    
32.        Set Rng = Sht.Cells(Rr + 21, "B").CurrentRegion
    
33.        Debug.Print Rng.Address
    
34.       
    
35.        Rng.Select
    
36.        ss1 = Application.WorksheetFunction.Sum(Rng(, 2).Resize(Rng.Rows.Count, 1))
    
37.        ss2 = Application.WorksheetFunction.Sum(Rng(, 3).Resize(Rng.Rows.Count, 1))
    
38.        Str = Sht.Name & vbCr & "小计" & vbCr & "共" & ss1 & "张,合计" & ss2 & "MB"
    
39.        Debug.Print Str
    
40.        Stop
    
41.        Stop
    
42.        Stop
    
43. 
    
44. End Sub
    
45. 
    
46. 
    
47. 
    

复制代码

shiruiqiang

roung(大小，0)，四舍五入。看了一下数据，.1的数据很少，.5\.6\.7的不少，当然相差很多啊。

是先四舍五入再求和试了修改成下面，结果不一样

f8b1987

INT(2.84)=2


ROUND(2.84,1)=2.8

ROUND(2.84,0)=3

函数不同，针对元素取值不同，求和自然不同。