vb修改计算机时间,如何在VB里进行日期格式转换

满意答案

gzhys

2013.10.30

采纳率：54%    等级：7

已帮助：664人

使用 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", "

支持任何正确格式：

vbGeneralDate 0 显示日期和/或时间。对于一个实数，显示日期和时间。如果没有小数部分，则仅显示日期。如果没有整数部分，则仅显示时间。日期和时间的显示由系统设置值确定。

vbLongDate 1 用计算机区域设置值指定的长日期格式显示日期。

vbShortDate 2 用计算机区域设置值指定的短日期格式显示日期。

vbLongTime 3 用计算机区域设置值指定的长时间格式显示时间。

vbShortTime 4 用计算机区域设置值指定的短时间格式显示时间。

yyyy/yy:年 m:月 d:日 h:时 m:分 s:秒 ddd/dddd:星期 这个变量可随意变化，但在使用 月与分请多加注意。

00分享举报