[7] Statens Institut för KommunikationsAnalys (SIKA), (1998), /lJHVDQDO\V(QI|UVWDUDSSRUWRP
LQULNWQLQJHQ DY SODQHULQJ I|U WUDQVSRUWLQIUDVWUXNWXUHQ . SIKA rapport 1998:8,
Stockholm.
[8] Tarkowski, J, Ireståhl, B, Lumsden, K (1995), 7UDQVSRUWORJLVWLN, Studentlitteratur Lund, ISBN 91-44-60371-1.
+HPVLGRU
[9] Riksskatteverket, RSV, ZZZUVYVH [10] Svenska åkeriförbundet, ZZZDNHULVH
0XQWOLJDNlOORU
[11] Forsberg, M SkogForsk Logistik och IT-stöd. [12] Kjellman, L Tage Rejmes Lastvagnar AB. [13] Kjellman, U Svenska Åkeriförbundet. [14] Länsförsäkringar Östergötlands län.
[15] Olsson, L Parator Norrborns Industri AB, efter offert framtagen av Jan Lingvall. [16] Sivonen, K %UDQG0DQDJHU7UXFNDQG%XV7\UHV1RUGLF&RXQWULHV
Michelin Gummiringar AB
%LODJD,
%LODJD, ±.DON\OHQ
%LODJD,,
%LODJD,,±.RVWQDGVRPIXQNWLRQDYQ\WWMDQGH
Genomsnittlig timkostnad som funktion av antal använda timmar.
%LODJD,, Total kostnad som funktion av antal använda timmar.
%LODJD,,,
%LODJD,,, ±)|UlQGULQJSHUNRVWQDGVVODJ
Förändring av kostnad per timme, då var och en av de fasta kostnaderna förändras.
Fasta avskrivningar Räntor Skatter Försäkringar Övriga fasta
%LODJD,,,
Förändring av kostnad per mil, då var och en av de fasta kostnaderna förändras.
Fasta avskrivningar Räntor Skatter Försäkringar Övriga fasta
%LODJD,,,
Förändring av kostnad per timme, då var och en av de rörliga kostnaderna förändras.
Rörliga avskrivningar
Däck
Service
%LODJD,,,
Förändring av kostnad per mil, då var och en av de rörliga kostnaderna förändras.
Rörliga avskrivningar
Däck
Service
%LODJD,,,
%LODJD,9
%LODJD,9 ±*HQRPVQLWWOLJDKDVWLJKHWHU
Medelhastigheter som funktion av avståndet.
Nedanstående graf återger tidsåtgången som funktion av transportavståndet, för kranbil. Gruppbilen har för alla avstånd en tidsåtgång som är 0,25 timmar lägre än kranbilens.
Medelhastighet utan lastning och lossning Medelhastighet för gruppbil
%LODJD9
%LODJD9 ±%HUlNQLQJVSURJUDP
%LODJD9
%LODJD9
87'$7$%/$'
%LODJD9
%LODJD9,
%LODJD9,±3URJUDPNRG
Dim sökväg As String Dim valdreg As String Dim T As Long
Private Sub TextBox4_Change() tabellNamn = TextBox4.Text End Sub
$QJHGDWDEDV
Private Sub CommandButton1_Click() Application.StatusBar = "Ange databas" sökväg = Application.GetOpenFilename Application.StatusBar = False
End Sub
)|UYDOGGDWDEDV
Private Sub TextBox1_Change() TextBox1.Text = sökväg
End Sub
$QYlQGEHILQWOLJ
Private Sub CommandButton4_Click() sökväg = TextBox1.Text
End Sub
.|UDOOD
Private Sub CommandButton2_Click() Dim transportörsblad Dim beräkningsblad Dim utdatablad Dim diagramblad Dim minDB Dim mittRS
%LODJD9,
tabellNamn = TextBox4.Text
Set transportörsblad = Worksheets("TransportörsID") Set utdatablad = Worksheets("UTDATA")
utdatablad.Range("A2:F500").Clear transportörsblad.Range("A1:D150").Sort _ Key1:=transportörsblad.Range("B1"), _ Key2:=transportörsblad.Range("A1") Set diagramblad = Worksheets("DIAGRAM") diagramblad.Range("A2:C300").Clear
For i = 1 To 150 Step 1
If transportörsblad.Range("B" & i & "") = "M" Or transportörsblad.Range("B" & i & "") = "N" Or transportörsblad.Range("B" & i & "") = "S" Then
Application.StatusBar = "Hämtar data.Vänta." Ti = transportörsblad.Range("A" & i & "").Value
Ennybilst = "SELECT Transportkm, [Omr Vol] FROM " & tabellNamn & " WHERE (Transportkm > 0) And ([Omr Vol] > 0) AND (Transportör =" & Ti
Ennybilst = Ennybilst & ") ORDER BY (Transportkm);"
Transportör = "SELECT First(Transportör) FROM " & tabellNamn & " WHERE Transportör =" & Ti & ";"
Set minDB = OpenDatabase(Name:=sökväg, ReadOnly:=True) Set mittRS = minDB.OpenRecordset(Ennybilst)
Set mittRS2 = minDB.OpenRecordset(Transportör)
6NULYHUVYDUHWSnIUnJD(QQ\ELOVWWLOO.ROXPQ$RFK%Sn%(5b.1,1*$5 ,167b//1,1*$5 RFKWDUERUWJDPODYlUGHQLGHVVDNROXPQHU
Set beräkningsblad = Worksheets("BERÄKNINGAR & INSTÄLLNINGAR") beräkningsblad.Range("A1:B4999").Clear
For mittFält = 1 To mittRS.Fields.Count
beräkningsblad.Cells(mittFält).Value = mittRS.Fields(mittFält - 1).Name Next mittFält
beräkningsblad.Cells(2, 1).CopyFromRecordset (mittRS) beräkningsblad.Cells(1).CurrentRegion.Name = "Database" Set mittRS = Nothing
6NULYHUVYDUHWSnIUnJD7UDQVSRUW|UWLOO%(5b.1,1*$5 ,167b//1,1*$5VDPWW|PPHU GHVVI|ULQQDQEODGHW87'$7$SnDOOLQIRUPDWLRQ
beräkningsblad.Cells(2, 12).CopyFromRecordset (mittRS2) Set mittRS2 = Nothing
%LODJD9,
.RSLHUDU5HJLRQIUnQ7UDQVSRUW|UV,'WLOO87'$7$
utdatablad.Range("B" & (1 + i) & "").Value = _ transportörsblad.Range("B" & i & "").Value
.RSLHUDUYlUGHQRPWUDQVSRUWHUnWDQGUDIUnQ7UDQVSRUW|UV,'WLOO%(5b.1,1*$5 ,167b//1,1*$5
beräkningsblad.Range("M23").Value = _ transportörsblad.Range("C" & i & "").Value beräkningsblad.Range("M24").Value = _ transportörsblad.Range("D" & i & "").Value
.RSLHUDUYlUGHQUHVXOWDWIUnQ%(5b.1,1*$5 ,167b//1,1*$5WLOO87'$7$
utdatablad.Range("C" & (1 + i) & "").Value = _
beräkningsblad.Range("M15").Value *HQRPVQLWWOLJKDVWLJKHW utdatablad.Range("D" & (1 + i) & "").Value = _
beräkningsblad.Range("K37").Value .DSDFLWHWVXWQ\WWMDQGH utdatablad.Range("E" & (1 + i) & "").Value = _
beräkningsblad.Range("K38").Value 7LGVXWQ\WWMDQGH utdatablad.Range("F" & (1 + i) & "").Value = _
beräkningsblad.Range("K40").Value 7RWDOXWQ\WWMDQGHJUDG
.RSLHUDUYlUGHQDWLOOGLDJUDPEODGHWYDUMHUHJLRQLYDUVLQNROXPQ
Dim j As Integer Dim k As Integer Dim l As Integer
If transportörsblad.Range("B" & i & "").Value = "M" Then diagramblad.Range("B" & (2 + j) & "").Value = _ beräkningsblad.Range("K40").Value
j = j + 1 End If
If transportörsblad.Range("B" & i & "").Value = "N" Then diagramblad.Range("A" & (2 + k) & "").Value = _ beräkningsblad.Range("K40").Value
k = k + 1 End If
If transportörsblad.Range("B" & i & "").Value = "S" Then diagramblad.Range("C" & (2 + l) & "").Value = _
%LODJD9, End If Next i j = 0 k = 0 l = 0 diagramblad.Range("A1:A300").Sort _ Key1:=diagramblad.Columns("A"), _ Header:=xlGuess diagramblad.Range("B1:B300").Sort _ Key1:=diagramblad.Columns("B"), _ Header:=xlGuess diagramblad.Range("C1:C300").Sort _ Key1:=diagramblad.Columns("C"), _ Header:=xlGuess Application.StatusBar = False End Sub $QJHYLONHQELOGXYLOON|UD
Private Sub TextBox2_Change() T = TextBox2.Text
End Sub
(QVSHFLILNELO
Private Sub CommandButton3_Click() Application.StatusBar = "Hämtar data.Vänta." Dim körblad Dim beräkningsblad Dim utdatablad Dim minDB Dim mittRS Dim mittRS2 Dim mittFält Dim Ennybilst Dim Transportör 'Dim T As Long
%LODJD9,
Set körblad = Worksheets("KÖR")
$NWXHOODIUnJRU
Ennybilst = "SELECT Transportkm, [Omr Vol] FROM " & tabellNamn & " WHERE Transportör =" & T & "And (Transportkm > 0) And ([Omr Vol] > 0) ORDER BY " & tabellNamn & ".Transportkm;"
Transportör = "SELECT First(Transportör) FROM " & tabellNamn & " WHERE Transportör =" & T
Set mittRS = minDB.OpenRecordset(Ennybilst) Set mittRS2 = minDB.OpenRecordset(Transportör)
6NULYHUVYDUHWSnIUnJD(QQ\ELOVWWLOO.ROXPQ$RFK%Sn%(5b.1,1*$5 ,167b//1,1*$5RFK WDUERUWJDPODYlUGHQLGHVVDNROXPQHU
Set beräkningsblad = Worksheets("BERÄKNINGAR & INSTÄLLNINGAR") beräkningsblad.Range("A1:B4999").Clear
For mittFält = 1 To mittRS.Fields.Count
beräkningsblad.Cells(mittFält).Value = mittRS.Fields(mittFält - 1).Name Next mittFält
beräkningsblad.Cells(2, 1).CopyFromRecordset (mittRS) beräkningsblad.Cells(1).CurrentRegion.Name = "Database" Set mittRS = Nothing
'Set minDB = Nothing
6NULYHUVYDUHWSnIUnJD7UDQVSRUW|UWLOO%(5b.1,1*$5 ,167b//1,1*$5VDPWW|PPHU GHVVI|ULQQDQEODGHW87'$7$SnDOOLQIRUPDWLRQ
Set utdatablad = Worksheets("UTDATA") utdatablad.Range("A2:F500").Clear
beräkningsblad.Cells(2, 12).CopyFromRecordset (mittRS2)
Set mittRS2 = Nothing Set minDB = Nothing
'Application.StatusBar = False .RSLHUDU7UDQVSRUW|UIUnQ%(5b.1,1*$5 ,167b//1,1*$5WLOO87'$7$ utdatablad.Range("A2").Value = _ beräkningsblad.Range("L2").Value .RSLHUDUYlUGHQUHVXOWDWIUnQ%(5b.1,1*$5 ,167b//1,1*$5WLOO87'$7$ utdatablad.Range("C2").Value = _ beräkningsblad.Range("M15").Value *HQRPVQLWWOLJKDVWLJKHW utdatablad.Range("D2").Value = _ beräkningsblad.Range("K37").Value .DSDFLWHWVXWQ\WWMDQGH utdatablad.Range("E2").Value = _ beräkningsblad.Range("K38").Value 7LGVXWQ\WWMDQGH
%LODJD9,
Set transportörsblad = Worksheets("TransportörsID") Dim Tj As Long
Dim Reg
For j = 1 To 150 Step 1
Tj = transportörsblad.Range("A" & j & "").Value If Tj = T Then
Reg = transportörsblad.Range("B" & j & "").Value utdatablad.Range("B2") = Reg
.RSLHUDUYlUGHQRPWUDQVSRUWHUnWDQGUDIUnQ7UDQVSRUW|UV,'WLOO%(5b.1,1*$5 ,167b//1,1*$5
beräkningsblad.Range("M23").Value = _ transportörsblad.Range("C" & j & "").Value beräkningsblad.Range("M24").Value = _ transportörsblad.Range("D" & j & "").Value
End If Next j
Application.StatusBar = False End Sub
.|UYLVVUHJLRQ
Private Sub CommandButton5_Click() Dim transportörsblad Dim beräkningsblad Dim utdatablad Dim diagramblad Dim regblad Dim minDB Dim mittRS Dim mittRS2 Dim mittFält Dim Ennybilst Dim Ti As Long tabellNamn = TextBox4.Text
Set transportörsblad = Worksheets("TransportörsID") Set utdatablad = Worksheets("UTDATA")
utdatablad.Range("A2:F500").Clear transportörsblad.Range("A1:D150").Sort _ Key1:=transportörsblad.Range("B1"), _
%LODJD9,
Application.StatusBar = "Väljer ut berörda bilar. Vänta." Set regblad = Worksheets("RegBeräkningar")
regblad.Range("A1:B300").Clear For a = 1 To 150 Step 1
If transportörsblad.Range("B" & a & "") = valdreg Then regblad.Range("A" & a & ":B" & a & "").Value = _ transportörsblad.Range("A" & a & ":B" & a & "").Value End If
Next a
Application.StatusBar = False
For i = 1 To 150 Step 1
Application.StatusBar = "Hämtar data.Vänta." If regblad.Range("B" & i & "").Value = valdreg Then Ta = regblad.Range("A" & i & "").Value
Ennybilst = "SELECT Transportkm, [Omr Vol] FROM " & tabellNamn & " WHERE Transportkm > 0 And [Omr Vol] > 0 AND Transportör = " & Ta
Ennybilst = Ennybilst & " ORDER BY Transportkm"
Transportör = "SELECT First(Transportör) FROM " & tabellNamn & " WHERE Transportör =" & Ta & ";"
Set minDB = OpenDatabase(Name:=sökväg, ReadOnly:=True) Set mittRS = minDB.OpenRecordset(Ennybilst)
Set mittRS2 = minDB.OpenRecordset(Transportör)
6NULYHUVYDUHWSnIUnJD(QQ\ELOVWWLOO.ROXPQ$RFK%Sn%(5b.1,1*$5 ,167b//1,1*$5 RFKWDUERUWJDPODYlUGHQLGHVVDNROXPQHU
Set beräkningsblad = Worksheets("BERÄKNINGAR & INSTÄLLNINGAR") beräkningsblad.Range("A1:B4999").Clear
For mittFält = 1 To mittRS.Fields.Count
beräkningsblad.Cells(mittFält).Value = mittRS.Fields(mittFält - 1).Name Next mittFält
beräkningsblad.Cells(2, 1).CopyFromRecordset (mittRS) beräkningsblad.Cells(1).CurrentRegion.Name = "Database" Set mittRS = Nothing
6NULYHUVYDUHWSnIUnJD7UDQVSRUW|UWLOO%(5b.1,1*$5 ,167b//1,1*$5VDPWW|PPHU GHVVI|ULQQDQEODGHW87'$7$SnDOOLQIRUPDWLRQ
beräkningsblad.Cells(2, 12).CopyFromRecordset (mittRS2) Set mittRS2 = Nothing
%LODJD9,
regblad.Range("B" & i & "").Value
.RSLHUDUYlUGHQRPWUDQVSRUWHUnWDQGUDIUnQ7UDQVSRUW|UV,'WLOO%(5b.1,1*$5 ,167b//1,1*$5
beräkningsblad.Range("M23").Value = _ transportörsblad.Range("C" & i & "").Value beräkningsblad.Range("M24").Value = _ transportörsblad.Range("D" & i & "").Value
.RSLHUDUYlUGHQUHVXOWDWIUnQ%(5b.1,1*$5 ,167b//1,1*$5WLOO87'$7$
utdatablad.Range("C" & (1 + i) & "").Value = _
beräkningsblad.Range("M15").Value *HQRPVQLWWOLJKDVWLJKHW utdatablad.Range("D" & (1 + i) & "").Value = _
beräkningsblad.Range("K37").Value .DSDFLWHWVXWQ\WWMDQGH utdatablad.Range("E" & (1 + i) & "").Value = _
beräkningsblad.Range("K38").Value 7LGVXWQ\WWMDQGH utdatablad.Range("F" & (1 + i) & "").Value = _
beräkningsblad.Range("K40").Value 7RWDOXWQ\WWMDQGHJUDG End If .RSLHUDUYlUGHQDWLOOGLDJUDPEODGHWYDUMHUHJLRQLYDUVLQNROXPQ Dim j As Integer Dim k As Integer Dim l As Integer
If regblad.Range("B" & i & "").Value = "M" Then diagramblad.Range("B" & (2 + j) & "").Value = _ beräkningsblad.Range("K40").Value
j = j + 1 End If
If regblad.Range("B" & i & "").Value = "N" Then diagramblad.Range("A" & (2 + k) & "").Value = _ beräkningsblad.Range("K40").Value
k = k + 1 End If
If regblad.Range("B" & i & "").Value = "S" Then diagramblad.Range("C" & (2 + l) & "").Value = _
%LODJD9, j = 0 k = 0 l = 0 diagramblad.Range("A1:A300").Sort _ Key1:=diagramblad.Columns("A"), _ Header:=xlGuess diagramblad.Range("B1:B300").Sort _ Key1:=diagramblad.Columns("B"), _ Header:=xlGuess diagramblad.Range("C1:C300").Sort _ Key1:=diagramblad.Columns("C"), _ Header:=xlGuess Application.StatusBar = False End Sub $QJHYLONHQUHJLRQGXYLOON|UD
Private Sub TextBox3_Change() valdreg = TextBox3.Text
%LODJD9,,