设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 8131|回复: 9
打印 上一主题 下一主题

[模块/函数] 【Access小品】逐步扩展---自定义函数编制讲座一

[复制链接]
跳转到指定楼层
1#
发表于 2011-4-25 18:20:11 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 todaynew 于 2011-4-25 21:12 编辑

  数月前,有版友发贴希望得到函数编制方法的讲座。在我看来,这个事情没法讲,其原因在于函数和模块只是抽象的结果,无一定之规和现成之法。后来风行同志还是尝试着编写了一个讲座的视频,写得很好,对版友们应该有所帮助。通过风行同志的实践,看来函数的编制还是可以讲的,可能着重在于讲编写的策略、处理的思路,抽象的方法。

  今日里,版友yinyt 同志问询一个一周内数据的筛选问题,给定的条件是某个确定的日期,要求筛选出本周或者上周或者下周的数据来。就这个问题我编写了自定义函数,编写的过程是我的一个基本习惯,就是由浅入深,逐步推进,逐步扩展。我想对于初学者来说,大都可以采用这一个基本策略进行自定义函数的编写。下面把我的思维过程展示给版友们,希望能对你有所帮助。

  首先,我想这个问题的解决关键是得到给定日期所在周的周一日期。于是我编写了以下的函数:

Function Monday(MYDate as Date) as date
'功能:计算给定日期所在周的周一日期
'参数:MyDate--给定日期
'示例:计算下周周一日期 Msgbox Monday(Date)
dim n as long
n=1-Weekday(Mydate,vbMonday)
Monday=DateAdd("d",n,MyDate)
END Function

  接下来我考虑版友yinyt 同志需要在上周或者下周进行筛选,于是应该增加一个参数,将函数扩展为能在若干周内找到对应周的周一日期,于是我加入了一个参数m,使函数变化为:

Function Monday(MYDate as Date,m as long) as date
'功能:计算给定日期所在周的周一日期
'参数:MyDate--给定日期,m--0为本周,1为下周,-1为前周
'示例:计算下周周一日期 Msgbox Monday(Date,1)
dim n as long
n=1-Weekday(Mydate,vbMonday)
Monday=DateAdd("d",n,MyDate)
Monday=DateAdd("d",m*7,Monday)
END Function

  版友yinyt 同志的真正需求不是仅仅找到周一,而是应该找到某个周的周一和周日日期,这样就可以用Between And 这样的结构来构成筛选的准则了。于是我觉得函数返回的不应该是一个数,而应该是一个数组,这个数组包含了周一和周日的日期。基于此,便将函数最终修改为如下:

Function MYWeekday(MYDate As Date, m As Long) As Variant
'功能:计算给定日期所在周的周一日期与周日日期数组
'参数:MyDate--给定日期,m--0为本周,1为下周,-1为前周
'示例:计算下周周一日期 Msgbox Monday(Date,1)
Dim A(1)
Dim D As Date
Dim n As Long
n = 1 - Weekday(MYDate, vbMonday)
D = DateAdd("d", n, MYDate)
D = DateAdd("d", m * 7, D)
A(0) = D
A(1) = DateAdd("d", 6, D)
MYWeekday = A
End Function







本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

本帖被以下淘专辑推荐:

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享分享 分享淘帖1 订阅订阅
2#
发表于 2011-4-26 00:20:19 | 只看该作者
确实不好讲。。。有些时候我可以写一些,但让我讲该如何编写,为什么这么编写,我就哑口无言了。。。
3#
发表于 2011-4-26 09:13:13 | 只看该作者
todaynew手把手式的教导,难得!
4#
发表于 2011-4-26 16:47:47 | 只看该作者
逐步深入!层层剥皮。
5#
发表于 2011-4-26 19:41:41 | 只看该作者
循序渐进,由简单到复杂。
6#
发表于 2013-5-21 17:20:47 | 只看该作者
我 是火星人!!!

点击这里给我发消息

7#
发表于 2014-12-4 11:03:12 | 只看该作者
要顶
回复

使用道具 举报

点击这里给我发消息

8#
发表于 2014-12-4 14:22:08 | 只看该作者
好好看看
回复

使用道具 举报

9#
发表于 2017-10-31 17:39:13 | 只看该作者
谢谢分享~~~~~~~~~
回复

使用道具 举报

10#
发表于 2017-12-30 19:13:09 | 只看该作者
很不错的例子
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-12 00:44 , Processed in 0.095941 second(s), 38 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表