Cần code tính ngày đến hạn tiết kiệm

[agribanktanphu]

Hiện tại tôi đang cần đoạn code để tính ngày đến hạn của sổ tiết kiệm. Nếu ai có thì giúp tôi với. Tôi đang làm 1 chương trình in sổ tiết kiệm nhưng nó tính ngày đến hạn không chính xác. Ví dụ như qua tháng 2 thì nó sẽ bị xê dịch 1 hoặc 2 ngày nếu tính trong nhiều năm. Cảm ơn trước nghen

 

[laohacpt]

bạn có thể tham khảo trong File này của mình. Đó là sử dụng hàm EDATE bạn à... Tuy nhiên muốn sử dụng nó bắt buộc Office phải cài Add-in Analysis Toolpak...

 

[SA_DQ]

Có ngay trong VBA đó mà!

Hiện tại tôi đang cần đoạn code để tính ngày đến hạn của sổ tiết kiệm. Nếu ai có thì giúp tôi với. Tôi đang làm 1 chương trình in sổ tiết kiệm nhưng nó tính ngày đến hạn không chính xác. Ví dụ như qua tháng 2 thì nó sẽ bị xê dịch 1 hoặc 2 ngày nếu tính trong nhiều năm. Cảm ơn trước nghen

Bạn có thể dùng hàm
= DateDiff(Interval As String, Date1, Date2, [FirstDayOfWeek As VbDayOfWeek = vbSunday], [FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1])

The [B][I]interval[/I][/B] [URL="http://javascript<b></b>:hhobj_7.Click()"]argument[/URL] has these settings:
Setting     Description
yyyy           Year
q            Quarter
 m           Month
 
D             Day 
. . . . . .

Bạn cần sửa lại thành hàm người dùng 1 tẹo nữa là OK ngay í mà!