当前所在位置：珠峰网资料 >> 计算机 >> 计算机等级考试 >> 正文
最新资料
最新课程
最新资讯
最新机构
资讯导航
Access技巧 ：在Access中计算两个日期之间的工作日天数
发布时间：2010/1/19 21:59:00 来源：城市学习网 编辑：海蓝

　　虽然看起来是一个小问题，但很不幸的是在Access中没有直接的函数支持（Excel中有一个现成的函数：NETWeekdays)。所以非得自己做点开发
　　第一步：创建一个自定义的函数
　　Public　Function　WeekDayCount(firstDate　As　Date,　LastDate　As　Date)　As　Integer
　　'计算工作日天数
　　On　Error　GoTo　Err:
　　Dim　i　As　Integer
　　Dim　TempDate　As　Date　　　　'临时日期
　　Dim　Tempts　As　Long
　　Tempts　=　DateDiff("d",　firstDate,　LastDate)
　　For　i　=　0　To　Tempts
　　TempDate　=　DateAdd("d",　i,　firstDate)
　　Select　Case　Format(TempDate,　"w")
　　Case　2,　3,　4,　5,　6
　　WeekDayCount　=　WeekDayCount　+　1
　　End　Select
　　Next
　　Err:
　　Exit　Function
　　End　Function

　　第二步：然后在查询中使用如下语句
　　SELECT WeekDayCount(开始日期,结束日期) AS 工作日天数, *
　　FROM orders;

最新课程

计算机
广告合作：400-664-0084 全国热线：400-664-0084
Copyright 2010 - 2017 www.my8848.com 珠峰网 粤ICP备15066211号
珠峰网 版权所有 All Rights Reserved