推荐:统计某个日期区间内星期天的个数文章正文: '功能:算出某个日期区间内星期天的个数 '作者:竹笛 '修改历史: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