VB2005 分解字符串

dim r as string,s
r="2009/07/22-15:57:45"
r=replace(r,"/",",")
r=replace(r,"-",",")
r=replace(r,":",",")
s=split(r,",")
运行后，S(0)为年，S(1)为月，S(2)为日，S(3)为时，S(4)为分，S(5)为秒。

VB2005不支持中文编程。所以变量“年”，“月”等，均不符合变量命名规范。

年=format(Date,"yyyy") 或 mid(Date,1,4)
月=format(Date,"mm") 或 mid(Date,6,2)
日=format(Date,"dd") 或 mid(Date,9,2)
时=mid(Date,12,2)
分=mid(Date,15,2)
秒=mid(Date,18,2)

把上面的Date换成 "yyyy/mm/dd hh:mm:ss" 的格式或字符串
其他的字符串就只能用 Mid 函数了

语法 Mid(string, start[, length]) Mid 函数的语法具有下面的命名参数： 部分 说明 string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。 start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ("")。 length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。 说明 欲知 string 的字符数，可用 Len 函数。 注意 MidB 函数作用于字符