Tính số tuần và tháng

[hunglao]

A/c giúp giùm em hàm tính tuần và tháng trong VBA với
Em xài WEEKNUM() và MONTH() như EXEL mà ko dc a
thakn a/c

 

[ndu96081631]

A/c giúp giùm em hàm tính tuần và tháng trong VBA với
Em xài WEEKNUM() và MONTH() như EXEL mà ko dc a
thakn a/c

Vậy thì bạn tự mình xây dựng hàm WEEKNUM đi
Chẳng hạn là vầy:

Function WeekNumUDF(DateValue As Date, Optional TypeValue As Byte = 1) As Long
  Dim FirstDay As Date
  If TypeValue > 0 And TypeValue < 3 Then
    FirstDay = DateSerial(Year(DateValue), 1, 1)
    WeekNumUDF = Int((DateValue - FirstDay - Weekday(DateValue - (2 - TypeValue) * 6, 2) + 8) / 7) - (Weekday(FirstDay) <> TypeValue)
  End If
End Function