Hàm tự tạo tính giờ tăng ca (1 người xem)

[bebeen]

Chào mọi người! Em có ví dụ nhỏ tính tiền tăng ca cho công nhân ở Công ty. Em đã viết nhưng không hiểu sai ở chỗ nào mà nó không cho kết quả đúng. Em đưa lên đây để mọi người xem dùm cho em nhé!

Public Function LamThem(ByVal LuongCB As Double, ByVal Heso1 As Integer, ByVal Heso2 As Integer, ByVal Tangca As Integer, ByVal Heso3 As Integer) As Double    
LamThem = (((LuongCB / Heso1) / Heso2) * Tangca) * Heso3 'Ham nay sai o cho nao?
End Function

Em đã sửa thế này vẫn không được:

Public Function LamThem(ByVal LuongCB As Double, ByVal Heso1 As Byte, ByVal Heso2 As Byte, ByVal Tangca As Byte) As Double        
Dim LCB1 As Double, LCB2 As Double 
LCB1 = LuongCB / Heso1
LCB2 = LCB1 / Heso2
LamThem = (LCB2 * Tangca) * 1.5
End Function

Em cám ơn!

 

[hoangvuluan]

Sai do khai báo kiểu không đúng (tangca trong dữ liệu là số thực).
Sửa lại như sau:
Public Function LamThem(LuongCB, Heso1, Heso2, Tangca, Heso3) As Double
LamThem = (((LuongCB / Heso1) / Heso2) * Tangca) * Heso3
End Function


>>> góp ý ngoài lề: nếu hàm tự tạo chỉ đơn thuần ghi lại công thức của Excel thì không nên viết lại làm gì, nó sẽ chậm hơn hẳn so với dùng trực tiếp các công thức