sub indate(termkind)
	dim fdate,tdate
	tdate = date()
	select case termkind
		case "1D"
			fdate = dateadd("d",-1,tdate)
			document.tmpsv.term(0).checked = true
		case "1W"
			fdate = dateadd("d",-7,tdate)
			document.tmpsv.term(1).checked = true
		case "15D"
			fdate = dateadd("d",-15,tdate)
			document.tmpsv.term(2).checked = true
		case "1M"
			fdate = dateadd("m",-1,tdate)
			document.tmpsv.term(3).checked = true
		case "3M"
			fdate = dateadd("m",-3,tdate)
			document.tmpsv.term(4).checked = true
	end select
	fdate = left(fdate,4)+mid(fdate,6,2)+right(fdate,2)
	document.tmpsv.fromdate.value=fdate
end sub