Viết bởi: legendare 05-10-12, 08:07 PM Chuyên mục: Query - Bài trả lời (1) |
Viết bởi: yeubongdo01 05-10-12, 10:57 AM Chuyên mục: Forms - Bài trả lời (6) |
Viết bởi: Multivitamin 05-10-12, 12:42 AM Chuyên mục: Query - Bài trả lời (7) |
Viết bởi: Xuân Thanh 04-10-12, 04:52 PM Chuyên mục: Thư Viện Hàm - Không có hồi đáp |
Function ThamNien(StartDate As Date, EndDate As Date) As Long
Dim SoNam As Long
If EndDate - StartDate < 0 Then MsgBox "Khong tinh duoc tham nien", , "Thong Bao": ThamNien = 0: Exit Function
If Day(StartDate) = Day(EndDate) And Month(StartDate) = Month(EndDate) Then
SoNam = Year(EndDate) - Year(StartDate)
ElseIf Day(StartDate) = Day(EndDate) And Month(StartDate) < Month(EndDate) Then
SoNam = Year(EndDate) - Year(StartDate)
ElseIf Day(StartDate) = Day(EndDate) And Month(StartDate) > Month(EndDate) Then
SoNam = Year(EndDate) - Year(StartDate) - 1
ElseIf Day(StartDate) < Day(EndDate) And Month(StartDate) = Month(EndDate) Then
SoNam = Year(EndDate) - Year(StartDate)
ElseIf Day(StartDate) > Day(EndDate) And Month(StartDate) = Month(EndDate) Then
SoNam = Year(EndDate) - Year(StartDate) - 1
End If
ThamNien = SoNam
End Function
Viết bởi: tanthuc 04-10-12, 02:00 PM Chuyên mục: Forms - Bài trả lời (4) |
Chủ đề Mới nhất |
The Study of Vault Constr... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: Karenfeemy-10 Giờ trước- » Bài trả lời: 0- » Lượt xem: 4 |
Trợ giúp về Textbox với c... -Chuyên mục: Forms-Đăng bởi lần cuối: Nguyên Thông-10 Giờ trước- » Bài trả lời: 16- » Lượt xem: 5,851 |
khoe 247 chuyen gia cham ... -Chuyên mục: Chuyện bốn phương-Đăng bởi lần cuối: rssellaumlin-15-04-24, 04:42 PM- » Bài trả lời: 0- » Lượt xem: 13 |
In mã vạch tạo từ access ... -Chuyên mục: Forms-Đăng bởi lần cuối: huyhoang22-15-04-24, 11:25 AM- » Bài trả lời: 38- » Lượt xem: 20,768 |
Dòng Thơ Nhạc Trích Đoạn -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-11-04-24, 06:04 PM- » Bài trả lời: 2- » Lượt xem: 38 |
Kết nối bảng từ access A ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: hieunx-11-04-24, 01:23 PM- » Bài trả lời: 5- » Lượt xem: 70 |
Lấy dữ liệu từ 1 cột của ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-09-04-24, 11:34 AM- » Bài trả lời: 11- » Lượt xem: 475 |
Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: recca123-07-04-24, 11:27 PM- » Bài trả lời: 38- » Lượt xem: 1,488 |
[Lỗi] Automation error kh... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: AnNguyen-05-04-24, 09:30 AM- » Bài trả lời: 4- » Lượt xem: 65 |
Lọc tên vật tư theo nhóm -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-02-04-24, 04:00 PM- » Bài trả lời: 1- » Lượt xem: 44 |
Diễn đàn Thống kê |
» Thành viên: 4,452 » Thành viên mới nhất: kilofertsrer » Các chủ đề diễn đàn: 9,858 » Các bài viết diễn: 48,437 Thống kê đầy đủ |