• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Tính số ngày làm việc trong tuần trong một khoảng thời gian

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Hàm] Tính số ngày làm việc trong tuần trong một khoảng thời gian
• Tính số ngày làm việc trong tuần trong một khoảng thời gian

• Tính số ngày làm việc trong tuần trong một khoảng thời gian

  ongke0711 > 25-07-15, 11:06 PM

  Chào các bạn,
  Trong quá trình làm một số form liên quan đến nhân sự, ngày công nên mình có nhu cầu tính số ngày làm việc trong một khoảng thời gian báo cáo. Có cty thì làm nguyên ngày thứ 7, có cty nghỉ hoặc làm nữa ngày thứ 7 do đó số ngày làm việc cũng khác nhau. Để cho tiện mình cũng đã làm 1 cái hàm TinhNgayLV để xử lý trường hợp này chia sẽ cùng các bạn.
  
  
  
  - Tạo Option group với 3 options : 1. Nghỉ ngày thứ 7; 2. Làm nữa ngày thứ 7; 3. Làm nguyên ngày thứ 7.
  - Textbox txtTuNgay, txtDenNgay, txtTongSoNgayLV.
  - Code như sau:
  

  Mã PHP:

  Option Compare Database
Option Explicit

Function TinhSoNgayLV(dtTuNgay As Date, dtDenNgay As Date) As Double
On Error GoTo XuLy_Loi
   Dim dtNgay   As Date
   Dim iThuTrongTuan As Integer

   'Kiem tra ngay co hop le không?
   If dtTuNgay > dtDenNgay Then
       MsgBox "Ngay khong hop le! Den ngày > Tu ngày", vbCritical, "Thông báo"
       Exit Function
   End If

   TinhSoNgayLV = 0
   
   For dtNgay = dtTuNgay To dtDenNgay
       iThuTrongTuan = Weekday(dtNgay)
       Select Case Me.fmeNgayLV
       Case 1
           If iThuTrongTuan <> vbSunday And iThuTrongTuan <> vbSaturday Then
               TinhSoNgayLV = TinhSoNgayLV + 1
           End If
       Case 2
           If iThuTrongTuan <> vbSunday Then
               If iThuTrongTuan <> vbSaturday Then
                   TinhSoNgayLV = TinhSoNgayLV + 1
               Else
                   TinhSoNgayLV = TinhSoNgayLV + 0.5
               End If
           End If
       Case 3
           If iThuTrongTuan <> vbSunday Then
               TinhSoNgayLV = TinhSoNgayLV + 1
           End If
       End Select
   Next dtNgay

XuLy_Loi_Exit:
   On Error Resume Next
   Exit Function

XuLy_Loi:
   MsgBox "Loi nay da phat sinh:" & vbCrLf & vbCrLf & _
          "So loi: " & Err.Number & vbCrLf & _
          "Loi do: TinhSoNgayLV" & vbCrLf & _
          "Dien giai: " & Err.Description, vbCritical, _
          "Phát sinh loi!"
   Resume XuLy_Loi_Exit
End Function

Private Sub fmeNgayLV_AfterUpdate()
Me.txtTongSoNgayLV = TinhSoNgayLV(Me.txtTuNgay, Me.txtDenNgay)
End Sub

Private Sub txtDenNgay_AfterUpdate()
Me.txtTongSoNgayLV = TinhSoNgayLV(Me.txtTuNgay, Me.txtDenNgay)
End Sub

Private Sub txtTuNgay_AfterUpdate()
Me.txtTongSoNgayLV = TinhSoNgayLV(Me.txtTuNgay, Me.txtDenNgay)
End Sub 


   
  
  
  Demo
• Bài trước Bài tiếp