推薦:統(tǒng)計(jì)某個(gè)日期區(qū)間內(nèi)星期天的個(gè)數(shù)文章正文: '功能:算出某個(gè)日期區(qū)間內(nèi)星期天的個(gè)數(shù) '作者:竹笛 '修改歷史:2005/12/30 '未經(jīng)嚴(yán)格測(cè)試,有問題請(qǐng)與作者交流 Function SundayCount(StartDate As Date, EndDate As Date) As Long On Error GoTo Err_SundayCount: Dim Days As Integer '區(qū)間天
文章簡(jiǎn)介:
在企業(yè)實(shí)踐中,有時(shí)我們會(huì)從各種管理軟件中導(dǎo)出數(shù)據(jù),可能存在日期數(shù)據(jù)不規(guī)范的現(xiàn)象,本文闡述了一種處理不規(guī)范日期數(shù)據(jù)的方法
文章正文:
我從一個(gè)管理系統(tǒng)中導(dǎo)出的日期數(shù)據(jù)存在以下幾種可能:
第一種:2005-04-25 21:32:15:813
第二種:2005-4-25 21:32:15:81
第三種:2005-04-25 21:32:15
現(xiàn)在需要將其規(guī)范為正確的日期,考慮了多種方法,最后采用下面的函數(shù)來進(jìn)行轉(zhuǎn)換,效果不錯(cuò)!
Function TransErrDate(ErrDate As String) As Date
Dim i As Integer
i = InStr(ErrDate, ":") - 4
TransErrDate = left(ErrDate, i)
End Function
分享:淺析通用刪除某表某字段滿足條件的記錄兩個(gè)函數(shù)一、調(diào)用方式: Sub Acchelp_Test() '如果是條件是長(zhǎng)整型 Call AccHelp_DeleteFldNumRow(表名稱, 字段名稱, 條件) '如果是條件是文本型 'Call AccHelp_DeleteFldStrRow(表名稱, 字段名稱, 條件) End Sub 二、兩個(gè)函數(shù): Public Function AccHelp_Del