dim medate as string
medate = rtrim(t_date.text)
本月:
sql = "select * from table where month(inputdate) = month('"+medate+"')"
本年度:
sql = "select * from table where year(inputdate) = year('"+medate+"')"
本季度:
dim stdt as string
dim eddt as string
sql = "select * from table where inputdate = '"+stdt+"' and '"+eddt+"'"