利用instr函數實現非常規日期的轉換_Access數據庫教程
      
編輯Tag賺U幣
      


      教程Tag：暫無Tag,歡迎添加,賺取U幣!
      


      

      推薦：統計某個日期區間內星期天的個數
      文章正文： '功能：算出某個日期區間內星期天的個數 '作者：竹笛 '修改歷史：2005/12/30 '未經嚴格測試，有問題請與作者交流 Function SundayCount(StartDate As Date, EndDate As Date) As Long On Error GoTo Err_SundayCount: Dim Days As Integer '區間天
      文章簡介： 
      在企業實踐中，有時我們會從各種管理軟件中導出數據，可能存在日期數據不規范的現象，本文闡述了一種處理不規范日期數據的方法
      文章正文： 
      我從一個管理系統中導出的日期數據存在以下幾種可能：
      第一種：2005-04-25 21:32:15:813
      第二種：2005-4-25 21:32:15:81
      第三種：2005-04-25 21:32:15

      現在需要將其規范為正確的日期，考慮了多種方法，最后采用下面的函數來進行轉換，效果不錯！
      Function TransErrDate(ErrDate As String) As Date
      Dim i As Integer
      i = InStr(ErrDate, ":") - 4
      TransErrDate = left(ErrDate, i)
      End Function
       
      分享：淺析通用刪除某表某字段滿足條件的記錄兩個函數
      一、調用方式： Sub Acchelp_Test() '如果是條件是長整型 Call AccHelp_DeleteFldNumRow(表名稱, 字段名稱, 條件) '如果是條件是文本型 'Call AccHelp_DeleteFldStrRow(表名稱, 字段名稱, 條件) End Sub 二、兩個函數： Public Function AccHelp_Del
      


      

      


      來源：模板無憂//所屬分類：Access數據庫教程/更新時間：2010-03-19


      


      



      


      



      相關Access數據庫教程：