
Sub?gettime()

成都創(chuàng)新互聯(lián)公司成都企業(yè)網(wǎng)站建設(shè)服務(wù),提供成都做網(wǎng)站、網(wǎng)站建設(shè)、外貿(mào)營銷網(wǎng)站建設(shè)網(wǎng)站開發(fā),網(wǎng)站定制,建網(wǎng)站,網(wǎng)站搭建,網(wǎng)站設(shè)計,響應(yīng)式網(wǎng)站,網(wǎng)頁設(shè)計師打造企業(yè)風格網(wǎng)站,提供周到的售前咨詢和貼心的售后服務(wù)。歡迎咨詢做網(wǎng)站需要多少錢:18982081108
nowtime?=?Format(DateTime.Now,?"yyyy/MM/dd?hh:mm:ss")
MsgBox?nowtime
End?Sub
其中DateTime.Now為當前系統(tǒng)的時間
Format是設(shè)置時間格式
效果如下
now()可以返回當前時間,如果你要把它作文件名,那么需要先轉(zhuǎn)換成string,可以使用
format函數(shù)
,比如format(now(),
用日期函數(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返回的值中分別提取年,月,日的信息
首先建立一個timer控件和一個label控件,之后把timer控件的interval屬性改為1000
之后編寫代碼:
Private Sub Timer1_Timer()
a = Time$
Label1.Caption = "當前時間為:" a
End Sub
我想應(yīng)該是,你試試看把……