如何在VB里进行日期格式转换

Question

如，我在VB里用MID截取了一组数字“20131024200000”，我现在需要将这组数字转换成日期格式“2013/10/24 20:00:00”。我应该用什么方法，注意是在VB下，不要在单元格里操作!

Answer 1

Private Sub Command1_Click()
a = "20131024200000"
a = CDate(Format(a, "0000/00/00 00:00:00"))
MsgBox a
End Sub
'时间格式，请参考。

Answer 2

这里的要点是设置返回值的类型为字符串类型。
Private Sub Command1_Click()
s1 = "20130924200000"
Dim s As String
s = Format(a, "0000/00/00 00:00:00")
print s
End Sub

Answer 3

‘如果取得数据比较规则那么用下面的就行

newStr = Format("20131024200000", "####/##/## ##:##:##")

Answer 4

使用
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:星期
这个变量可随意变化，但在使用
月与分请多加注意。

Answer 5

使用 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:星期 这个变量可随意变化，但在使用 月与分请多加注意。