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

Hàm HenNgay để tính ngày kẻ từ ngày bắt đầu đến ngày có số ngày hẹn cho trước

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư Viện Hàm
  • [Hàm] Hàm HenNgay để tính ngày kẻ từ ngày bắt đầu đến ngày có số ngày hẹn cho trước
• Hàm HenNgay để tính ngày kẻ từ ngày bắt đầu đến ngày có số ngày hẹn cho trước

• Hàm HenNgay để tính ngày kẻ từ ngày bắt đầu đến ngày có số ngày hẹn cho trước

  Xuân Thanh > 02-09-13, 08:44 PM

  Nhân tiện giúp một bạn trên diễn đàn, tôi đưa chủ đề dó vào đây để các bạn tham khảo
  Đề bài : Một công chức nhận hồ sơ của công dân và hẹn sau một số ngày nhất định nào đó thì đến nhận hồ sơ. Làm sao tính được ngày đó, trừ ngày lễ, thứ 7, chủ nhật?
  Tạo một modul mới và chép hàm sau đây vào và chạy nó
  
  

  Mã PHP:

  Function HenNgay(TuNgay As Date, SoNgay As Integer, SoNgayLe As Integer)
    Dim So As Integer, SoDu As Integer
    So = Int(SoNgay / 5)
    SoDu = SoNgay - So * 5
    HenNgay = IIf(So > 0, TuNgay + So * 7 + SoDu + SoNgayLe, IIf(Weekday(TuNgay) > 4, TuNgay + SoDu + 2 + SoNgayLe, TuNgay + SoDu + SoNgayLe))
End Function 


  
  TuNgay là ngày nhận hồ sơ
  SoNgay là số ngày hẹn trả hồ sơ
  SoNgayLe là số ngay nghỉ lễ năm trong khoảng thời gian trả hồ sơ
  Hàm HenNgay sẽ tính ra ngày phải trả hồ sơ
  
  Chúc các bạn vui
  Thân mến

• RE: Hàm HenNgay để tính ngày kẻ từ ngày bắt đầu đến ngày có số ngày hẹn cho trước

  Truong Van Truong > 17-04-14, 12:15 PM

  Sao hàm "HenNgay" có một số trường hợp lại trả đúng vào ngày Thứ 7 hoặc Chủ nhật vậy bác. Bác xem lại giúp dùm em nha. Cám ơn bác nhiều.

• RE: Hàm HenNgay để tính ngày kẻ từ ngày bắt đầu đến ngày có số ngày hẹn cho trước

  Xuân Thanh > 17-04-14, 01:05 PM

  (17-04-14, 12:15 PM)Truong Van Truong Đã viết: Sao hàm "HenNgay" có một số trường hợp lại trả đúng vào ngày Thứ 7 hoặc Chủ nhật vậy bác. Bác xem lại giúp dùm em nha. Cám ơn bác nhiều.

  
  Sory các bạn vì chưa test kỹ. Các bạn sửa lại hàm như sau :
  

  Mã PHP:

  .....
    HenNgay = IIf(So > 0, TuNgay + So * 7 + SoDu + SoNgayLe, IIf(Weekday(TuNgay) + SoDu > 5, TuNgay + SoDu + 2 + SoNgayLe, TuNgay + SoDu + SoNgayLe))
... 


  
  Thành thật xin lỗi mọi người

• RE: Hàm HenNgay để tính ngày kẻ từ ngày bắt đầu đến ngày có số ngày hẹn cho trước

  Truong Van Truong > 19-04-14, 01:20 AM

  Vẫn là bác Xuân Thanh nhanh nhất, quá tuyệt vời.
  Bác xem lại giúp dùm em lần nữa nha, vẫn còn rơi vào ngày Thứ 7 hoặc Chủ nhật bác ơi.
  Em cám ơn bác!
  
  
  http://www.mediafire.com/download/lkwfd4..._CN).accdb

• RE: Hàm HenNgay để tính ngày kẻ từ ngày bắt đầu đến ngày có số ngày hẹn cho trước

  trunghieu > 19-04-14, 07:42 AM

  Ngày nghỉ lễ thay đổi không cố định theo một quy luật nào, cho nên không thể tính được ngày nghỉ lễ để trừ ra. Theo giải pháp của anh Xuân Thanh thì chỉ cần số ngày hẹn là được rồi. Nếu là một cán bộ công chức bạn biết cần phải hẹn bao nhiêu ngày, và ngày nào được nghỉ, khi đó bạn sẽ chủ động hẹn bằng số ngày hẹn cho phù hợp ( tức là trường hợp có ngày nghĩ lễ thì hẹn dài hơn, do ngày lễ ít nên không quá khó khăn). Nếu xét ngày t7,CN thì hàm như sau:
  

  Mã PHP:

  Function HenNgay(TuNgay As Date, SoNgay As Integer)
Dim Denngay as Date 
if Songay >= 0 then
  Denngay = Tungay +songay
  HenNgay =  IIf(Weekday(Denngay)> 5,Denngay + 2,Denngay)
end if
End Function 


• RE: Hàm HenNgay để tính ngày kẻ từ ngày bắt đầu đến ngày có số ngày hẹn cho trước

  Truong Van Truong > 27-04-14, 10:42 PM

  HenNgay vẫn rơi vào ngày thứ 7 hoặc chủ nhật bạn "trunghieu" ơi. Bạn xem lại dùm nha. Xin cám ơn!
  
  http://www.mediafire.com/download/zhpp3v...ase3.accdb

• RE: Hàm HenNgay để tính ngày kẻ từ ngày bắt đầu đến ngày có số ngày hẹn cho trước

  trunghieu > 28-04-14, 04:47 PM

  Bạn chỉnh lại:
  

  Mã PHP:

  Function HenNgay(TuNgay As Date, SoNgay As Integer)
Dim Denngay as Date 
if Songay >= 0 then
  Denngay = Tungay +songay
  HenNgay =  IIf(Weekday(Denngay,vbMonday)> 5,Denngay + 2,Denngay)
end if
End Function 


  ở đây hàm weekday trả về số từ 1 -7 tương ứng với 2 đến thứ CN. Do thiếu phần chọn ngày bắt đầu để tỉnh nên sẽ bị rơi vào trường hợp ngày CN.
  Bạn chỉnh lại là OK.
  Thanks bạn.

• RE: Hàm HenNgay để tính ngày kẻ từ ngày bắt đầu đến ngày có số ngày hẹn cho trước

  Truong Van Truong > 30-04-14, 06:09 PM

  Mình tự học nên còn yếu quá. Bạn có thể nói rõ hơn dùm mình được không
  Thanks bạn.

• RE: Hàm HenNgay để tính ngày kẻ từ ngày bắt đầu đến ngày có số ngày hẹn cho trước

  cawboy > 15-05-14, 09:46 AM

  (27-04-14, 10:42 PM)Truong Van Truong Đã viết: HenNgay vẫn rơi vào ngày thứ 7 hoặc chủ nhật bạn "trunghieu" ơi. Bạn xem lại dùm nha. Xin cám ơn!
  
  http://www.mediafire.com/download/zhpp3v...ase3.accdb

  
  

  (28-04-14, 04:47 PM)trunghieu Đã viết: Bạn chỉnh lại:
  

  Mã PHP:

  Function HenNgay(TuNgay As Date, SoNgay As Integer)
Dim Denngay as Date 
if Songay >= 0 then
  Denngay = Tungay +songay
  HenNgay =  IIf(Weekday(Denngay,vbMonday)> 5,Denngay + 2,Denngay)
end if
End Function 


  ở đây hàm weekday trả về số từ 1 -7 tương ứng với 2 đến thứ CN. Do thiếu phần chọn ngày bắt đầu để tỉnh nên sẽ bị rơi vào trường hợp ngày CN.
  Bạn chỉnh lại là OK.
  Thanks bạn.

  
  Sao mình không tính luôn ngày nghỉ lễ, nghỉ bù vào luôn nhỉ
• Bài trước Bài tiếp