Đánh giá chủ đề:
  • 8 Votes - 4.5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tính ngày làm việc thực tế giữa khoảng thời gian
#1
Rất nhiều nhà quản lý kế hoạch ( planning) muốn tính ngày làm việc thực tế giữa hai khoảng thời gian.
Dưới đây mình xin giới thiệu đoạn code tính ngày làm việc thực tế. Trừ thứ 7 và chủ nhật. Mời các bạn tham khảo.


Mã:
Function CalcWorkdays(StartDate, EndDate) As Integer
    Dim LTotalDays As Integer
    Dim LSaturdays As Integer
    Dim LSundays As Integer
    On Error GoTo Err_Execute
    CalcWorkdays = 0
    If IsDate(StartDate) And IsDate(EndDate) Then
        If EndDate <= StartDate Then
            CalcWorkdays = 0
        Else
            LTotalDays = DateDiff("d", StartDate - 1, EndDate)
            LSaturdays = DateDiff("ww", StartDate - 1, EndDate, 7)
            LSundays = DateDiff("ww", StartDate - 1, EndDate, 1)
            'Workdays is the elapsed days excluding Saturdays and Sundays
            CalcWorkdays = LTotalDays - LSaturdays - LSundays
        End If
    End If
    Exit Function
Err_Execute:
    'If error occurs, return 0
    CalcWorkdays = 0
End Function
Chú ý:
1/Nếu chúng ta làm luôn thứ bảy thì thay thế:
Mã:
CalcWorkdays = LTotalDays - LSaturdays - LSundays
Thành:
Mã:
CalcWorkdays = LTotalDays -LSundays
2/ Phạm vi hàm này không bao gồm ngày lễ. Lẽ ra mình có thể thiết kế tính luôn ngày lễ nếu như chúng ta không có nghỉ tết âm lịch và giỗ tổ Hùng Vương. Mình sẽ bổ sung nếu tìm thấy module chuyển ngày dương thành âm lịch!

Thân mến!


File đính kèm
.rar   tinhngaylamviec.rar (Kích cỡ: 12.27 KB / Tải về: 95)
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
Bổ sung demo.
Nếu các bạn không down được , vui lòng vào link sau:
https://sites.google.com/site/thuvienthu...ects=0&d=1
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Thuộc tính Startup MS Access toàn tập với VBA Noname 2 2,736 18-04-16, 04:50 PM
Bài mới nhất: ongke0711
  Tính số ngày sử dụng chương trình Noname 6 2,742 21-07-14, 06:38 PM
Bài mới nhất: ndthanh29
Question [Help] Giúp mình tạo backup database theo ngày tháng chỉ định hugox03 3 753 05-02-14, 11:34 PM
Bài mới nhất: morosumo
  Làm sao để mở data Access ở chế độ Exclusively Noname 1 2,148 23-08-12, 11:02 AM
Bài mới nhất: camau
  Tìm ngày có thứ đầu tiên trong tháng Noname 0 1,098 27-08-10, 12:56 AM
Bài mới nhất: Noname

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ