如何用DTPICKER 做日期的转换？？？

Question

我要把一把一个字符串转换成日期型
之后再用DTPICKER显示出来
要怎么做，
我写的代码如下但是出错
大家帮帮忙看看那错了。给个答案吧`~~~~~~~
 Dim s(3) As String
 Dim i As String
 Dim j As Data
Private Sub Command1_Click()
    i = "#" & s(1) & "/" & s(1) & "/" & s(0) & "#"    ‘此时I 的值为#10/10/2003#
    j = CDate(i)
    Dtpicker.value = j      
End Sub

Answer 1

后二者更好一些：
 Dim s(3) As StringPrivate Sub Command1_Click()
 Dim i As String
 Dim j As Date
    i = s(3) & "/" & s(2) & "/" & s(1)     '此时I 的值为#10/10/2003#
    j = CDate(i)
    DTPicker1.Value = j
End SubPrivate Sub Command2_Click()
DTPicker1.Year = s(1)
DTPicker1.Month = s(2)
DTPicker1.Day = s(3)
End SubPrivate Sub Command3_Click()
DTPicker1.Value = DateSerial(s(1), s(2), s(3))
End SubPrivate Sub Form_Load()
s(1) = 2003
s(2) = 10
s(3) = 10
End Sub

Answer 2

Private Sub Command1_Click()
    Dim s(3) As String
    s(2) = "10"
    s(1) = "10"
    s(0) = "2003"
    DTPicker1.Value = CDate(s(2) & "/" & s(1) & "/" & s(0))   '此时I 的值为#10/10/2003#
End Sub

Answer 3

Dim s(3) As String
 Dim i As String
 Dim j As Date
Private Sub Command1_Click()
    i = s(1) & s(1) & s(0) ‘此时I 的值为#10/10/2003#
    j = CDate(i)
    Dtpicker.value = j      
End Sub