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

表A有二个列

其中列:载入时间  (字符型) 例如:19980327  代表1998年03月27日,有部分数据会以199808 (代表1998年8月分)

其中列:归档日期  (日期型) 例如:1998-03-31 永远都是以年,月,日格式录入

当"归档日期"录入时间时,能通过 ValidateEdit 事件进行验证:归档日期必需大于载入时间,否则无法退出编辑.

请教高手,如何写这代码?

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

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)