主题：日期列与字符列的问题

其实就是就是将字符转换为日期的问题，你在命令窗口测试下面的代码：

Dim s1 As String = "19980327"
Dim d1 As Date
Dim y,m,d As Integer
If s1.length = 8 Then
    y = cint(s1.SubString(0,4))
    m = cint(s1.SubString(4,2))
    d = cint(s1.SubString(6,2))
ElseIf s1.Length = 6 Then
    y = cint(s1.SubString(0,4))
    m = cint(s1.SubString(4,2))
    d = 1
End If
d1 = New Date(y,m,d)
output.show(d1)