利用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数据库教程