VBA chuyển đổi ngày làm việc tiếp theo (không rơi vào ngày nghỉ Lễ và cuối tuần) (1 người xem)

[gianghoxaotra]

Dear các ACE Diễn đàn,
Hiện mình cần một Code VBA để chuyển đổi ngày. Nếu ngày cần chuyển đổi rơi vào ngày Lễ (theo bảng có sẵn trong file) hoặc cuối tuần thì sẽ dời qua ngày kế tiếp.
Nếu ngày lễ rơi vào ngày trong tuần, thì không có nghỉ bù, nhưng nếu ngày lễ rơi vào T7 hoặc CN thì sẽ nghỉ bù tùy theo số ngày nghỉ lễ có liên tiếp nhau hay không (ví dụ như 30/04 và 1/5 rơi vào T7, Cn thì nghỉ bù 2 ngày)
Mình có gửi file minh họa. Nhờ các ACE diễn đàn hỗ trợ.
Cảm ơn rất nhiều

 

[Hoang2013]

Hình như bạn trình bày khác với ví dụ đưa ra thì phải:

[TABLE="width: 278"]
[TR]
[TD]Ngày bắt đầu[/TD]
[TD]         Ngày Chuyển đổi[/TD]
[/TR]
[TR]
[TD="align: right"]12/24/2016[/TD]
[TD="align: right"]12/26/2016[/TD]
[/TR]
[TR]
[TD="align: right"]1/26/2017[/TD]
[TD="align: right"]2/2/2017[/TD]
[/TR]
[TR]
[TD="align: right"]11/10/2017[/TD]
[TD="align: right"]11/13/2017[/TD]
[/TR]
[/TABLE]

Về dòng thứ 2: Từ ngày 26/1 đến 1/2 (năm 2017) có 2 ngày nghỉ (1 thứ 7 & 1 CN); Vậy tại sao không cộng tiếp vô (để thành 4/2/17)

Dòng thứ 3 Ngày 10/11 là ngày thứ 6 (trong tuần) & là ngày lễ của Mẽo; Lí ra như bạn viết, thì 'ngày chuyển đổi' theo mình hiểu sẽ là ngày thứ 2 của tuần kế tiếp; (Còn ngày 13/11 là CN vẫn còn trong tuần mà?)

 

[gianghoxaotra]

Hi Hoang2013,
Dòng thứ 2 đúng là mình nhầm nhưng điều chỉnh 2 ngày cộng bù thì cũng chỉ đến 3/2 thui nhé.
Còn dòng thứ 3 là đúng nhé vì 13/11/2017 là ngày Thứ 2 đó bạn ơi.
Mình có tải lại file cho chính xác. Nhờ bạn hỗ trợ nhé. Tks.