Question

VB6.0 将字符串转成时间

比如现在是2010年8月10日18点10分15秒
我定义了一个字符串： 20100810181015
怎么样转成标准的时间格式：2010-08-10 18：10：15

Answer 1

Format 函数

返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。

使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式。

Format 函数示例

本示例显示用 Format
函数做格式化输出的不同用法。对于日期分隔号（/），时间分隔号（:），以及 AM/ PM
等文本而言，其真正的显示格式会因计算机上的国际标准不同而有所差异。在开发阶段，日期与时间是以短日期的格式，配合代码的国际标准来显示的。而在运行时，短日期则是根据系统的国际标准而定，而系统的国际标准和代码的国际标准可能并不相同。本示例中是假设国际标准为
English/United States。

MyTime 及 MyDate 在开发环境下，使用系统的短日期设置显示出来的。
Dim MyTime, MyDate, MyStrMyTime = #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"。

对于问帖的代码如下：

Private Sub Command1_Click()
    Dim StrDate As String
    Dim MyDate As Date
    StrDate = "20100810181015"
    MyDate = Format(StrDate, "####-##-## ##:##:##")
    Text1 = MyDate
End Sub

Answer 2

Dim S As String
Dim MyDate As Date

S = "20100810181015"
MyDate = Format(S, "####-##-## ##:##:##")