Xuân Thanh > 02-09-13, 08:44 PM
Function HenNgay(TuNgay As Date, SoNgay As Integer, SoNgayLe As Integer)
Dim So As Integer, SoDu As Integer
So = Int(SoNgay / 5)
SoDu = SoNgay - So * 5
HenNgay = IIf(So > 0, TuNgay + So * 7 + SoDu + SoNgayLe, IIf(Weekday(TuNgay) > 4, TuNgay + SoDu + 2 + SoNgayLe, TuNgay + SoDu + SoNgayLe))
End Function