Koda za kadrovske mape

'NK:18NET3323 Dodano izračunavanje delavne dobe
    Private Sub gvPogodbeOZaposlitvi_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) Handles gvPogodbeOZaposlitvi.CellValueChanged
        Try
            Dim dt As DataRow = gvPogodbeOZaposlitvi.GetFocusedDataRow()
            If (gvPogodbeOZaposlitvi.FocusedColumn.FieldName = "DatOd" OrElse gvPogodbeOZaposlitvi.FocusedColumn.FieldName = "DatDo") AndAlso Not IsDBNull(dt.Item(3)) AndAlso Not IsDBNull(dt.Item(4)) Then
                Dim duration As TimeSpan = dt.Item(4) - dt.Item(3)

                Dim StDni As Integer = duration.TotalDays

                Dim StLeto As Integer = Math.Floor(StDni / 365)
                StDni = StDni Mod 365
                Dim StMesec As Integer = Math.Floor(StDni / 30)
                StDni = StDni Mod 30

                dt.Item(5) = StMesec  'Število mesecev

                'celoten izpis -zakomentiran ker je tip stolpca integer  pa piše število mesecev (igor je reku nj bo tko k je spodej)
                'dt.Item(5) = String.Format("{0} Let, {1} Mesecev, {2} Dni",StLeto,StMesec,StDni)



            End If
        Catch ex As Exception
            EL(ex)
        End Try
    End Sub

    Private Sub gvPogodbeOZaposlitviZunanje_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) Handles gvPogodbeOZaposlitviZunanje.CellValueChanged
    Try
        Dim dt As DataRow = gvPogodbeOZaposlitviZunanje.GetFocusedDataRow()
            If (gvPogodbeOZaposlitviZunanje.FocusedColumn.FieldName = "DatOd" OrElse gvPogodbeOZaposlitviZunanje.FocusedColumn.FieldName = "DatDo") AndAlso Not IsDBNull(dt.Item(4)) AndAlso Not IsDBNull(dt.Item(5)) Then
                Dim duration As TimeSpan = dt.Item(5) - dt.Item(4)
                Dim StDni As Integer = duration.TotalDays

                Dim StLeto As Integer = Math.Floor(StDni / 365)
                StDni = StDni Mod 365
                Dim StMesec As Integer = Math.Floor(StDni / 30)
                StDni = StDni Mod 30

                dt.Item(6) = String.Format("{0} Let, {1} Mesecev, {2} Dni", StLeto, StMesec, StDni)



            End If
        Catch ex As Exception
        EL(ex)
    End Try
End Sub