Gå til innhold

stelar7

Medlemmer
  • Innlegg

    683
  • Ble med

  • Besøkte siden sist

Innlegg skrevet av stelar7

  1. Du må nesten se i kontrakten, evnt. tariffavtale. I verste tilfelle er det vel bare å spørre om fri, de fleste pleier ved å være litt medgjørlig.

     

    De tariffavtalene som Utdanningsforbundet er part i, har bestemmelser om rett til fri med lønn for lesedager og eksamensdager.

    I hovedtariffavtalen i KS er bestemmelsene slik:

    I forbindelse med avleggelse av eksamen gis permisjon med lønn for eksamensdagen(e) samt to lesedager før hver eksamen. Ved eksamensformer som varer 3 sammenhengende dager eller mer, skal det drøftes en ytterligere tilrettelegging. Det er en forutsetning at vedkommende ville hatt ordinært arbeid de to dagene umiddelbart før eksamen, og at faget har betydning for kommunen.

    Lignende bestemmelser gjelder på andre tariffområder. I PBL-A og FUS er bestemmelsene tatt i inn i hovedavtalen pkt. 5.3.

     

    https://www.utdanningsforbundet.no/Hovedmeny/Lonn-og-arbeidsvilkar/Tema-A-A/Arbeidsforhold/Permisjon/

  2. Er sikkert en måte å gjøre det på med formler, men hvis VBA er en mulighet så kan du mappe dette til en shape:

     

    Note; tar ikke høyde for sammensatte ord slik som "HRG-nordmann's" som i filen din, men det kan gjøres ved noen flere loops.

     

     

     

    Sub main()
       
        Dim resultTable As ListObject
        Dim searchTable As ListObject
        
        Set resultTable = ActiveSheet.ListObjects("ResultTable")
        Set searchTable = Sheets("Name").ListObjects("DataTable")
        
        Dim resultWords() As String
        Dim searchWords() As String
        
        Dim searchValue As String
        Dim resultValue As String
        
        For i = 1 To resultTable.Range.Rows.Count
            resultWords = Split(resultTable.Range.Cells(i, 2))
            
            For Each res In resultWords
                resultValue = replaceData(res)
                    
                For j = 1 To searchTable.Range.Rows.Count
                    searchWords = Split(searchTable.Range.Cells(j, 2))
                    
                    For Each sea In searchWords
                        searchValue = replaceData(sea)
                            
                        If LCase(resultValue) = LCase(searchValue) Then
                            resultTable.Range.Cells(i, 4) = searchTable.Range.Cells(j, 4)
                        End If
                    Next sea
                Next j
            Next res
        Next i
    End Sub
    
    Private Function replaceData(text) As String
        Dim val As String
        val = replace(text, ",", " ")
        val = replace(val, ".", " ")
        val = replace(val, "'", " ")
        val = replace(val, "-", " ")
        val = replace(val, "_", " ")
        replaceData = replace(val, " ", "")
    End Function
    

     

     

    eksempelProblemMacroFix.zip

  3. Du kan sortere basert på en Collator. Er litt usikker på om "nob" er rett, men mener det skal fungere fint.

    Collections.sort(listOfNames, Collator.getInstance(new Locale("nob")));

    EDIT: rett locale er 

    new Locale("no", "nb")

    Eksempel:

    public static void main(String[] args)
    {
        List<String> listOfNames = Arrays.asList("a", "e", "ø", "æ", "k", "å", "a");
        System.out.println(listOfNames);
        Collections.sort(listOfNames, Collator.getInstance(new Locale("no", "nb")));
        System.out.println(listOfNames);
    }
    [a, e, ø, æ, k, å, a]
    [a, a, e, k, æ, ø, å]
    
×
×
  • Opprett ny...