重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
now()可以返回當前時間,如果你要把它作文件名,那么需要先轉換成string,可以使用
讓客戶滿意是我們工作的目標,不斷超越客戶的期望值來自于我們對這個行業的熱愛。我們立志把好的技術通過有效、簡單的方式提供給客戶,將通過不懈努力成為客戶在信息化領域值得信任、有價值的長期合作伙伴,公司提供的服務項目有:域名注冊、虛擬空間、營銷軟件、網站建設、漢南網站維護、網站推廣。
format函數
,比如format(now(),
用TIMER控件調用NOW函數,可取得系統的日期和時間:
Private Sub Timer1_Timer()
Text1 = Now
End Sub
兩種方式自己選用
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String
s = DateTime.Today.Year()
s = s DateTime.Today.Month()
s = s DateTime.Today.Day()
s = s DateTime.Now.Hour()
s = s DateTime.Now.Minute()
s = s DateTime.Now.Second()
MsgBox(s, vbDefaultButton1, Now())
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim s As String
s = Format(Now(), "yyyymmddhhmmss")
MsgBox(s, vbYes, Now())
End Sub
用日期函數day()可獲得當前日期,time()可獲得當前系統時間.
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16顯示當前日期
now 這個函數可以獲得當前系統時間(包括年月日,小時分鐘秒)
而
year()
month()
day()
等等則可以從now返回的值中分別提取年,月,日的信息
首先建立一個timer控件和一個label控件,之后把timer控件的interval屬性改為1000
之后編寫代碼:
Private Sub Timer1_Timer()
a = Time$
Label1.Caption = "當前時間為:" a
End Sub
我想應該是,你試試看把……