Sao excel lại biến dữ liệu thành dữ liệu nhiều các con số?

syquyen1987 đã viết:

Kính gửi các anh!

Em có một thắc mắc là tại sao dữ liệu ban đầu đang là 0,146, em đã nhập dữ liệu đó từ Excel vào Access bằng Code ADODB để lưu hệ thống, và khi em trích xuất ngược lại từ Access vào Excel thì con số đó là 0,145999997854233, con số này khi làm tròn thì đúng là 0,146 ban đầu, các bác có thể giải thích giúp tại sao con số nhiều kí tự số như thế ạ. Em xin cảm ơn!
View attachment 300588

Nhấp chuột vào đây để mở rộng...

Hoàng Trọng Nghĩa đã viết:

Cái số lẻ ở thanh fx là số thực là kết quả được tính toán bởi công thức nào đó, còn số ở cột E được định dạng kiểu "#,##.00" hoặc "0.00". Cho nên nếu không làm tròn số thì nó sẽ tính theo số thực.

Nếu bạn nhập trên Access, thì Field Ni, bạn nên định dạng nó kiểu Single, tôi nghĩa nó sẽ không bị vậy nữa.

Nhấp chuột vào đây để mở rộng...

VetMini đã viết:

Số thực chứa trong máy luôn luôn có sai số từ 0 đến10E-10
Đó là tiêu chuẩn chung cho máy tính bình thường.
Người sử dụng không làm được gì cả ngoài việc khi công trừ nhân chia thì dùng hàm Round để ra dạng mong muốn.

Nhấp chuột vào đây để mở rộng...

syquyen1987 đã viết:

Trong file Access em để kiểu Single rồi ạ, file Access cho con số đúng với input từ excel. Nhưng khi trích xuất ra file excel thì số nào cũng có nhiều kí tự số ạ

Nhấp chuột vào đây để mở rộng...

Hoàng Trọng Nghĩa đã viết:

Vậy khi xuất ra Excel bạn Select CSng(Ni) xem sao. Hoặc định dạng Select Format(Ni,'0.00') thử xem.

Nhấp chuột vào đây để mở rộng...

syquyen1987 đã viết:

Em không nói về định dạng format ạ, em muốn nói ở đây là tại sao số thực file trích xuất có sai lệch rất rất nhỏ (không giống với dữ liệu đưa vào ạ).

Nhấp chuột vào đây để mở rộng...

ongke0711 đã viết:

Bạn đã kiểm tra nguồn dữ liệu từ Excel (đầu vào) đưa vào Access chưa? Bạn nói nhập nó từ Excel vào Access, sau đó xuất ngược lại từ Access vào Excel.
Nếu dữ liệu từ Excel là kết quả của công thức tính toán nào đó và nó là số lẻ hơn 3 số thập phân thì khi chuyển vào Access nó cũng sẽ giữ nguyên như vậy.
Nếu bạn gõ tay 0.146 vào sheet Excel và import Access thì khi xuất (export) nó vẫn là 0.146, không tự đẻ thêm các số thập phân.

Nhấp chuột vào đây để mở rộng...

syquyen1987 đã viết:

Data input trong excel là nhập tay ạ, có 3 số sau dấu phẩy (vd 0.146), sau đó nhập vào Access thì vẫn như vậy ạ, nhưng khi trích xuất dữ liệu ra file excel bằng code adodb thì lại có nhiều số sau dấu phẩy ạ (file Access để lưu toàn bộ dữ liệu, còn file excel sẽ tạo form để người dùng muốn trích xuất dữ liệu theo chọn lựa thời gian người dùng chỉ định)

Nhấp chuột vào đây để mở rộng...

syquyen1987 đã viết:

Data input trong excel là nhập tay ạ, có 3 số sau dấu phẩy (vd 0.146), sau đó nhập vào Access thì vẫn như vậy ạ, nhưng khi trích xuất dữ liệu ra file excel bằng code adodb thì lại có nhiều số sau dấu phẩy ạ (file Access để lưu toàn bộ dữ liệu...

Nhấp chuột vào đây để mở rộng...

ongke0711 đã viết:

Tôi kiểm tra việc cập nhật dữ liệu vào Access và lấy dữ liệu ra từ Access thì thấy không có sự thay đổi các số thập phân gì cả (nếu không có sự tính toán trong đó). Bạn xem ví dụ đơn giản bên dưới.

Nhấp chuột vào đây để mở rộng...

Select Case Sheet2.Range("L2").Value
            Case "Show By Detail"
                i = 2
                Do While Len(Sheet2.Cells(i, 9).Value) > 0
                    
            
                    lr = sht.Cells(Rows.Count, "A").End(xlUp).Row
                    
                    sql = "SELECT * FROM " & accessTable1 & " Where [Sample_Name] = '" & Sheet2.Cells(i, 9).Value & "' And [Date1] BETWEEN #" & Format(SD, "yyyy-mm-dd") & "# AND #" & _
                            Format(ED, "yyyy-mm-dd") & "#"
                            
                    
                    rs.Open sql, con
                    
                    If lr = 1 Then
                        sht.Cells(2, 1).CopyFromRecordset rs
                    Else
                        sht.Cells(lr + 2, 1).CopyFromRecordset rs
                    End If
                    
                    sht.Columns("K:L").Clear
                    sht.Columns("B:B").NumberFormat = "dd/mm/yyyy h:mm"
                    sht.Columns("C:J").NumberFormat = "0.00"
                    rs.Close
                    'con.Close
                    i = i + 1
                    
                Loop
            
            Case "Show By Daily Average"
                i = 2
                Do While Len(Sheet2.Cells(i, 9).Value) > 0