VB6.0 将字符串转成时间

Posted 2023-03-15

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

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 参考技术A Dim S As String
Dim MyDate As Date

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

vb net中怎么样将字符串类型转换成日期型

参考技术A 给你一个例子，里边包含了几种不同格式转换成标准的日期时间格式；
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
' 01/09/2001 00:00:00
Dim MyDateTime1 As DateTime = DateTime.Parse("Sep 2001")
' 05/09/2001 14:15:33
Dim MyDateTime2 As DateTime = DateTime.Parse("Wed 5 September 2001 14:15:33")
' 01/09/2005 00:00:00
Dim MyDateTime3 As DateTime = DateTime.Parse("5,9,01")
' 09/05/2001 14:15:33
Dim MyDateTime4 As DateTime = DateTime.Parse("5/9/2001 14:15:33")
' 当前系统日期 14:15:00
Dim MyDateTime5 As DateTime = DateTime.Parse("2:15 PM")
Dim MyInfo As String = MyDateTime1.ToString()
MyInfo += vbCrLf + MyDateTime2.ToString()
MyInfo += vbCrLf + MyDateTime3.ToString()
MyInfo += vbCrLf + MyDateTime4.ToString()
MyInfo += vbCrLf + MyDateTime5.ToString()
MessageBox.Show(MyInfo, "信息提示", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "信息提示", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try

End Sub
End Class本回答被提问者和网友采纳