主题：[求助]在职时间和在职月数计算[已解决]

Select Case e. DataCol .name

    Case "入职日期"

        If e .DataRow . IsNull( "入职日期" ) Then

             e .DataRow ( "在职时间" ) = Nothing

             e .DataRow ( "在职月数" ) = Nothing

        Else

            Dim y,m,d As Integer

            Dim dt1 As Date  = e .DataRow ( "入职日期" )

            Dim dt2 As Date = Date .Today ()

            DateYMD(e.DataRow("入职日期"),Date.Today,y,m,d) 

            e.DataRow("在职时间") = y & "年" & m & "月" & d & "日"

            e .DataRow ( "在职月数" ) = ( dt2 . Year - dt1 . Year ) * 12 + dt2 . Month - dt1 . Month

        End If

End Select

Select Case e. DataCol .name

    Case "入职日期"

    Select Case e. DataRow("员工状态")

    case "在职"

        If e .DataRow . IsNull( "入职日期" ) Then

             e .DataRow ( "在职时间" ) = Nothing

             e .DataRow ( "在职月数" ) = Nothing

        Else

            Dim y,m,d As Integer

            Dim dt1 As Date  = e .DataRow ( "入职日期" )

            Dim dt2 As Date = Date .Today ()

            DateYMD(e.DataRow("入职日期"),Date.Today,y,m,d) 

            e.DataRow("在职时间") = y & "年" & m & "月" & d & "日"

            e .DataRow ( "在职月数" ) = ( dt2 . Year - dt1 . Year ) * 12 + dt2 . Month - dt1 . Month

        End If

   case "离职"

    If e .DataRow . IsNull( "入职日期" ) Then

             e .DataRow ( "在职时间" ) = Nothing

             e .DataRow ( "在职月数" ) = Nothing

        Else

            Dim y,m,d As Integer

            Dim dt1 As Date  = e .DataRow ( "入职日期" )

            Dim dt2 As Date = Date .Today ()

            这部分就不用我写了吧?

        End If

End Select

End Select

Select Case e.DataCol.name

    Case "入职日期"

        Dim y,m,d As Integer

        Dim dt1,dt2 As Date

        Dim dr1 As DataRow = e.DataRow

        If dr1.IsNull("入职日期") Then

            dr1("在职时间") = Nothing

            dr1("在职月数") = Nothing

        Else  

            Select Case dr1("员工状态")

                Case "在职","离职"

                    dt1 = dr1("入职日期")

                    dt2 = iif(dr1("员工状态")= "在职",Date.Today(),dr1("离职日期"))

                    DateYMD(dt1,dt2,y,m,d)

                    dr1("在职时间") = y & "年" & m & "月" & d & "日"

                    dr1("在职月数") = y*12 + m

            End Select

        End If 

End Select