cách tính ngày tháng năm có cộng ngày nghỉ, lễ, nghỉ bù

[accboyde]

các bạn giúp mình với: các bạn lập công thức tính giúp mình với yêu cầu như sau:
VD: (ngày, tháng, năm) hiện tại + 10 (số 10 được hiểu là số ngày làm việc từ t2 đến t6) = (ngày, tháng, năm) tiếp theo đã được cộng ngày t7,cn,ngày lễ, nghỉ bù)
rất mong các bạn sơm giúp mình. Cảm ơn các bạn rất nhiều

[tamnt07]

Bạn nói rõ được hơn không, đọc thấy khó hiểu ghê!

[accboyde]

Bạn nói rõ được hơn không, đọc thấy khó hiểu ghê!

mình muốn
VD: (1) Ngày hiện tại là: 4/20/2010
(2) Số ngày làm việc muốn cộng là: 10
(3) Ngày tiếp theo đã cộng các ngày T7, CN, 30/4, 1/5, nghỉ bù ngày 1/5 là: 5/5/2010
Như thế là từ ngày 04/20/2010 đến ngày 5/5/2010 chỉ có 10 ngày làm việc. Còn tổng ngày kể cả ngày nghỉ là 16 ngày.
Rất mong các bạn lập công thức tính giùm mình để khi chỉ cần nhập số ngày làm việc muốn cộng là ra ngày cuối đã cộng các ngày nghỉ, lễ, nghỉ bù.
Thank all!

[SA_DQ]

Option Explicit

Function SoNgayLamViec(Dat As Date, NumDat As Byte)
 On Error GoTo LoiCT
 Dim jJ As Byte, Tuan As Byte, Bu
  
 Do
   Tuan = Weekday(Dat + jJ)
   If Tuan = 1 Or Tuan = 7 Then
      NumDat = NumDat + 1 + IIf(NghiLe(Dat + jJ), 1, 0)
   Else
      If NghiLe(Dat + jJ) = True Then NumDat = NumDat + 1
   End If
   jJ = jJ + 1
   If jJ >= NumDat Then Exit Do
 Loop
 SoNgayLamViec = Dat + NumDat - 1
Err_:   Exit Function
LoiCT:
   MsgBox Error, , Err:                Resume Err_
End Function 

Function NghiLe(Dat As Date) As Boolean
 Dim Clls As Range
 
9  For Each Clls In Sheets("Tab2").Range("NgLe")
   If Clls.Value = Dat Then
      NghiLe = True:          Exit Function
   End If
 Next Clls
End Function 

Những chú í khi sử dụng:

(1) Bạn fải liệt kê danh sách các ngày nghỉ mà Nhà nước quy định lên nơi nào đó trên trang tính & gán cho nó cái tên tương tự như "NgLe" dòng lệnh 9 có ghi. (Chú í tên trang tính của mình đang là "Tab2" - của bạn sẽ khác (!))

Trong ví dụ của bạn thiếu ngày Giổ Tổ Hùng Vương. (Bạn fải cập nhật hàng năm danh sách các ngày nghỉ âm lịch thì hàm mới đúng được)

(2) Cú fáp hàm tại 1 ô trống nào đó sẽ là =SoNgayLamViec(A1,10) - Ở đây [A1] là ô chức ngày bắt đầu & 10 là số ngày làm việc cần tính.
Hàm trả về ngày làm việc cuối cùng kể từ mốc bắt đầu có kể cả ngày lễ & CN, T7.

Mong rằng sẽ không fải gởi file lên cho bạn & chúc vui 1 cách kiên nhẫn!

[Lê Duy Thương]

mình muốn
VD: (1) Ngày hiện tại là: 4/20/2010
(2) Số ngày làm việc muốn cộng là: 10
(3) Ngày tiếp theo đã cộng các ngày T7, CN, 30/4, 1/5, nghỉ bù ngày 1/5 là: 5/5/2010
Như thế là từ ngày 04/20/2010 đến ngày 5/5/2010 chỉ có 10 ngày làm việc. Còn tổng ngày kể cả ngày nghỉ là 16 ngày.
Rất mong các bạn lập công thức tính giùm mình để khi chỉ cần nhập số ngày làm việc muốn cộng là ra ngày cuối đã cộng các ngày nghỉ, lễ, nghỉ bù.
Thank all!

nếu mà bạn dùng office 2010 thì tôi chỉ cho bạn hàm nay
=WORKDAY.INTL(start_date,days,weekend,holidays)
vd =WORKDAY.INTL(E13,F13,11,A3:AY3)

[ChanhTQ@]

nếu mà bạn dùng office 2010 thì tôi chỉ cho bạn hàm nay
=WORKDAY.INTL(start_date,days,weekend,holidays)
vd =WORKDAY.INTL(E13,F13,11,A3:AY3)

Có fải bổ sung gì đó mới tính được ngày âm lịch, chắc vậy!

[Lê Duy Thương]

Có fải bổ sung gì đó mới tính được ngày âm lịch, chắc vậy!

cái chính ở đây la mình cần biết được danh sách những ngày nghỉ triong năm của nhà nước quy định, và ngày nghỉ của riêng đơn vị công tác
ví dụ như nghỉ phép năm, nghỉ tết nguyên đán. vv.vv . để tao thành những ngày gọi là holidays
đây là ví dụ của công ty tôi đang làm việc

[tamnt07]

Bạn có thể dùng hàm networkdays để tính, và những ngày lế tết nghỉ thì bạn phải liệt kê ra!

[Lê Duy Thương]

Bạn có thể dùng hàm networkdays để tính, và những ngày lế tết nghỉ thì bạn phải liệt kê ra!

hàm networkdays là hàm dùng để tính số ngày làm việc chứ không phải tìm ngày trong tương lai
hàm networkdays sẽ trừ luôn 2 ngày thứ 7 và chủ nhật

[tamnt07]

Đúng rồi hàm networkdays là ngược lại với hàm workday
Trong office 2003 cũng có các hàm này mà, nhưng phải chọn thêm bộ add-in Toolkid gì đó!