189 8069 5689
使用 format 函数：
创新互联建站专业为企业提供安化网站建设、安化做网站、安化网站设计、安化网站制作等企业网站建设、网页设计与制作、安化企业网站模板建站服务，十年安化做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
如：
Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#
' 以系统设置的长时间格式返回当前系统时间。
MyStr = Format(Time, "Long Time")
' 以系统设置的长日期格式返回当前系统日期。
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"。
' 如果没有指定格式，则返回字符串。
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 显示日期和/或时间。对于一个实数，显示日期和时间。如果没有小数部分，则仅显示日期。如果没有整数部分，则仅显示时间。日期和时间的显示由系统设置值确定。
vbLongDate 1 用计算机区域设置值指定的长日期格式显示日期。
vbShortDate 2 用计算机区域设置值指定的短日期格式显示日期。
vbLongTime 3 用计算机区域设置值指定的长时间格式显示时间。
vbShortTime 4 用计算机区域设置值指定的短时间格式显示时间。
yyyy/yy:年 m:月 d:日 h:时 m:分 s:秒 ddd/dddd:星期 这个变量可随意变化，但在使用 月与分请多加注意。
设计界面双击那个按钮(自动跳到代码里)
然后输入 要显示时间的那个Label.Text = DateTime.Now.ToString()
用日期函数day()可获得当前日期,time()可获得当前系统时间.
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16显示当前日期
now 这个函数可以获得当前系统时间（包括年月日，小时分钟秒）
而
year()
month()
day()
等等则可以从now返回的值中分别提取年，月，日的信息