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

    1. <mark id="os3gq"></mark>
    2. [函數]得到一個日期當月最后一天是星期幾-錢玉煒
      Access軟件網QQ交流學習群(群號碼198465573),歡迎您的加入!
      首頁 >技術文章> Access數據庫-模塊/函數/VBA


      [函數]得到一個日期當月最后一天是星期幾

      發表時間:2009/2/10 12:44:08 評論(0) 瀏覽(5275)  評論 | 加入收藏 | 復制
         
      摘 要:[函數]得到一個日期當月最后一天是星期幾
      正 文:

      Function getYMweekday(sDate As Date) As String

      Dim intY As Integer
      Dim intM As Integer

      intY = Year(sDate)
      intM = Month(sDate)
      getYMweekday = WeekdayName(Weekday(DateSerial(intY, intM, 1)))

      End Function

      得到一個日期當月最后一天是星期幾

      Function getYMweekdayEnd(sDate As Date) As String

      Dim intY As Integer
      Dim intM As Integer

      intY = Year(sDate)
      intM = Month(sDate)
      getYMweekdayEnd = WeekdayName(Weekday(DateSerial(intY, intM + 1, 0)))

      End Function


      Sub aa()
      Debug.Print getYMweekday(Date)
      Debug.Print getYMweekdayEnd(Date) 'date為2007-12-3
      End Sub

       


      Access軟件網交流QQ群(群號:198465573)
       
       相關文章
      根據某年某月第幾個星期幾返回當日日期的函數  【咱家是貓  2010/5/19】
      確定某日在當月是第幾個星期幾的代碼  【咱家是貓  2010/5/24】
      【access自定義函數】統計某一個時間段內有多少個星期幾\自定義...  【葉海峰  2012/2/28】
      【Access入門】英文顯示星期幾,英文星期幾,英文星期的示例  【麥田  2012/10/19】
      【Access入門】中文顯示星期幾,中文星期幾,中文星期的示例  【麥田  2012/10/20】
       
       訪客評論
      總記錄:0篇  頁次:0/0 9 1 :
       
       發表評論
      評論內容 (必填)

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

      錢玉煒

      文章分類

      文章存檔

      友情鏈接
       
         
      湖北11选5