十年網(wǎng)站開(kāi)發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶(hù) + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營(yíng)維護(hù)+專(zhuān)業(yè)推廣+無(wú)憂(yōu)售后,網(wǎng)站問(wèn)題一站解決
使用 format 函數(shù):
創(chuàng)新互聯(lián)建站專(zhuān)業(yè)為企業(yè)提供安化網(wǎng)站建設(shè)、安化做網(wǎng)站、安化網(wǎng)站設(shè)計(jì)、安化網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)與制作、安化企業(yè)網(wǎng)站模板建站服務(wù),十年安化做網(wǎng)站經(jīng)驗(yàn),不只是建網(wǎng)站,更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
如:
Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#
' 以系統(tǒng)設(shè)置的長(zhǎng)時(shí)間格式返回當(dāng)前系統(tǒng)時(shí)間。
MyStr = Format(Time, "Long Time")
' 以系統(tǒng)設(shè)置的長(zhǎng)日期格式返回當(dāng)前系統(tǒng)日期。
MyStr = Format(Date, "Long Date")
MyStr = Format(MyTime, "h:m:s") ' 返回 "17:4:23"。
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' 返回 "05:04:23 PM"。
MyStr = Format(MyDate, "dddd, mmm d yyyy") ' 返回 "Wednesday, Jan 27 1993"。
' 如果沒(méi)有指定格式,則返回字符串。
MyStr = Format(23) ' 返回 "23"。
' 用戶(hù)自定義的格式。
MyStr = Format(5459.4, "##,##0。00") ' 返回 "5,459.40"。
MyStr = Format(334。9, "###0。00") ' 返回 "334.90"。
MyStr = Format(5, "0。00%") ' 返回 "500.00%"。
MyStr = Format("HELLO", "") ' 返回 "hello"。
支持任何正確格式:
vbGeneralDate 0 顯示日期和/或時(shí)間。對(duì)于一個(gè)實(shí)數(shù),顯示日期和時(shí)間。如果沒(méi)有小數(shù)部分,則僅顯示日期。如果沒(méi)有整數(shù)部分,則僅顯示時(shí)間。日期和時(shí)間的顯示由系統(tǒng)設(shè)置值確定。
vbLongDate 1 用計(jì)算機(jī)區(qū)域設(shè)置值指定的長(zhǎng)日期格式顯示日期。
vbShortDate 2 用計(jì)算機(jī)區(qū)域設(shè)置值指定的短日期格式顯示日期。
vbLongTime 3 用計(jì)算機(jī)區(qū)域設(shè)置值指定的長(zhǎng)時(shí)間格式顯示時(shí)間。
vbShortTime 4 用計(jì)算機(jī)區(qū)域設(shè)置值指定的短時(shí)間格式顯示時(shí)間。
yyyy/yy:年 m:月 d:日 h:時(shí) m:分 s:秒 ddd/dddd:星期 這個(gè)變量可隨意變化,但在使用 月與分請(qǐng)多加注意。
設(shè)計(jì)界面雙擊那個(gè)按鈕(自動(dòng)跳到代碼里)
然后輸入 要顯示時(shí)間的那個(gè)Label.Text = DateTime.Now.ToString()
用日期函數(shù)day()可獲得當(dāng)前日期,time()可獲得當(dāng)前系統(tǒng)時(shí)間.
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16顯示當(dāng)前日期
now 這個(gè)函數(shù)可以獲得當(dāng)前系統(tǒng)時(shí)間(包括年月日,小時(shí)分鐘秒)
而
year()
month()
day()
等等則可以從now返回的值中分別提取年,月,日的信息