gaubu117 > 29-06-13, 05:50 PM
bomnhauag > 29-06-13, 08:34 PM
dim ngayTT as Date
t1 = dlookup("tThang", "dmKH", "ID=" & idKH)
t2 = dlookup("tNgay", "dmKH", "ID=" & idKH)
ngayTT = DateSerial(year(ngayBill), month(ngayBill) + t1, t2)
dim ngayTT as Date
dim tNam as integer, tThang as integer
t1 = nz(dlookup("tThang", "dmKH", "ID=" & idKH), 0) + month(ngayBill)
t2 = nz(dlookup("tNgay", "dmKH", "ID=" & idKH), 0)
tNam = year(ngayBill)
if t1 > 12 then
tNam = tNam + 1
t1 = t1 - 12
end if
ngayTT = DateSerial(tNam, t1, t2)
gaubu117 > 06-07-13, 11:08 AM