hỏi cách chuyển số batch sang ngày tháng năm (2 người xem)

[splendid2105]

mọi người cho hỏi mình có dãy số mặc định như sau:

aabbc: trong đó (aa = số năm ; bb = số tuần trong năm ; c = số thứ tự ngày của tuần đó)

VD: 16112 = 16: năm 2016 ; 11 = tuần 11 ; 2 = ngày số thứ 2 trong tuần 11; suy ra là ngày 15/03/2016

vậy cho mình hỏi có cách nào tạo công thức để chuyển dãy số trên ra ngày tháng năm mình cần tìm ko ?

xin cám ơn

 

[SA_DQ]

Bạn thử với hàm người dùng sau đây:

Option Explicit
Function BatchToDate(Num As Long) As Date
 Dim DauNam As Date, J As Integer, Tmp As Byte
 Dim StrC As String
  
 StrC = CStr(Num)
 DauNam = DateSerial(2000 + CByte(Left(StrC, 2)), 1, 1)
 StrC = Mid(StrC, 3, 5)
 For J = 0 To 7
    If Weekday(DauNam + J) = 1 Then Exit For
 Next J
 Tmp = Left(StrC, Len(StrC) - 1)
 BatchToDate = DauNam + J + (CByte(Tmp) - IIf(J > 0, 1, 0)) * 7 + CByte(Right(StrC, 1))
End Function

Cách xài: Ở ô trống nào đó trên trang tính bạn nhập cú fáp =BatchToDate(B3)
Ở đây: ô B3 đang chứa số Batch của bạn

Chúc thành công.

 

[doveandrose]

mọi người cho hỏi mình có dãy số mặc định như sau:

aabbc: trong đó (aa = số năm ; bb = số tuần trong năm ; c = số thứ tự ngày của tuần đó)

VD: 16112 = 16: năm 2016 ; 11 = tuần 11 ; 2 = ngày số thứ 2 trong tuần 11; suy ra là ngày 15/03/2016

vậy cho mình hỏi có cách nào tạo công thức để chuyển dãy số trên ra ngày tháng năm mình cần tìm ko ?

xin cám ơn

nói vậy tức là từ 1/1/2016 - 3/1/2016 không được tính là tuần 1 ?
từ 3/1/2016 -> 13/3/2016 có 70 ngày (10 tuần )
sang 15/3/2016 là tuần thứ 11
vậy ngày 1/1/2016 -> ngày 3/1/2016 gọi là tuần 0 hay không có tên ?