為什么一定要用combobox 呢,非要用的話,在form_load 事件里為combobox 增加一個系統(tǒng)時間,或是增加一個time 控件,周期設定為一分鐘,然后每周期都為combobox 增加一個系統(tǒng)當前時間,并把老的(前一分鐘)的時間刪掉。
成都創(chuàng)新互聯(lián)公司是一家專注于成都網(wǎng)站建設、網(wǎng)站制作與策劃設計,通遼網(wǎng)站建設哪家好?成都創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設10多年,網(wǎng)設計領域的專業(yè)建站公司;建站業(yè)務涵蓋:通遼等地區(qū)。通遼做網(wǎng)站價格咨詢:13518219792
可以使用VB.NET中的DataTime對象的AddMonths方法:
Dim d1 As Date = Now
MsgBox(d1) '顯示現(xiàn)在的機器日期與時間
MsgBox(d1.AddMonths(2)) '顯示現(xiàn)在的機器日期加上2個月的對應日期與時間
MsgBox(d1.AddMonths(-1)) '顯示現(xiàn)在的機器日期減掉1個月的對應日期與時間
DataTime對象的方法很多,你可以通過在線查閱,例如:
d1.Add()
d1.AddDays()
d1.AddHours()
d1.AddMinutes()
d1.AddSeconds()
d1.AddYears()
等等!
注意:從字面意思可以理解是加,而括號里是填寫對應的數(shù)值,當數(shù)值為負數(shù),起到減的作用了。
用日期函數(shù)day()可獲得當前日期,time()可獲得當前系統(tǒng)時間.
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16顯示當前日期
now 這個函數(shù)可以獲得當前系統(tǒng)時間(包括年月日,小時分鐘秒)
而
year()
month()
day()
等等則可以從now返回的值中分別提取年,月,日的信息
給你個方法,在軟件加載時就判斷下當前系統(tǒng)時間(最好是判斷遠程服務器上的時間,因為當前運行系統(tǒng)的時間他可以手動),判斷當前時間是否有超過最后期限。。