RE: Tính ngày tháng
thanh_triet09 > 27-05-13, 03:16 PM
Cám ơn anh Xuân Thanh, đã làm được rùi.... hjhjhjhj, Cái này hay thiệt tự động tính tháng nếu số ngày vượt quá quy ướt (28, 30, 31 ngày trong tháng)
[code]Private Sub NGAYDUSINH_GotFocus()
Dim ngaythang As Date
ngaythang = Me.NGAYPHOI
ngaythang = DateAdd("d", 24, ngaythang)
ngaythang = DateAdd("m", 3, ngaythang)
Me.NGAYDUSINH = ngaythang
End Sub