Option Explicit
Function BanThang(MaNV As Range, Optional Thang As Byte)
Dim Ma As String, sTh As String: Const CH As String = "."
Dim Cls As Range, VTr As Byte
Ma = "GPE"
If IsMissing(Thang) Or Thang = 0 Then Thang = Month(Date)
For Each Cls In MaNV
VTr = InStr(Cls.Offset(, 2).Value, CH)
sTh = Mid(Cls.Offset(, 2).Value, VTr + 1, 2)
If Right(sTh, 1) = CH Then sTh = Left(sTh, 1)
If InStr(Ma, Cls.Value) < 1 And CByte(sTh) = Thang And Cls.Offset(, 3) > 0 Then
BanThang = BanThang + 1
Ma = Ma & Cls.Value
End If
Next Cls
End Function
Trời ạh! Sao lại có vụ ngày gần nhất là ngày 6 và ngày 7 vậy? Bạn phải nói rõ quan niệm "ngày gần nhất" là ngày như thế nào trước đã!
Option Explicit
Function TínhTongGànNhát(Ma, Ngày As Range, Optional TTien As Boolean = True) As Variant
Dim Cls As Range
Dim Dat As Date, Dat0 As Date
Dim Jj As Integer
For Jj = 0 To 31
Dat = Date - Jj:
If Dat < Dat0 Then
If TTien = False Then TínhTongGànNhát = Dat0: Exit Function
End If
For Each Cls In Ngày
If DateIsText(Cls.Value) < Dat0 Then Exit For
If Dat = DateIsText(Cls.Value) And Ma = Cls.Offset(, -2).Value And Cls.Offset(, 1) > 0 Then
Dat0 = Dat
TínhTongGànNhát = TínhTongGànNhát + Cls.Offset(, 1).Value
End If
Next Cls
Next Jj
End FunctionFunction DateIsText(SDat As String) As Date
Dim VTr As Byte, Ngay As Byte, Thang As Byte, Nam As Integer
Const Ch As String = "."
VTr = InStr(SDat, Ch): If VTr < 1 Then Exit Function
Ngay = CByte(Left(SDat, VTr)): SDat = Mid(SDat, VTr + 1, 9)
VTr = InStr(SDat, Ch): Thang = CByte(Left(SDat, VTr))
Nam = Mid(SDat, VTr + 1, 4)
DateIsText = DateSerial(Nam, Thang, Ngay)
End Function
