作者chuliu (chuliu)
看板Visual_Basic
标题Re: [VBA ] 请问增加工作日
时间Fri Oct 30 23:56:13 2009
: : 请问该如何解决呢? 谢谢~~
: 不好意思~~我程式码用那个网页的方法改成这样
: 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)
: 还是会出现"需要出现物件的错误讯息"
: 请问该如何解决呢? 谢谢~
您是要取得10工作天後的日期是吧
s=application.worksheetfunction.workday(s,10)
试试看
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 58.152.137.95