求救:模块在查询中运行出错

qinton

我是一个ACCESS新手,最近在学习做一个程序,自定义了季度(jidu)的模块,但在打开查询时提示出错(载入到查询中去,查询中字段是季:jidu([签订日期]) )

     模块

     模块代码

     出错提示


         怎么解决呢?请各位高手不吝赐教,不胜感谢!

t小宝

Function jidu(riqi) As String

chenwm1973

学习[:50] [:50] [:50]

GordonTian

也可以使用函数：DatePart(interval, date[,firstdayofweek[, firstweekofyear]])
把interval 设定为q,
如：
dim a as string
a=year(date) & "年" & datepart("q",date) & "季")

呵呵，当然3楼的最简单

qinton

谢谢各位TX和版主,所建议的方法确实非常简单,看来书本也会误导人啊.[:50] [:50] [:50]