Bạn cho hỏi: Ngoài Chủ nhật ra thì có trừ ngày nghỉ lễ không?
Mình viết theo đúng như yêu cầu của bạn, các ngày nghỉ lễ không tính đến.
Function DateAdd(CurDate As Date, Days As Long) As Date
Do
CurDate = CurDate + 1
If Weekday(CurDate) <> 1 Then Days = Days - 1
Loop While Days > 0
DateAdd = CurDate
End Function
Mình nghĩ lấy ngày 1/4/2009 + 22
Sau đó xem trong mảng từ ngày 1/4/2009 thêm 22 ngày nữa có bao nhiêu ngày chủ nhật nữa rồi cộng vào trên!
Cách giải của mình như trên không biết có hợp lý không?
Mong mọi người cho ý kiến!
BB!
Không đơn giản thế đâu!Mình nghĩ lấy ngày 1/4/2009 + 22
Sau đó xem trong mảng từ ngày 1/4/2009 thêm 22 ngày nữa có bao nhiêu ngày chủ nhật nữa rồi cộng vào trên!
Cách giải của mình như trên không biết có hợp lý không?
Mong mọi người cho ý kiến!
BB!
Kết quả là ngày 13/04/2009
. câu hỏi của tới như sau:
Sau khi xem trao đổi giữa bạn với anh solomon tôi cũng chưa hỉu lắm về ý đồ của bạn.Tuy nhiên tôi cũng đưa ra cho bạn cách thế này cho bạn tham khảo nhé!Chúc thành công!
Option Explicit
Function WorkingDayS(Num As Integer, Optional Dat As Date) As Date
If Dat = 0 Then Dat = Date
Dim Jj As Integer
Do
If Weekday(Dat) > 1 Then
Jj = Jj + 1
End If
If Jj = Num Then Exit Do
Dat = Dat + 1
Loop
WorkingDayS = Dat
End Function
Theo cách tính của bạn kết quả đúng là 25/04/2009!
Bạn xem lại kết quả thử xem bắt đầu từ ngày 01/04/2009 sau 22 ngày nữa là ngày 23/04/2009 trong quảng thời gian trên có 3 ngày chủ nhật ra 26/04/2009 nhưng ngày 26/04/2009 lại là chủ nhật nên kết quả đúng lại là 27/04/2009 (không kể chủ nhật)
BB!
-------------------
tớ hứa sẽ hậu tạ bạn nếu tớ làm đc hàm này
Bạn mở file của tôi lên, vào menu Insert\Name\Define sẽ thấy 2 công thức phụ nằm trong đócảm ơn bạn Ndu nhé, nhưng bạn có thể giải thích rõ các hàm và cách làm cuả bạn ko? hình như bạn đã dấu bớt công thức rồi nên khi thử lam mình luôn bị bào lỗi, mong bạn giúp thig giup tỉ mỉ một chút
