本菜鸟找到一段“统计排名”代码，测试成功，求改进，谢谢

淡秋

本菜鸟找到一段“统计排名”代码，测试成功，求改进，谢谢
以下为代码，显示2012年期间GroupID=5的用户组发布文章的前10名，

(大小:15.9 K 下载次数:18)

我想改进一点点时间，希望时间范围是本年度（明年的话就自动统计2013年的，不用手动再改时间范围），请问如何修改代码，非常感谢，本人是菜鸟，只有请求各位论坛的兄弟姐妹了^_^

sfs041134

Dim Nowyear

Nowyear = year(now())

SqlItem="select Inputer,count(Inputer) as num from PE_Article where (UpdateTime between #"&Nowyear&"-1-01# AND #"&Nowyear&"-12-31#)and  Inputer in (select UserName from PE_User where GroupID=5) group by Inputer order by count(Inputer) DESC "