YYYYMMDD格式的字符串如何转换为日期？

[itti]

Hi,我有以一个字符串类型存储的日期，格式为YYYYMMDD，请问把它转换为日期类型，请问如何做？
例如：
DIM A as string
DIM B as date
A=“20071208”
B=CDATE(A) ! <-- 如何做？

谢谢

[用户 昵称]

Private   Sub   Command1_Click()   
  Dim   str   As   String   
  Dim   temp   As   String   
  str   =   "20050511-010225"   
  temp   =   Left(str,   4)   &   "-"   &   Mid(str,   5,   2)   &   "-"   &   Mid(str,   7,   2)   &   "   "   &   Mid(str,   10,   2)   &   ":"   &   Mid(str,   13,   2)   &   ":"   &   Right(str,   2)   
  Text1.Text   =   CDate(temp)   
  End   Sub  

见
http://topic.csdn.net/t/20050513/09/4003272.html

[dong127]

DIM A as string
DIM B as date
A=“20071208”
B=CDATE(format(A,"0000/00/00"))

[of123]

妙！