[Help] Cần giúp về cộng Ngày Tháng năm

[thanhhau828]

Mình có Bài tập như thế này mong các bạn giúp
VD: Mình có 1 Hiện tại là 17/05/2013 mà mình muốn cộng thêm 3 năm 6 tháng 10 ngày. Khi nhấn nút 'Tính" Thì mình sẽ biết Ngày Tháng năm đó.

[Xuân Thanh]

Dùng DateAdd mà tính thôi

Mã PHP:

Function TinhThoiGian(Ngay As Date, SoNam As Integer, SoThang As Integer, SoNgay As Integer) As Date
    Dim NgayKetThuc As Date
    NgayKetThuc = DateAdd("yyyy", SoNam, Ngay)
    NgayKetThuc = DateAdd("m", SoThang, NgayKetThuc)
    NgayKetThuc = DateAdd("d", SoNgay, NgayKetThuc)
    TinhThoiGian = NgayKetThuc
End Function 


[thanhhau828]

VD: e có 4 Ngaybatdau, Nam, Thang, Ngay
em muốn cộng thêm 3 năm 6 tháng 10 ngày
e viết như thế có đúng không nha?

Private Sub cmd_Tinh_Click()
Dim NgayKetThuc As Date
NgayKetThuc = DateAdd("yyyy", 3, Ngaybatdau)
NgayKetThuc = DateAdd("m", 6, NgayKetThuc)
NgayKetThuc = DateAdd("d", 10, NgayKetThuc)
MsgBox NgayKetThuc
End Sub

Mong a chỉ thêm.

[Xuân Thanh]

Trên form có 4 textbox : NgayBatDau, Nam, Thang, Ngay thì

Mã PHP:

Private Sub cmd_Tinh_Click()
    Dim NgayKetThuc As Date
    NgayKetThuc = DateAdd("yyyy", Nam, Ngaybatdau)
    NgayKetThuc = DateAdd("m", Thang, NgayKetThuc)
    NgayKetThuc = DateAdd("d", Ngay, NgayKetThuc)
    MsgBox NgayKetThuc
End Sub 


[thanh_triet09]

Cho mình hỏi tí. Mình có 1 textbox1 chứa ngày (15/5/2013). sau khi nhập xong thì textbox sẽ tự động cộng thêm 3 tháng 3 tuần 3 ngày thì viết làm sao.

[thanhhau828]

A Xuân Thanh ah.
E làm như cách a chỉ mà không cho kết quả đúng? Không biết tại sao nữa? Nó cho ra kết quả tùm lum ah. Mong a cho e xin bài mẫu được không?
Mong a giúp

[Minh Tiên]

Code XT hướng dẫn chạy OK mà bạn !
Bạn xem file này nhé !

Demo
Thân chào !