有一个组合框,里面可以选择年份如2007,2008,2009等等,a=Combo1.text ,比如Combo1里面选择了2007,我要求添加在2007里的所有记录,如:a1=2006-12-31 a2=2008-1-1
代码部分:
a=Combo1.text
a1=????
a2=???
DO While Not Adodc1.Recordset.EOF
if Adodc1.Recordset.Fields("日期") > a1 and Adodc1.Recordset.Fields("日期") < a2 then
..............................
end if
Adodc1.Recordset.MoveNext
loop
请问a1和a2如何表示出来

用dateserial函数

不明白,能不能说清楚一点

不是我不助人为乐，而是你为什么不先去MSDN一下这个函数怎么用？

因为太大了,下载要几个小时,在家搞不懂才上网吧来

with combo1
a1=dateserial(cint(.text)-1,12,31)
a2=dateserial(cint(.text)+1,1,1)
end with

万分感谢,可以回家了