以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  《使用指南》中的某处错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55156)
--  作者：jerzhh
--  发布时间：2014/8/11 22:47:00
--  《使用指南》中的某处错误

在《使用指南》中
[ 开发指南 / FoxTable编程 / 事件编程 / 事件实例 / 其他常见任务 / 年龄和工龄的精确计算 ] 这一小节中关于[方法一]的实例：

假定表中有两列，分别是入职日期和工龄，需要根据入职日期精确计算出工龄。

可以如下设置DataColChanged事件：

Select Case e.DataCol.name
    Case "入职日期"
        If e.DataRow.IsNull("入职日期") Then
            e.DataRow("工龄") = Nothing
        Else
            Dim tp As TimeSpan = Date.today - CDate(e.DataRow("入职日期"))
            e.DataRow("工龄") = Math.Round(tp.TotalDays / 365.2422,2)
        End If
End Select

 

其中 Dim tp As TimeSpan

 

是否应改为 Dim tp As Date   ?
--  作者：有点甜
--  发布时间：2014/8/11 22:54:00
--  

不。

 

 http://www.foxtable.com/help/topics/0287.htm