 |
VB 小時鐘應用
7 13 某日期倒數計時程式的變化(VB 6) Private Sub Form_Load() 'MsgBox Now 'MsgBox Date c = InputBox(" 請輸入日期", "input date", "2005 /1/1") MsgBox DateValue(c) & "--" & DateValue(Now) td = DateValue(c) - DateValue(Now) - 1 ' 天數 14 某日期倒數計時程式 ...
wayne.cif.takming.edu.tw |
 |