dim sdate as date
dim edate as datestr1 = "20040901" 怎样转化成日期型
日期型怎样转化成字符型