看来得找本书看看。连VB和vbScript都分不清啊!
你是我在CSDN碰上的第一个热心的人(可能还有很多),麻烦请将下面的代码写为标准VBScript 代码,这里小城市,实在买不到书。谢谢!加分!
ddlTimeSelect,textTimeStar,textTimeEnd为三个控件ID
------------------------------------------------------------------
Sub subAutoSetTime()
Dim MyForm,SelectedValue
Set MyForm = Document.forms("form1")
If SelectedValue < 0 then
MyForm.textTimeStar.Value=""
MyForm.textTimeEnd.Value=""
Else
MyForm.textTimeStar.Value=Cdate(DateAdd("d", -SelectedValue,Date))
MyForm.textTimeEnd.Value=Date()
End If
End Sub