主题：关于工龄的问题

Select Case e.DataCol.Name
    Case "入职时间"
        If e.DataRow.IsNull("入职时间") = False Then
            Dim rzrq As Date = CDate(e.NewValue)

            Dim tp As TimeSpan = Date.Today - CDate(e.NewValue)
            e.DataRow("工龄") = tp.TotalDays \ 365.2422
            Dim nYear As Integer =Date.Today.Year - rzrq.Year
            Select Case nYear
                Case 0 To 1
                    e.DataRow("年休假") = 0
                Case 2 To 9
                    e.DataRow("年休假") = 5
                Case 10 To 19

                    e.DataRow("年休假") = 10
                Case Else
                    e.DataRow("年休假") = 20
            End Select
        End If
End Select   按年计算可能符合楼主的要求,我刚才看了林大的代码,修改了下,因为发现 2011.05.02的算出来没有假期 改成这样工龄准确了, 假期规则应该也可以