用它自帶的下拉列表 來(lái)修改
在東乃等地區(qū),都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局,加強(qiáng)發(fā)展的系統(tǒng)性、市場(chǎng)前瞻性、產(chǎn)品創(chuàng)新能力,以專注、極致的服務(wù)理念,為客戶提供網(wǎng)站制作、成都網(wǎng)站制作 網(wǎng)站設(shè)計(jì)制作定制網(wǎng)站建設(shè),公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站設(shè)計(jì),全網(wǎng)整合營(yíng)銷推廣,成都外貿(mào)網(wǎng)站建設(shè)公司,東乃網(wǎng)站建設(shè)費(fèi)用合理。
數(shù)據(jù)庫(kù) 如果你字段是 日期型 你可以設(shè)置格式
用日期函數(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返回的值中分別提取年,月,日的信息
使用 format 函數(shù):
如:
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"。
' 用戶自定義的格式。
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)多加注意。