青海往年中考题:vb中怎样将20060606转化为2006-06-06的格式?

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 13:23:44

Dim a as String
Dim b as String
Private Sub Form_Load()
b = "20060606"
a = Mid(b,1,4) & "-" & "-" & Mid(b,5,2) & "-" & Mid(b,7,2)
End Sub

b = Date
MsgBox Format(b, "yyyy-mm-dd")

按字节插入"-"
string1=left(string1,4)&"-"&left(mid(string1,4),2)&"-"&right(string1,2)

vbscript这么写的,不清楚VB 应该差不多。。。

dateserial("2006","06","06")

使用VB的format函数,定义输出字符串形式类型即可