主题：[讨论]日期怎么转数值？

表的DataColChanged代码：

Select Case e.DataCol.name
    Case "开始时间","结束时间"
        Dim dr As DataRow  = e.DataRow
        If dr("开始时间").Adddays(2) >= dr("结束时间")
            dr("结果") = Format(dr("开始时间"),"yyyy年MM月dd日") & "与"  & Format(dr("结束时间"),"yyyy年MM月dd日")
        Else
            dr("结果") = Format(dr("开始时间"),"yyyy年MM月dd日") & "至"  & Format(dr("结束时间"),"yyyy年MM月dd日")
        End If
End Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目45.table