如果使用按鈕或SpinButton,可以這樣設置
Private sub Cmdup_click()或private spin button 1 _ spin up()
Dim T1作為日期,T2作為日期
T1 =時間值(Text1)
T2 = DateAdd("s ",-1,T1)
Text1 =格式(T2,“hh:mm:ss”)
末端接頭
還有壹點需要註意:如果使用spinbutton,需要參考微軟Frams 2.0,設置spinbutton.value=16000。
如果妳用的是DTpicker控件,看看xjnzhidao的結果就知道了。