TruongVanTruong > 31-08-13, 11:46 AM
dtv197 > 31-08-13, 12:25 PM
TruongVanTruong > 31-08-13, 02:11 PM
TruongVanTruong > 01-09-13, 01:23 PM
Xuân Thanh > 01-09-13, 04:43 PM
Function NgayHen(TuNgay As Date, SoNgay As Integer)
Dim So As Integer, SoDu As Integer
So = Int(SoNgay / 5)
SoDu = SoNgay - So * 5
NgayHen = TuNgay + So * 7 + SoDu
End Function
Truong Van Truong > 14-04-14, 01:53 AM
trunghieu > 14-04-14, 11:42 AM
Function NgayHen()
if isnull(ngaynhan) = false then
if weekday(ngaynhan) < 5 then 'thứ 2 - thứ 4
ngayhen = ngaynhan + 2
else 'thứ 6,7,CN hen den thu 3 tuan sau
ngayhen = ngaynhan + 4
end if
end if
End Function
Xuân Thanh > 14-04-14, 01:53 PM