Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

[原创]Access自定义的计算一月有多少天的函数

2002-7-1 23:30| 发布者: admin| 查看: 468| 评论: 4|原作者: HG|来自: www.office-cn.net

摘要: 一天有多少天的函數。 Public Function my_daily(nowdate As Date) As Integer Dim my_date_first_day As Date '定義當前月的第一天 Dim my_date_last_day As Date'定義當下個月的第一天 Dim my_date_current_da ...

一天有多少天的函數。
Public Function my_daily(nowdate As Date) As Integer
Dim my_date_first_day As Date '定義當前月的第一天
Dim my_date_last_day As Date '定義當下個月的第一天
Dim my_date_current_day As Integer '定義今天為當前月的第几天

my_date_current_day = Day(nowdate)
my_date_first_day = DateAdd("d", -(my_date_current_day - 1), nowdate)
my_date_last_day = DateAdd("m", 1, my_date_first_day)

my_daily = DateDiff("d", my_date_first_day, my_date_last_day)

End Function
-------------------------------------------------------------
如:my_daily("2002-2-1") 返回28
my_daily("2002-7-1") 返回31
[em04][em06][em06][em04]

收藏分享邀请

上一篇：Access自动检测注册表，如果没有注册表信息，则自动增加下一篇：Access中文字符串转化为拼音通用的函数[原码下载]

发表评论

帐号		自动登录	找回密码
密码			注册

[原创]Access自定义的计算一月有多少天的函数

最新评论

相关分类