<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. 修正【自定義函數】取得指定日期指定工作日天數后的工作日期-123木頭人
      Access軟件網QQ交流學習群(群號碼198465573),歡迎您的加入!
      首頁 >技術文章> Access數據庫-模塊/函數/VBA


      修正【自定義函數】取得指定日期指定工作日天數后的工作日期

      發表時間:2017/11/20 17:34:06 評論(0) 瀏覽(2108)  評論 | 加入收藏 | 復制
         
      摘 要:需求:自定義函數(日期,天數)結果是指定日期在指定工作日天數后的工作日期。要判斷周六周日,不用考慮法定節假日。
      正 文:

      Bug參數用錯了一個,而且沒有考慮指定天數可能是負數,Demo2來修正了:

      Function FDemo(Dd As Date, Dnum As Integer) As Date
          Dim i, Md As Integer
          i = Int(Dnum / 5)
          Md = Weekday(Dd, vbMonday)
          If Md + Dnum < 5 and Md + Dnum > 0 Then
              FDemo = Dd + Dnum
          Else
              FDemo = Dd + Dnum + i * 2
          End If
      End Function

      ===============================

      需求:自定義函數(日期,天數)結果是指定日期在指定工作日天數后的工作日期。要判斷周六周日,不用考慮法定節假日。

      Demo1

      	
      Function FDemo(Dd As Date, Dnum As Integer) As Date Dim i, Md As Integer i = Int(Dnum / 5) Md = Weekday(Dd, vbMonday) If Md + Dnum < 5 Then FDemo = Dd + i'此處加i是錯的,應該加Dnum Else FDemo = Dd + Dnum + i * 2 End If End Function

      簡單測試了一下,能實現預期值,大家有空幫忙測試指正。
       


      Access軟件網交流QQ群(群號:198465573)
       
       相關文章
      計算工作日天數的函數  【askheart  2008/9/12】
      求工作日數的示例  【林嵐  2009/7/26】
      [示例]計算某一段時間內的工作日和假日天數  【金宇  2012/5/12】
      【Access自定義函數】當前月第一個工作日的示例,當前月最后一個...  【紅塵如煙  2013/1/19】
      根據節假日表計算兩日期間的工作日天數、n個工作日后的工作日日期  【網行者  2013/6/22】
      自定義輸入日期經過多少天后到達日期  【仙來  2017/11/18】
       
       訪客評論
      總記錄:0篇  頁次:0/0 9 1 :
       
       發表評論
      評論內容 (必填)

      常見問答
      技術分類
      相關資源
      文章搜索
      關于作者

      123木頭人

      文章分類

      文章存檔

      友情鏈接
       
         
      湖北11选5