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

cần tư vấn code tính thời gian quá hạn

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Table
  • [Hỏi] cần tư vấn code tính thời gian quá hạn
• cần tư vấn code tính thời gian quá hạn

• cần tư vấn code tính thời gian quá hạn

  khonggianviet > 02-07-17, 12:04 AM

  Mình mới tập tành access có mấy vấn đề nhờ các bạn tư vấn
  
  
  - Trong form nhập liệu công văn đến có trường (thời hạn=ngày VKS nhận - ngày ban hành)  với điều kiện tùy thuộc vào loai công văn ở trường loại công văn. trường này sẽ được gán là quá hạn hay không quá hạn
   Nếu là bản án thì 10 ngày kể từ ngày phát hành văn bản (kể cả thứ 7 chủ nhật)
  Nếu là đình chỉ, quyết định xét xử, tạm đình chỉ, thụ lý thì là 3 ngày làm việc (không tính thứ 7 chủ nhật)
  Nếu là công nhận thỏa thuận thì là 5 ngày làm việc (không tính thứ 7 chủ nhật)

• RE: cần tư vấn code tính thời gian quá hạn

  ongke0711 > 02-07-17, 03:29 AM

  Bài toán của bạn thuộc loại tìm ngày đến hạn từ một ngày cho trước. Bạn còn thiếu một điều kiện nữa đó là tính đến các ngày nghỉ lễ.
  Tôi chia sẻ bạn cái hàm TimNgayDenHan(). Hàm này có tham số là: có trừ ngày T7, CN hay không. Mặc định trong hàm này là tôi luôn luôn trừ các ngày nghỉ lễ cho cả 2 trường hợp. Nếu bạn muốn thêm một trường hợp nữa là: "kể cả ngày T7, CN và ngày lễ" thì bạn dựa trên code căn bản này chế biến thêm nhé.
  
  Cái giải thuật là cứ đếm trong khoảng thời gian bạn muốn thêm (ví dụ: 10 ngày) thì có bao nhiêu này T7, CN và ngày lễ. Để tìm ngày T7, CN thì dùng hàm WeekDay(). Để tìm ngày Lễ thì bắt buộc bạn phải tạo một bảng phụ đặt tên là 'tblNgayNghiLe'. Table này chỉ cần 1 trường chính là [NgayLe] - dạng DateTime để phục vụ cho hàm Dcount() trong hàm tự tạo bên dưới.
  
  Copy code này vào module đặt tên là 'basFindDueDate'.
  
  

  Mã PHP:

  Option Explicit[/font]

Public Function TimNgayDenHan(NgayBD As Date, SoNgayThem As Integer, TinhT7CN As Boolean) As Date

' |--------------------------------------------------------------------------|
' | Tim ngày den han tu mot ngay cho truoc + so ngay cong them. Ham tinh 2   |
' | truong hop:                                                              |
' |    1- Không tru ngay T7, CN và có tru ngày nghi Le).                     |
' |    2-Có tru ngay T7, CN và ngày nghi Le.                                 |
' |--------------------------------------------------------------------------|


   Dim tmpSoNgayThem      As Integer
   Dim tmpNgay            As Date
   Dim tmpNgayBD          As Date
   Dim i                  As Integer

   tmpSoNgayThem = SoNgayThem
   tmpNgayBD = NgayBD
   tmpNgay = NgayBD
   i = 0
   
   Select Case TinhT7CN
   Case True
       Do Until i = SoNgayThem
           If DCount("*", "tblNgayNghiLe", "NgayLe = #" & tmpNgay & "#") > 0 Then
               tmpSoNgayThem = tmpSoNgayThem + 1
           Else
               i = i + 1
           End If
           tmpNgay = tmpNgay + 1
       Loop
   Case False
       Do Until i = SoNgayThem
           If Weekday(tmpNgay) = 1 Or Weekday(tmpNgay) = 7 Then
               tmpSoNgayThem = tmpSoNgayThem + 1
           ElseIf DCount("*", "tblNgayNghiLe", "NgayLe = #" & tmpNgay & "#") > 0 Then
               tmpSoNgayThem = tmpSoNgayThem + 1
           Else
               i = i + 1
           End If
           tmpNgay = tmpNgay + 1
       Loop
   End Select

   TimNgayDenHan = DateAdd("d", tmpSoNgayThem, tmpNgayBD)
   
    Do Until Weekday(TimNgayDenHan) <> 1 And Weekday(TimNgayDenHan) <> 7 And DCount("*", "tblNgayNghiLe", "NgayLe = #" & TimNgayDenHan & "#") = 0
        TimNgayDenHan = TimNgayDenHan + 1
    Loop
   
[font=Tahoma]End Function 


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