Option Explicit
Function Culy_ThGian(DTM As Byte, Optional Sang As String = "s", _
Optional GiaoMau As Byte = 0, Optional Culy As Boolean = True)
Dim sRng As Range, Rng As Range, Sh As Worksheet
Dim Rws As Long
Set Sh = Sheets("Tong"): Set Rng = Sheets("Tong").Range("BangTra")
Rws = Rng.Rows.Count: Sang = UCase$(Sang)
Set Rng = Rng.Cells(1, 1).Resize(Rws)
Set sRng = Rng.Find(DTM, , xlFormulas, xlWhole)
If Culy Then
Culy_ThGian = sRng.Offset(, IIf(GiaoMau = 0, 6, 5)).Value
Else
If Sang = "S" Then
Culy_ThGian = sRng.Offset(, IIf(GiaoMau = 0, 2, 1)).Value
Else
Culy_ThGian = sRng.Offset(, IIf(GiaoMau = 0, 4, 3)).Value
End If
End If
End Function
Bạn xem lại ví dụ 2 và 4 có vấn đề gì không:Sếp giao cho em bài toán này để tính thời gian cho nhân viên mà e làm hoài không ra. Mong các anh chị em giúp đỡ. đây là link: http://www.megaupload.com/?d=GOJTPCVE
http://www.megaupload.com/?d=GOJTPCVE
Thanks đc giúp đỡ.
Option Explicit
Function HeSo(Sang As String, GiaoMau As Byte, Optional CuLy As Boolean = True) As Byte
Dim Temp As Byte
If UCase$(Sang) = "S" Then
HeSo = 2
ElseIf UCase$(Sang) = "C" Then
HeSo = 4
End If
If CuLy Then HeSo = 6
If GiaoMau = 0 Then HeSo = HeSo + 1
End Function
