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

Question

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

Answer 1

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

Answer 2

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