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

    1. <mark id="os3gq"></mark>
    2. [技巧]日期使用-錢玉煒
      Access軟件網QQ交流學習群(群號碼198465573),歡迎您的加入!
      首頁 >技術文章> 綜合其它


      [技巧]日期使用

      發表時間:2009/2/2 12:29:30 評論(0) 瀏覽(4377)  評論 | 加入收藏 | 復制
         
      摘 要:[技巧]日期使用
      正 文:
      計算天數及月初月末日期
      Function 本月天數(日期 As Date) As Byte
      本月天數 = DateSerial(Year(日期), Month(日期) + 1, Day(日期)) - 日期
      End Function
      Function 月末(日期 As Date) As Date
      月末 = DateSerial(Year(日期), Month(日期) + 1, 1) - 1
      End Function
      Function 月初(日期 As Date) As Date
      月初 = 日期 - Day(日期) + 1
      End Function
      本月最后一日是周幾
      Select
      Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1)) AS 本月最后一日是周幾,
      下月最后一日是周幾
      Select
      Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1)) AS 下月最后一日是周幾,
      本月最后一個周5到月底的天數
      Select
      (Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 本月最后一個周5到月底的天數;
      下月最后一個周5到月底的天數
      Select
      (Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 下月最后一個周5到月底的天數;
      本月最后一個周5的日期
      Select
      DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1))-1-(Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 本月最后一個周5的日期;
      下月最后一個周5的日期
      Select
      DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1))-1-(Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 下月最后一個周5的日期;

      Access軟件網交流QQ群(群號:198465573)
       
       相關文章
      利用紅塵如煙老師《高效無重復自動編碼解決方案》如何實現按日期重新開...  【cspa  2013/7/11】
      【Access示例】日期范圍在星期一至星期天  【繆煒  2013/7/12】
      日期/月份為變量的自動編號(自動續號)函數  【網行者  2013/7/14】
      Access快速選定日期范圍值 窗體  【沈軍  2013/7/18】
      快速日期選定與報表結合示例  【沈軍  2013/7/22】
       
       訪客評論
      總記錄:0篇  頁次:0/0 9 1 :
       
       發表評論
      評論內容 (必填)

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

      錢玉煒

      文章分類

      文章存檔

      友情鏈接
       
         
      湖北11选5