作者tial (我要做好好的壞人)
看板Visual_Basic
標題Re: [VBA ] 請問增加工作日
時間Wed Oct 28 12:54:56 2009
※ 引述《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
1F：→ MOONRAKER:我弄錯了，你是寫VBA，那一頁是給VB.NET用的 10/28 13:45
2F：→ MOONRAKER:而在VBA下，dateadd()的第一個引數給w或y或d結果都相同 10/28 13:45
3F：→ MOONRAKER:恐怕你只有自己寫函數數日子一途 10/28 13:46