1樓：匿名使用者
'假設a、b列為收取和退回的日期，格式為日期型，c列為結果，在c2中輸入 =有效日(a2,b2)
function 有效日(byval startdate, byval enddate)
dim i as long
dim sum as long
if startdate = "" or enddate = "" then
有效日 = "無法計算"
exit function
end if
for i = startdate to enddate
if weekday(i) <> 1 and weekday(i) <> 7 then sum = sum + 1 '1-星期日 7-星期六
next
有效日 = sum
end function
2樓：無畏
假設開始日期在a1,結束日期在b1,在c1寫公式:
----
如果是2007版本就簡單多了
=networkdays(a1,b1)
急！！求助 excel07轉存為03出錯，請高手指點
你用的盜版的07版是吧，檔案過大就會出現這種情況，建議把檔案分解試試，避免太大的檔案。如果是經常使用excel的話，建議購買正版的office,我當時在卓越上買的才149，當時買的07 還能公升級成10版，相當於買了兩個正版的，哈哈，不是做廣告哈。正版的確實比盜版的好，當你的系統重啟時，正版能再次把...