利用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數據庫教程