Re: [VBA ] 請問增加工作日

看板Visual_Basic作者 (我要做好好的壞人)時間16年前 (2009/10/28 12:54), 編輯推噓0(003)
留言3則, 1人參與, 最新討論串2/3 (看更多)
※ 引述《tial (我要做好好的壞人)》之銘言: : 請問大家 : 如果我想要加某一天後的10個工作日 : 但我寫DateAdd("w", 10, "2009/06/04") 他卻會出現2009/06/14 : 等於直接加10天 : 請問該如何解決呢? 謝謝~~ 不好意思~~我程式碼用那個網頁的方法改成這樣 Dim setdate As String Dim x As Date Dim setdate1 As DateInterval setdate1 = DateInterval.Weekday setdate = "20090604" x = DateSerial(Left(setdate, 4), Mid(setdate, 5, 2), Mid(setdate, 7, 2)) setdate1 = DateAdd(setdate1, 15, x) 可是它這行 setdate1 = DateAdd(setdate1, 15, x) 還是會出現"需要出現物件的錯誤訊息" 請問該如何解決呢? 謝謝~ -- -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.137.40.167

10/28 13:45, , 1F
我弄錯了,你是寫VBA,那一頁是給VB.NET用的
10/28 13:45, 1F

10/28 13:45, , 2F
而在VBA下,dateadd()的第一個引數給w或y或d結果都相同
10/28 13:45, 2F

10/28 13:46, , 3F
恐怕你只有自己寫函數數日子一途
10/28 13:46, 3F
文章代碼(AID): #1AvywZ4H (Visual_Basic)
文章代碼(AID): #1AvywZ4H (Visual_Basic)