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

[zhufanamo]

我要把一把一个字符串转换成日期型
之后再用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

[northwolves]

后二者更好一些：
Dim s(3) As String

Private 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 Sub

Private Sub Command2_Click()
DTPicker1.Year = s(1)
DTPicker1.Month = s(2)
DTPicker1.Day = s(3)
End Sub

Private Sub Command3_Click()
DTPicker1.Value = DateSerial(s(1), s(2), s(3))
End Sub

Private Sub Form_Load()
s(1) = 2003
s(2) = 10
s(3) = 10
End Sub

[weizhuo]

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

[dongdony]

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

[zhufanamo]

我与你们写的一样嘛为什么是错的，
不要太不爽哟，

不过谢谢你们，
我给分了