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
Bạn sai 2 chổ:
Không chạy nghĩa là sao? Tôi thử thấy bình thường mà bạn!
tớ hoa hết cả mắt.... nếu bạn có thể giải thích tỉ mẩn cho tớ về cách bạn làm được thì tốt quá, nhưng nếu không được thì ko sao đâu, dù sao tớ vô cùng cảm ơn bạn. nếu có thể làm gì cụ thể hơn việc cảm ơn tất cả các thành viên đã góp ý cho tớ lần này như bạn muốn và như tớ đã làm rồi ..... tớ sẽ làm ngay
Trong công thức này chỉ rắc rối có 1 chổ: ROW(INDIRECT(.....) mà thôi...
Công thức đúng cả, nhưng nó không ra kết quả là vì cell L4 cũng bạn đang Format dạng text
Trước hết, cho tôi hỏi tí: Hôm nay là ngày 31/5, thì theo bạn, "sau 1 ngày nữa" là ngày mấy? Ngày 01/6 hay vẫn là ngày 31/5?
Không chính xác à nha!
=A1+B1+IF(WEEKDAY(A1+B1)=1,1,IF(WEEKDAY(A1+B1)=7,2,0))=A1+B1-1+IF(WEEKDAY(A1+B1-1)=1,1,IF(WEEKDAY(A1+B1-1)=7,2,0))Nó đây!
Tôi đâu có biết... bạn liệt kê ngày nào thì tôi ghi cả vào đó
Ngày nào không đúng thì xóa đi... Dể mà
cảm ơn bạn đã hỏi.
Dùng hàm WORKDAY bạn à!
cảm ơn bạn đã giúp!
Nhìn file của bạn tôi chẳng biết "gắn" công thức vào chổ nào cả! Nói rõ chút đi
Làm cho bạn bằng hàm WORKDAY đây!
thật cảm ơn bạn đã giúp!
Sao lại không tính được chứ
mình đã làm như bạn nói rồi nhưng sao nó vẫn không được.
Check xong, ra bảng tính, phải chọn cell công thức, bấm F2 và Enter thì mới ra kết quả
Ít ra bạn cũng phải mô tả chi tiết cái vụ "không đạt kết quả" này nó như thế nào chứ! Hàm báo lỗi chăng? Nếu có thì đó là lỗi gì?
Đặt con trỏ chuột vào cell báo lỗi ấy, nhìn lên thanh công thức xem có gì đặc biệt không?
Bạn phải sửa lại thành workday($B5,4,$G$2:$G$10) thôi chứ (xóa hết khúc đầu đi)
Thật cảm ơn bạn đã giúp!
Dùng hàm WORKDAY là được rồi bạn à =WORKDAY(G6,H6)
