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

Hỏi hàm dò ngày tháng trong 1 Table

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Query
  • [Hỏi] Hỏi hàm dò ngày tháng trong 1 Table
• Hỏi hàm dò ngày tháng trong 1 Table

• Hỏi hàm dò ngày tháng trong 1 Table

  truongtrungviet > 07-07-17, 05:09 PM

  - Mình có 2 Table gồm:
  TblLop: MaLop, TenLop, TuNgay,ToiNgay,GhiChu
  TblNgayNghiChung: NgayNghi,LyDoNghi
  
  - TblNgayNghiChung: Cập nhật những ngày nghỉ lễ trong năm.
  - TblLop: Cập nhật 1 ngày khai giảng và 1 ngày kết thúc của lớp đó.
  - Yêu cầu đặt ra là:
  Từ TblLop dò tìm trong tblNgayNghiChung những ngày nghỉ nào trùng với khoảng thời gian của lớp học,  thì ngày kết thúc sẽ được cộng thêm.
  Ví dụ: Lớp A2 có thời gian đào tạo từ ngày: 01/03/2017 đến ngày: 01/05/2017
  Bảng tblNgayNghiChung có ngày 08/03/2017, 40/04/2017 và ngày 01/05/2017 là ngày nghỉ chung.
  Như vậy, lớp A2 sẽ được cộng thêm 3 ngày và ngày kết thúc không còn là ngày 01/05/2017 nữa mà là 04/05/2017.
  
  Xin nhờ anh chị em hướng dẫn tạo query hoặc VBA để thực hiện yêu cầu trên. Xin cảm ơn.
  Ảnh minh họa
  
  File demo
  https://www.mediafire.com/?74ldo6qahb5schn

• RE: Hỏi hàm dò ngày tháng trong 1 Table

  ongke0711 > 07-07-17, 07:42 PM

  Bác xem cái bài này của tôi đi, có cái hàm công thêm ngày nếu là ngày nghỉ hoặc thứ 7, CN đó. Nguyên lý hoạt động cũng giống vậy, bác biến tấu chút cho trường hợp của mình.
  Link: http://thuthuataccess.com/forum/post-359...l#pid35969
  ----------------------------------------------------------
  
  Dữ liệu bác đưa chưa đủ để tính toán.
  Lớp A2 có thời gian đào tạo từ ngày: 01/03/2017 đến ngày: 01/05/2017 
  - Vậy tổng thời gian là bao nhiêu ngày học? 1 tuần học 3 ngày hay ngày nào cũng học hay như thế nào?
  - Có học thứ 7, CN hay không?
  Vì nếu ngày nghỉ chung không trùng với ngày học thì cần gì phải bù. Do vậy phải xác định được ngày nào học trong khoảng thời gian trên.

• RE: Hỏi hàm dò ngày tháng trong 1 Table

  truongtrungviet > 08-07-17, 12:40 AM

  (07-07-17, 07:42 PM)ongke0711 Đã viết: Bác xem cái bài này của tôi đi, có cái hàm công thêm ngày nếu là ngày nghỉ hoặc thứ 7, CN đó. Nguyên lý hoạt động cũng giống vậy, bác biến tấu chút cho trường hợp của mình.
  Link: http://thuthuataccess.com/forum/post-359...l#pid35969
  ----------------------------------------------------------
  
  Dữ liệu bác đưa chưa đủ để tính toán.
  Lớp A2 có thời gian đào tạo từ ngày: 01/03/2017 đến ngày: 01/05/2017 
  - Vậy tổng thời gian là bao nhiêu ngày học? 1 tuần học 3 ngày hay ngày nào cũng học hay như thế nào?
  - Có học thứ 7, CN hay không?
  Vì nếu ngày nghỉ chung không trùng với ngày học thì cần gì phải bù. Do vậy phải xác định được ngày nào học trong khoảng thời gian trên.

  
  Đã update thêm ngayhoc/tuan.
  Mình đã xem bài của ongke071. Nhưng vận dụng có nhiều khác biệt, xin trợ giúp.
  bản update.
  https://www.mediafire.com/?lm4bbuhkcyeql9g

• RE: Hỏi hàm dò ngày tháng trong 1 Table

  ongke0711 > 08-07-17, 11:36 PM

  Bài toán này của bác cũng chua thiệt.
  Việc tính ra số ngày phải bù cho các ngày nghỉ chung thì đơn giản rồi nhưng cái khó mình chưa nghĩ ra cách đó là: chuyển số ngày phải dạy bù thêm thành ngày/tháng/năm.
  Vd: 
  - Tuần học 2-4.
  - Số ngày phải bù: 1 ngày
  - Ngày BĐ từ 01/05/2017 - ngày KT 01/07/2017.
  => vậy phải bù thêm 1 ngày nữa vậy phải bù vào ngày nào? --> ngày 03/07/2017.
  Trường hợp khác: nếu ngày kết thúc là: 05/07/2017 --> bù vào ngày 10/07/2017
  Mình chưa tìm ra công thức tính ra 2 ngày trên.
  Các bạn khác có giải thuật nào cho trường hợp này thì đóng góp giùm nhé. 
  
  -------------------------------------------------------------------------------------------------------------------------------------------
  
  Dưới đây là cách tìm ra số ngày phải bù nếu ngày học trùng các ngày nghỉ chung.
  
  - Dùng vòng lặp duyệt qua từ ngày bắt đầu đến ngày kết thúc khóa học. Nếu tìm thấy ngày trùng với ngày nghỉ trong table tblNgayNghiChung cùng với điều kiện nữa là ngày nghỉ chung này cũng trùng với buổi học trong tuần (ví dụ: 2 - 4 - 6) thì mới tính là 1 ngày bù (nếu ngày nghỉ rơi vào những ngày không học thì không cần tính).
  - Để xác định trong khoảng thời gian từ ngày BĐ đến ngày KT có ngày nghỉ chung không thì dùng hàm Dcount().
  - Để xác định ngày nghỉ chung này có nằm trong các buổi đi học không thì tôi dùng biến mảng. Đưa trường chứa thông tin buổi học trong tuần vào biến mảng. Thông tin buổi học ở dạng ‘Weekday’ - CN=1, thứ 2=2, …, thứ 7=7. Do cái trường nhập liệu buổi học nhập ngày chủ nhật là ‘CN’ chứ không phải số ‘1’ nên phải dùng hàm REPLACE để thay thế chuỗi ‘CN’ thành ‘1’ sau đó mới add vào biến mảng.
  
  

  Mã PHP:

  Dim BuoiHocArr() As String
Dim tmpBuoiHoc As String

tmpBuoiHoc = Replace(BuoiHoc, "CN", 1)
BuoiHocArr = Split(tmpBuoiHoc, "-") 


  
  
  
  Để đưa chuỗi vào biến mảng đúng yêu cầu thì bắt buộc cái trường [BUỔI HỌC] phải được nhập kiểu: 2-4-6; 7-CN  —> cách nhau dấu “-“, không có khoảng trắng.
  
  Sau khi có biếng mảng rồi thì dùng hàm IsInArray() để xác định Weekday(Ngày nghỉ chung) có nằm trong mảng này không. Nếu có thì thêm 1 ngày vào số ngày phải bù thêm.
  
  

  Mã PHP:

  Function IsInArray(ByVal stringToBeFound As String, ByVal arr As Variant) As Boolean
   Dim element As Variant
   For Each element In arr
       If element = stringToBeFound Then
           IsInArray = True
           Exit Function
       End If
   Next element
End Function 


  
  - Toàn bộ code cho hàm BuNgayHoc(). Copy code vào module.
  
  

  Mã PHP:

  Option Explicit

Public Function BuNgayHoc(NgayBD As Date, NgayKT As Date, BuoiHoc As String) As Integer

   Dim BuoiHocArr() As String
   Dim tmpBuoiHoc As String

   tmpBuoiHoc = Replace(BuoiHoc, "CN", 1)
   BuoiHocArr = Split(tmpBuoiHoc, "-")


   Dim tmpSoNgayBu As Integer
   Dim tmpNgay As Date
   Dim tmpNgayBD As Date

   tmpNgay = NgayBD
   tmpSoNgayBu = 0


   Do Until tmpNgay > NgayKT
       If DCount("*", "tblNgayNghiChung", "[NgayNghi] =#" & tmpNgay & "#") > 0 Then
           If IsInArray(Weekday(tmpNgay), BuoiHocArr) Then
               tmpSoNgayBu = tmpSoNgayBu + 1
           End If
       End If
       tmpNgay = tmpNgay + 1
   Loop

   BuNgayHoc = tmpSoNgayBu


End Function

Function IsInArray(ByVal stringToBeFound As String, ByVal arr As Variant) As Boolean
   Dim element As Variant
   For Each element In arr
       If element = stringToBeFound Then
           IsInArray = True
           Exit Function
       End If
   Next element
End Function 


  
  - Áp dụng vào Query:
  
  
  
  

• RE: Hỏi hàm dò ngày tháng trong 1 Table

  truongtrungviet > 10-07-17, 09:22 AM

  Rất cảm ơn ongke0711 
  Cách bù như sau: 
  Tuần học 2-4, như vậy nếu ngày nghỉ chung trùng ngày thứ 2 thì bù vào thứ 2 (Thêm 1 buổi bù vào tuần sau đó) . Nếu ngày nghỉ chung trùng với thứ tư thì bù vào ngày thứ 4 (Thêm 1 buổi bù vào tuần sau đó). 
  - Về lớp học thường là 24 tuần/đợt.
  - Ngày bắt đầu(TuNgay) là mình nhập.
  - Ngày kết thúc(DenNgay) thì chương trình tự tính.
  
  Mình cũng tính đến phương án khác là: SoNgay/Tuan * 24 = 48 + số ngày nghỉ chung
  Hoặc: Ngày kết thúc  = Ngày bắt đầu + Số tuần *7 + Số ngày nghỉ chung. 
  VD: Ngày bắt đầu là ngày thứ hai: 01/01/2017 + 1 tuần*7+ 1 ngày nghỉ chung = 09/01/2017
  Nhưng công thức này nó chỉ cộng đại số bằng cách cộng thêm ngày vào ngày kết thúc chứ không tính được là bù vào thứ 2 hay thứ tư để cộng thêm.
  VD: Ngày nghỉ chung là ngày thứ 2 thì ngày kết thúc: 09/01/2017
  Nhưng nếu ngày nghỉ chung rơi vào thứ 4 thì ngày kết thúc sẽ là 11/01/2017
  Xin nhờ các cao nhân Access có giải pháp nào tốt hơn để giải quyết bài toán này. Xin cảm ơn.

• RE: Hỏi hàm dò ngày tháng trong 1 Table

  ongke0711 > 10-07-17, 11:32 AM

  (10-07-17, 09:22 AM)truongtrungviet Đã viết: Cách bù như sau: 
  Tuần học 2-4, như vậy nếu ngày nghỉ chung trùng ngày thứ 2 thì bù vào thứ 2 (Thêm 1 buổi bù vào tuần sau đó) . Nếu ngày nghỉ chung trùng với thứ tư thì bù vào ngày thứ 4 (Thêm 1 buổi bù vào tuần sau đó). 

  
  Nếu theo như cách bù ngày nghỉ như trên tức là nghỉ thứ mấy thì bù lại ngày học khác đúng với ngày thứ đó thì bài toán sẽ khác chút nữa. Nhưng mình nghỉ cách bù này nó không hợp lý lắm.
  Vd: Ngày nghỉ 2 ngày, trùng vào ngày thứ 2 và thứ 6 (Lớp học 2-4-6) thì khi hết thời gian khóa học phải thêm 1 tuần nữa bù thêm 2 ngày học thứ 2 và thứ 6 vậy thứ 4 tuần đó bỏ trống??
  Mình đang làm cái cách bình thường là nếu nghỉ 2 ngày thì cứ bù kế tiếp nhau thêm 2 ngày học nữa là bù thêm ngày thứ 2 và thứ 4. Anh nghĩ sao?
  Nếu theo cách này thì mình cũng mới nghĩ ra giải thuật cho nó nhưng để test code lại rồi post lên. 

• RE: Hỏi hàm dò ngày tháng trong 1 Table

  truongtrungviet > 10-07-17, 11:58 AM

  (10-07-17, 11:32 AM)ongke0711 Đã viết:

  (10-07-17, 09:22 AM)truongtrungviet Đã viết: Cách bù như sau: 
  Tuần học 2-4, như vậy nếu ngày nghỉ chung trùng ngày thứ 2 thì bù vào thứ 2 (Thêm 1 buổi bù vào tuần sau đó) . Nếu ngày nghỉ chung trùng với thứ tư thì bù vào ngày thứ 4 (Thêm 1 buổi bù vào tuần sau đó). 

  
  Nếu theo như cách bù ngày nghỉ như trên tức là nghỉ thứ mấy thì bù lại ngày học khác đúng với ngày thứ đó thì bài toán sẽ khác chút nữa. Nhưng mình nghỉ cách bù này nó không hợp lý lắm.
  Vd: Ngày nghỉ 2 ngày, trùng vào ngày thứ 2 và thứ 6 (Lớp học 2-4-6) thì khi hết thời gian khóa học phải thêm 1 tuần nữa bù thêm 2 ngày học thứ 2 và thứ 6 vậy thứ 4 tuần đó bỏ trống??
  Mình đang làm cái cách bình thường là nếu nghỉ 2 ngày thì cứ bù kế tiếp nhau thêm 2 ngày học nữa là bù thêm ngày thứ 2 và thứ 4. Anh nghĩ sao?
  Nếu theo cách này thì mình cũng mới nghĩ ra giải thuật cho nó nhưng để test code lại rồi post lên. 

  
  Rất cảm ơn ongke0711 đã hỗ trợ nhiệt tình. Mình chờ giải thuật của bạn.

• RE: Hỏi hàm dò ngày tháng trong 1 Table

  truongtrungviet > 10-07-17, 05:16 PM

  Công thức có vẻ không ổn ongke0711 ơi.

  Lớp A2 buổi học là 2-4-6, ngày lễ 01/05/2017 là ngày thứ 2 nhưng Query2 số ngày bù nó vẫn không tính.

  

  
  

  Mã PHP:

  Public Function BuNgayHoc(NgayBD As Date, NgayKT As Date, BuoiHoc As String) As Integer[/align]

[align=justify]  Dim BuoiHocArr() As String[/align]
[align=justify]  Dim tmpBuoiHoc As String[/align]

[align=justify]  tmpBuoiHoc = Replace(BuoiHoc, "CN", 1)[/align]
[align=justify]  BuoiHocArr = Split(tmpBuoiHoc, "-")[/align]


[align=justify]  Dim tmpSoNgayBu As Integer[/align]
[align=justify]  Dim tmpNgay As Date[/align]
[align=justify]  Dim tmpNgayBD As Date[/align]

[align=justify]  tmpNgay = NgayBD[/align]
[align=justify]  tmpSoNgayBu = 0[/align]


[align=justify]  Do Until tmpNgay > NgayKT[/align]
[align=justify]      If DCount("*", "tblNgayNghiChung", "[NgayNghi] =#" & tmpNgay & "#") > 0 Then[/align]
[align=justify]          If IsInArray(Weekday(tmpNgay), BuoiHocArr) Then[/align]
[align=justify]              tmpSoNgayBu = tmpSoNgayBu + 1[/align]
[align=justify]          End If[/align]
[align=justify]      End If[/align]
[align=justify]      tmpNgay = tmpNgay + 1[/align]
[align=justify]  Loop[/align]

[align=justify]  BuNgayHoc = tmpSoNgayBu[/align]


[align=justify]End Function 


  
  

  Mã PHP:

  Function IsInArray(ByVal stringToBeFound As String, ByVal arr As Variant) As Boolean
   Dim element As Variant
  For Each element In arr
      If element = stringToBeFound Then
          IsInArray = True
          Exit Function
      End If
  Next element
End Function 


  
  

  File đính kèm

• RE: Hỏi hàm dò ngày tháng trong 1 Table

  ongke0711 > 10-07-17, 05:32 PM

   anh xem lại cái format ngày tháng năm nhé. Vụ này nó cũng vật mình mấy bữa đó.

• RE: Hỏi hàm dò ngày tháng trong 1 Table

  truongtrungviet > 10-07-17, 05:52 PM

  (10-07-17, 05:32 PM)ongke0711 Đã viết:  anh xem lại cái format ngày tháng năm nhé. Vụ này nó cũng vật mình mấy bữa đó.

  Rất cảm ơn bạn đã hỗ trợ nhiệt tình.
  Mình fomat: dd/mm/yyyy cũng không được, chuyển qua Short Date cũng vậy...Không hiểu vì sao luôn.
• Bài trước Bài tiếp