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

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

专题地址：http://www.access911.net/index.asp?u1=a&u2=74FAB71E 如果需要更详细的评论或说明，请点击该地址。

简述：

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