<<< 返回 access911.net 编程静态资料库索引页

如何得知一个月有多少天?

 

作者:  摘自:  录入:cg1  时间:2002-11-21  浏览人次:989


专题地址:http://access911.net/fixhtm/74FAB71E.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


创建自定义函数如下:

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_cu.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/74FAB71E.htm

 


上一篇:如何用vba判断系统是否安装excel?

下一篇:如何禁止Access主窗体右上角的退出按钮?(用代码使ACCESS主窗体上的"X"失效)

2017年2月22日生成静态资料