　操作系统办公实用知识设计开发 WEB开发移动开发数据库软件工程网管安全管理信息化答疑渠道

建立自由的会计日期的报表

2004-4-19　转载自：双胞胎工作室　网友评论 0 条　点击进入论坛

建立自由的会计日期的报表

　　Microsoft Access 的报表提供按日期分组的统计，可是只能是完整的年、月、日等，也就是说比如要统计一个月的数据就必须是从月初到月底。

　　我们编写程序，有许多是工作中的统计系统，而单位的各项统计又以会计日期为准，会计日期不一定从1日到31日，有的公司就是从上个月的26日到这个月的25日算一个月，这样用 Access 的报表向导自动生成的报表就不成了。当然，还是我们自己动手实现吧，其实很简单，一学就会。

1.认识几个有关时间的函数

　　1.Cdate(日期表达式)

　　将日期表达式转换成日期类型的数据。

　　日期表达式是任何可以解释成日期的表达式，包含日期文字，可以看作日期的字符串以及从函数返回的日期。

　　比如：myDate = CDate("99-5-20") ，这样的日期表达式必须加双引号，否则结果不可预料。

　　CDate 依据系统上的区域设置来决定日期的格式。如果提供的格式为不可识别的日期设置，则不能正确判断年、月、日的顺序。

　　2.Now()

　　返回当前计算机系统设置的日期和时间。

　　3.Year(日期表达式)

　　返回表示年份的整数。

　　比如：Year("00-6-15") = 2000

　　4.Month(日期表达式)

　　返回 1 到 12 之间的整数，表示一年中的某月。

　　比如：Month("00-6-15") = 6

　　5.DateAdd(interval, number, date)

　　返回一个日期，这一日期加上了一段时间间隔。可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。

DataAdd 函数参数

参数                      说明

interval      字符串表达式，是所要加上去的时间间隔的单位。
number        数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
date          日期表达式，这一日期还加上了时间间隔。

interval 参数设定值

值              说明
yyyy             年
q                季
m                月
y            一年的日数
d                日
w            一周的日数
ww               周
h                时
n               分钟
s                秒

　　比如：
　　DateAdd("d",10,"2000-6-18") = 2000-06-28
　　DateAdd("m",-1,"2000-6-18") = 2000-05-18

[下一页]

2.创建让用户选择日期窗体