VB 假如DTPicker1现在的时间是今天2008-10-16，怎么得出2007-10-16

Question

因我要用到统计同期历史记录。
adodc1... select ... "between '" & Str(DTP1.Value - 365) & " 'and '" & Str(DTP2.Value - 365) & " ')
这样肯定不对

Answer 1

DTP1.Value=cstr(Date)
adodc1... select ... "between '" & Str(DTP1.Value - 365) & " 'and '" & Str(DTP2.Value - 365) & " ')

这样DTP1.Value就可显示今天日期