Recent content by Despaten R. Purba

Public Function weeknumero(X As Date) Dim bofyear As Date bofyear = DateSerial(Year(X), 1, 1) weeknumero = (X - bofyear + Weekday(bofyear, vbMonday) - 1) / 7 + 1 End Function