Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt

Next counter
If MaxHeight > 0 And tmpHeight > MaxHeight Then tmpHeight = MaxHeight
CommentBoxHeight = tmpHeight
End Function
A.9.4 Funksjonen EnkeltFilnavn()
A.9.4.1 Hensikt
Funksjonen benyttes til å trekke ut et filnavn fra en tekststreng som inneholder hele pathen til
filen.
A.9.4.2 Kildekode
Private Function EnkeltFilnavn(LangtFilnavnMedMappe As String) As String
'Funksjonen brukes til å hente ut filnavnet fra en tekststreng
46
'Sjekker om input variabelen LangtFilnavnMedMappe innehollder \. Dersom dette ikke er
tilfellet betyr det at inputvariabelen kun inneholder navnet på filen som skal brukes
If InStr(LangtFilnavnMedMappe, "\") = 0 Then
EnkeltFilnavn = LangtFilnavnMedMappe
Else
'Inputvariabelen inneholder \. Bruker funksjonen Mid og InStrRev til å hente ut det som står
etter den siste \ i inputvariabelen. Dette er filnavnet som skal brukes
EnkeltFilnavn = Mid(LangtFilnavnMedMappe, InStrRev(LangtFilnavnMedMappe, "\") + 1)
End If
End Function
A.9.5 Funksjonen Finn_Kolonne()
A.9.5.1 Hensikt
Funksjonen brukes til å beregne hvilken kolonne importerte kostnadsdata skal plasseres i.
Funksjonen har integervariabelen intDumpår som inputvariabel. Denne variabelen inneholder
året kostnadene gjelder for, hentet fra KOSTMOD dumpfilen. Dette årstallet brukes så til å finne
hvilken kolonne i MORSK som samsvarer med dette årstallet, slik at kostnadene blir importert
til riktig årstall.
A.9.5.2 Kildekode
Function Finn_Kolonne(intDumpÅr As Integer)
'Funksjonen brukes til å finne hvilken kolonne data skal plasseres i. Inputvariabelen intDumpÅr
inneholder årstallet som kostnaden gjelder for
'Deklarerer og initsierer variabelene
Dim intKolonneteller As Integer
intKolonneteller = 3