đặt hàm gì để tính tuần thứ mấy trong năm bất kỳ

[thienquangcao]

xin các Anh chỉ dùm. Rất cám ơn

 

[vanle33]

xin các Anh chỉ dùm. Rất cám ơn

Bạn dùng hàm Weeknum() http://www.giaiphapexcel.com/forum/...-về-Ngày-Tháng-và-Thời-Gian&p=50281#post50281

 

[xuan.nguyen82]

Thử cái này xem nhé
(Cách này là mình được anh Hai Lúa Miền Tây hướng dẫn), bạn thử áp dụng xem nhé.

Giả sử bạn gõ tại ô C2 thử là 12 (tuần 12) ô E3 bạn gõ năm, giả sử là 2013, thì tại ô F3 kết quả ra là 3/3 (tuần 3 tháng 3 năm 2013).

Không biết có đúng ý bạn không.

Public Function WeekStart(WhichWeek As Integer, WhichYear As Integer) As Date
    WeekStart = YearStart(WhichYear) + ((WhichWeek - 1) * 7)
End Function

Public Function YearStart(WhichYear As Integer) As Date
Dim WeekDay As Integer
Dim NewYear As Date
NewYear = DateSerial(WhichYear, 1, 1)
WeekDay = (NewYear - 2) Mod 7 'Generate weekday index where Monday = 0
If WeekDay < 4 Then
    YearStart = NewYear - WeekDay
Else
    YearStart = NewYear - WeekDay + 7
End If
End Function

File đính kèm

 

[ndu96081631]

Thử cái này xem nhé
(Cách này là mình được anh Hai Lúa Miền Tây hướng dẫn), bạn thử áp dụng xem nhé.

Giả sử bạn gõ tại ô C2 thử là 12 (tuần 12) ô E3 bạn gõ năm, giả sử là 2013, thì tại ô F3 kết quả ra là 3/3 (tuần 3 tháng 3 năm 2013).

Không biết có đúng ý bạn không.

Public Function WeekStart(WhichWeek As Integer, WhichYear As Integer) As Date
    WeekStart = YearStart(WhichYear) + ((WhichWeek - 1) * 7)
End Function

Public Function YearStart(WhichYear As Integer) As Date
Dim WeekDay As Integer
Dim NewYear As Date
NewYear = DateSerial(WhichYear, 1, 1)
WeekDay = (NewYear - 2) Mod 7 'Generate weekday index where Monday = 0
If WeekDay < 4 Then
    YearStart = NewYear - WeekDay
Else
    YearStart = NewYear - WeekDay + 7
End If
End Function

File đính kèm

với hàm tự tạo này tôi thấy dùng công thức cũng được:

=DATE($E$3,1,1)-WEEKDAY(DATE($E$3,1,1))+2+(C3-(WEEKDAY(DATE($E$3,1,1))<4))*7

Hoặc có thể đặt 1 name:

FirstDate =DATE($E$3,1,1)

Và công thức sửa thành:

=FirstDate-WEEKDAY(FirstDate)+2+(C3-(WEEKDAY(FirstDate)<4))*7