vb字符格式转化为时间格式的函数

VB.net 中 取系统时间

Dim datestr As String = ""
datestr = Format(Now(), "yyyy/MM/dd H:mm:ss ffff")
用户定义的日期/时间格式（Format 函数）
下表显示可用于创建用户定义的日期/时间格式的字符。与 Visual Basic 的早期版本不同，这些格式字符区分大小写。

字符
说明

(:)

时间分隔符。在某些区域设置中，可以使用其他字符表示时间分隔符。时间分隔符在格式化时间值时分隔小时、分钟和秒。格式化输出中用作时间分隔符的实际字符由系统的 LocaleID 值确定。

(/)

日期分隔符。在某些区域设置中，可以使用其他字符表示日期分隔符。日期分隔符在格式化日期值时分隔日、月和年。格式化输出中用作日期分隔符的实际字符由您的区域设置确定。

(%)

用于表明不论尾随什么字母，随后字符都应该以单字母格式读取。也用于表明单字母格式应以用户定义格式读取。有关更多详细信息，请参见下面的内容。

d

将日显示为不带前导零的数字（如 1）。如果这是用户定义的数字格式中的唯一字符，请使用 %d。

dd

将日显示为带前导零的数字（如 01）。

ddd

将日显示为缩写形式（例如 Sun）。

dddd

将日显示为全名（例如 Sunday）。

M

将月份显示为不带前导零的数字（如一月表示为 1）。如果这是用户定义的数字格式中的唯一字符，请使用 %M。

MM

将月份显示为带前导零的数字（例如 01/12/01）。

MMM

将月份显示为缩写形式（例如 Jan）。

MMMM

将月份显示为完整月份名（例如 January）。

gg

显示时代/纪元字符串（例如 A.D.）

h

使用 12 小时制将小时显示为不带前导零的数字（例如 1:15:15 PM）。如果这是用户定义的数字格式中的唯一字符，请使用 %h。

hh

使用 12 小时制将小时显示为带前导零的数字（例如 01:15:15 PM）。

H

使用 24 小时制将小时显示为不带前导零的数字（例如 1:15:15）。如果这是用户定义的数字格式中的唯一字符，请使用 %H。

HH

使用 24 小时制将小时显示为带前导零的数字（例如 01:15:15）。

m

将分钟显示为不带前导零的数字（例如 12:1:15）。如果这是用户定义的数字格式中的唯一字符，请使用 %m。

看你TEXT中输入的数据了，是否只是区分时间就可以，还是会有年月日你输入的种类有几种，可以是12：00：00，会不会可能是120000，或者就是12，那首先判断是时间还是年月日，这情况很多，要说清楚，才能做

text1.text=format(time,"ttttt") '显示时间text1.text=format(date,"dddddd") 显示日期

CDate(text1.text)