以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期列与字符列的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=22593)
--  作者：飞天
--  发布时间：2012/8/17 19:32:00
--  日期列与字符列的问题

表A有二个列

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

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

 

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

请教高手,如何写这代码?
--  作者：狐狸爸爸
--  发布时间：2012/8/17 20:38:00
--  

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

 

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)

[此贴子已经被作者于2012-8-17 20:38:16编辑过]