Kilometrikorvaus AM 2012

Tämä sivu on tietokide alatyypiltään arviointi. Sivutunniste: Op_fi2830
Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi2830}}

Avoin arviointi

MITÄ TÄLLÄ SIVUSTOLLA TEHDÄÄN: 1.3.2012 voimaan astunut kansalaisaloitelaki antaa kansalaisille mahdollisuuden viedä omia lakiehdotuksiaan eduskunnan käsiteltäväksi. Käsittely edellyttää 50000 allekirjoitusta, ja ehdotusten laadukkuudesta riippuun kuinka vakavasti otettavia ne ovat. Avoimen Ministeriön asiantuntijat yhteistyössä kansalaisten ja virkamiesten kanssa arvioivat lakiehdotusten perusteita. Tälle sivustolle koostetaan kaikille avoin arviointi, jossa haetaan perusteltuja vastauksia kysymykseen pitäisikö kilometrikorvauksia kohtuullistaa ja jos kyllä, niin kuinka? TAVOITE: Avoimen Ministeriön lakialoiteet kerätään 1.3 avattuun Avoin Ministeriö -palveluun. Aloitteilla voi olla kolme eri statusta: (1) ideavaihe (2) luonnosvaihe (3) valmis kansalaisaloite. Vaiheessa (1) kerätään kommentteja ja näkemyksiä niin kansalaisilta kuin asiantuntijoiltakin. Näiden perusteellä päätetään nouseeko ideavaiheen aloite luonnosvaiheeseen, jolloin juristit muokkaavaat esityksen lakitekstin muotoon ja pyytävät myös sertifioiduilta asiantuntijoilta lausuntoja kuten virallisessakin lainvalmisteluprosessissa. Kilometrikorvausten kohtuullistamisesitys on nyt ideavaiheessa. Tavoitteena on löytää perustelut oikeudenmukaiselle käytännölle kilometrikorvausten suhteen. Jos hyviä perusteluja löytyy, ne kirjataan luonnosvaiheessa (2) lakiesityksen perusteosaan. KUINKA VOIN OSALLISTUA: Kuka tahansa voi osallistua. Jos et halua rekisteröityä, voit kommentoida arviointia sivun alalaidasta löytyvää kommenttipainiketta käyttämällä Rekisteröityneet käyttäjät (ks. sivun oikea yläkulma) voivat muokata sivustoa kuten Wikipediassa. Nimimerkin käyttö on sallittua. Jos et halua kommentoida wikiin, voit myös lähettää sähköpostilla havaintosi ja kommenttisi osoitteeseen kanslia(at)avoinministerio.fi

Lyhyt johdatus avoimeen arviointiin

Tutkimuskysymyksen avoimeen arviointiin voivat osallistua kaikki asiasta kiinnostuneet henkilöt, eturyhmät sekä virkamiehet. Työskentelytilana käytetään Opasnet-ympäristöä, joka toimii pitkälti analogisesti avoimen tietosanakirjan Wikipedian tapaan.

Avoin arviointi pyrkii tuottamaan selkeän vastauksen tutkimuskysymykseen. Tyypillisesti kysymystä voidaan lähestyä monesta eri suunnasta, kuten esimerkiksi verotuksen, elinkeinonharjoittamisen, luontoarvojen ja juridisen konsistenssin näkökulmista. Arvioinnin onnistuminen riippuu monista tekijöistä, kuten saatavilla olevan lähtödatan määrästä, osallistujien kompetenssista ja panoksesta, tutkimusongelmaan liittyvien arvojen välittymisestä käytettäviin päätöksentekomalleihin jne.

Tutkimuskysymys voi myös poikia uusia arviointeja, joita tarvitaan johonkin osakysymykseen vastaamiseen. Vaikka vastauksia arvioinnin kohteena olevaan kysymykseen voidaan parannella ikuisesti, täytyy lainvalmistelun osana käytettäville arvioinneille asettaa takaraja. Tämä arvointi jatkuu toistaseksi. Jatkosta päättää Avoimen Ministeriön ohjausryhmä myöhemmin. Mikäli arviointiprosessi tuottaa selkeän tuloksen, se kirjataan lakiesityksen liitteeksi. Arviointiprosessissa tuotettu materiaali jää Opasnettiin myöhemmin hyödynnettäväksi, esimerkiksi tilanteessa että arviointia päätetään jatkaa jossain muussa yhteydessä, vaikkapa laajemman veropoliittisen muutosesityksen osana.

Tiivistelmä voimassa olevasta kilometrikorvauskäytännöstä

Verohallinnon päätös verovapaista matkakustannusten korvauksista v. 2012 olennaisin osin (9§) alla:

Palkansaajan omistamallaan tai hallitsemallaan kulkuneuvolla tekemästä työmatkasta suoritettavien matkustamiskustannusten korvausten enimmäismäärät ovat: Korvauksen enimmäismäärä (autolle) on 45 senttiä kilometriltä, jota korotetaan

• 7 senttiä kilometriltä perävaunun kuljettamisesta autoon kiinnitettynä
• 11 senttiä kilometriltä silloin, kun työn suorittaminen edellyttää asuntovaunun kuljettamista autoon kiinnitettynä
• 21 senttiä kilometriltä silloin, kun työn suorittaminen edellyttää taukotuvan tai vastaavan raskaan kuorman kuljettamista autoon kiinnitettynä
• 3 senttiä kilometriltä sellaisista autossa kuljetettavista koneista tai muista esineistä, joiden paino ylittää 80 kiloa tai joiden koko on suuri
• 3 senttiä kilometriltä, jos palkansaaja työhönsä kuuluvien tehtävien vuoksi kuljettaa autossa koiraa
• 9 senttiä kilometriltä silloin, kun työn suorittaminen edellyttää liikkumista autolla metsäautotiellä tai muulta liikenteeltä suljetulla tienrakennustyömaalla, kyseisten kilometrien osalta

Jos palkansaajan omistamassa tai hallitsemassa kulkuneuvossa matkustaa muita henkilöitä, joiden kuljetus on työnantajan asiana, korotetaan 1 momentissa tarkoitettujen korvausten enimmäismääriä 3 senttiä kilometriltä kutakin mukana seuraavaa henkilöä kohden.

Jos palkansaaja, jolla on Verohallinnon luontoisetujen laskentaperusteita koskevassa päätöksessä tarkoitettu auton käyttöetu, käyttää tällaista autoa työmatkan suorittamiseen ja maksaa itse tästä matkasta aiheutuvat polttoainekulut, hänelle korvattavien polttoainekulujen enimmäismäärä on 12 senttiä kilometriltä.

Verohallinnon laskentaperusteet

Kulukorvausasian neuvottelukunnan pöytäkirjat liitteineen vuosilta 2006-2011 on saatavissa alla olevasta linkistä. Tärkeimmistä kilometrikorvauskäytännön perusteista koostetaan tiivistelmä. Hallituksen kehysriihi on tehnyt asiasta päätöksen, jonka mukaan korvauksille tulee kilometrimääräinen katto, jonka jälkeen korvaus pienenee huomattavasti .

Tiedosto:Km-korvaus-laskelmat VM.pdf

Tutustu ratkaisuvaihtoehtoihin

Jotta arvioinnin osallistujien ja kiinnostuneiden lukijoiden olisi helpompi suorittaa vertailuja erilaisten kulukorvausvaihtoehtojen välillä, on tarkemmin tutkittuja vaihtoehtoja kerätty alla olevaan listaan. Vaihtoehtoiset kulukorvauspolitiikat on nimetty lyhenteillä VE-1 - VE-5. Vaihtoehtojen määrä voi lisääntyä arvioinnin edistyessä.

VE-1 Ny­ky­käy­tän­tö: Se­kä käyt­tö­kus­tan­nuk­set et­tä pää­o­ma­kus­tan­nuk­set kor­va­taan ve­ro­va­paas­ti (45 snt/km).
VE-2 LVM:n kaa­vai­le­ma eh­do­tus: Se­kä käyt­tö­kus­tan­nuk­set et­tä pää­o­ma­kus­tan­nuk­set kor­vataan. Ny­kyi­nen kor­vaus­ta­so pu­to­aa ta­sol­ta 45 snt/km ta­sol­le 43 snt/km ki­lo­met­ri­kat­toon 15000 km as­ti, min­kä jäl­keen kor­vaus­ta­so pie­ne­nee (o­le­tus 25 snt/km )
VE-3 LVM:n eh­do­tus o­mil­la pa­ra­met­reil­la: Ku­ten LVM:n eh­do­tus, mut­ta mää­ri­tät o­man ki­lo­met­ri­kat­to­si ja sen jäl­kei­sen ki­lo­met­ri­kor­vauk­sen suu­ruu­den (voi ol­la pie­nem­pi tai suu­rem­pi kuin ny­kyi­nen).
VE-4 Pelk­kien käyt­tö­kus­tan­nus­ten kor­vaus: Pää­o­ma­ku­lu­ja ei kor­va­ta. Al­la e­si­tet­tä­vät vi­su­a­li­saa­ti­ot o­soit­ta­vat et­tä tä­mä vaih­to­eh­to voi­daan to­teut­taa säi­lyt­tä­mäl­lä ny­kyi­sen suu­rui­nen ki­lo­met­ri­kor­va­us mut­ta kor­vaa­mal­la e­nin­tään puo­let ko­ko­nais­lii­ken­ne­suo­rit­tees­ta.
VE-5 Jo­kin muu kor­vaus­käy­tän­tö: A­lem­pa­na tie­dus­te­lem­me o­maa eh­do­tus­ta­si kor­vaus­käy­tän­nök­si.

Tutki kulukorvausten vaikutuksia

Täyt­tä­mäl­lä tie­dot al­la o­le­viin kent­tiin ja klik­kaa­mal­la nap­pi­a "Vi­su­a­li­soi tu­lok­set" voit tut­kia mil­lai­set o­vat ny­kyi­sen ja vaih­to­eh­tois­ten ki­lo­met­ri­kor­vaus­käy­tän­tö­jen vai­ku­tuk­set o­maa­si ja yh­teis­kun­nan ra­ha­pus­siin. Ko­kei­le e­ri ar­vo­ja va­paas­ti (tie­dot ei­vät tal­len­nu mi­hin­kään). Vi­su­a­li­soi­mal­la po­li­tiik­ka­vaih­to­eh­to­ja voit hah­mot­taa e­ri vaih­to­eh­to­jen hy­vi­ä ja huo­no­ja puo­li­a. Jos ha­lu­at syöt­tää yk­si­tyis­koh­tai­sem­paa tie­to­a kus­tan­nus­las­ken­taa var­ten voit käyt­tää myös o­heis­ta laskuria.

Valitse ajanjakson pituus (auton pitoaika 1-7 vuotta): 1 2 3 4 5 6 7 VE-1 – VE-4: Uuden auton hinta tai vanhan jäännösarvo (euroa): VE-1 – VE-4: Kokonaisliikennesuorite (0 - 40000 km/vuosi): VE-1 – VE-4: Kilometrikorvattava osuus liikennesuoritteesta (%): VE-3: Ki­lo­met­ri­kat­to (km): VE-3: Kilo­met­ri­kor­vaus ki­lo­met­ri­ka­ton y­lit­tä­väl­le lii­ken­ne­suo­rit­teel­le (euroa/km): + Näytä koodi- Piilota koodi library(OpasnetUtils) PitoAikaMax <- 7 # aika vuosissa OmatRahat <- 0 # vahentaa lainarahan maaraa SaamattaJaavaKorko <- 0.02 # milla korolla lainaraha kasvaisi ilman lainaa LainaAika <- 2 # aika vuosissa LainaKorko <- 0.065 # lainan korko PolttoAineenHinta <- 1.62 # bensiinin tai dieselin litrahinta #AutonHinta <- 51190 # euroa Kulutus <- 7.1 # l/100 km HiilidioksidiPaastot <- 0.163 # g/km ArvonAlennusProsentti <- 0.12 # %/vuosi AjoneuvoveroPerV <- 105.85 # euroa/vuosi LiikenneVakuutusPerV <- 315 # euroa/vuosi KaskoVakuutusPerV <- 550 # euroa/vuosi SailytysPysakointiPerV <- 468 # sailytys ja pysakointikulut (euroa/vuosi) RengasKuluPerKMV <- 150 # Rengaskulut/vuosi/10000km HuoltoKorjausPesuPerKMV <- 340 # Huolto-, korjaus- ja pesukulut/vuosi/10000km KorvausPerKM <- 0.45 # euroa/km KorvausPerKM2013 <- 0.43 # euroa/km (uusi korvaus alkaen vuodesta 2013 LVM:n esityksen mukaan) # N <- 8 # Intervallien maara Intervalli <- 5000 # Intervallin pituus (km) P <- 10 # Jaotus 100/P prosenttiyksikon intervalliin # Luodaan muuttuville kustannuksille taulukko, jossa akseleina # (1) km-korvauksen piiriin kuuluvien ajojen maara kaikista # ajoista (floor(100/P) + 1 alkiota, esim. jos P = 10 => # akselilla arvot [0%, 10%, 20%, ..., 90%, 100%]), # (2) kokonaisajosuorite ((N+1) alkiota, jokainen vastaa 5000 km intervallia => # akselilla arvot [0km, 5000km, 10000km ..., 35000km, 40000km]), # (3) pitoaika (MaxPitoAika alkiota, esim. jos MaxPitoAika = 7 => # akselilla arvot [1v, 2v, ..., 6v, 7v]). # Taulokko alustetaan nollilla: # Pmax <- floor(100/P) + 1 Nmax <- N+1 MuuttuvatKulut <- array(0, c(Pmax,Nmax,PitoAikaMax)) MuuttuvatKulutU <- array(0, c(Pmax,Nmax,PitoAikaMax)) for(t in 1:PitoAikaMax) { for(p in 1:Pmax) { for(n in 1:Nmax) { PolttoAineKulut <- ((Kulutus/100)*(n-1)*Intervalli*PolttoAineenHinta)*t RengasKulut <- RengasKuluPerKMV*((n-1)*Intervalli/10000)*t HuoltoKorjausPesuKulut <- HuoltoKorjausPesuPerKMV*((n-1)*Intervalli/10000)*t KilometriKorvaus <- (KorvausPerKM*(n-1)*Intervalli*(p-1)*P/100)*t MuuttuvatKulut[p,n,t] <- PolttoAineKulut + RengasKulut + HuoltoKorjausPesuKulut - KilometriKorvaus # 2013 alkaen: KilometriKorvausU <- (KorvausPerKM2013*(n-1)*Intervalli*(p-1)*P/100)*t MuuttuvatKulutU[p,n,t] <- PolttoAineKulut + RengasKulut + HuoltoKorjausPesuKulut - KilometriKorvausU } } } # Luodaan paaomakustannuksille taulukko, jossa akselina pitoaika PaaomaKulut <- array(0, c(PitoAikaMax)) # Taytetaan PaaomaKulut-taulukko siihen kuuluvilla kuluerilla: # for(t in 1:PitoAikaMax) { ArvonAlennus <- AutonHinta*(1 - (1 - ArvonAlennusProsentti)**t) # # Lasketaan korkotappiot olettamalla tasalainalyhennys kerran vuodessa: kp <- 1 + LainaKorko Annuiteetti <- (AutonHinta - OmatRahat)*(kp**LainaAika)*LainaKorko/(kp**LainaAika - 1) KorkoMenot <- Annuiteetti*LainaAika - (AutonHinta - OmatRahat) # Huom! Poikkeaa maaritelmasta, jonka mukaan paaoman korko lasketaan # vuoden alussa jaljella olevalle investoidulle paaomalle. # LiikenneVakuutus <- LiikenneVakuutusPerV*t KaskoVakuutus <- KaskoVakuutusPerV*t AjoneuvoVero <- AjoneuvoveroPerV*t SailytysPysakointi <- SailytysPysakointiPerV*t PaaomaKulut[t] <- ArvonAlennus + KorkoMenot + LiikenneVakuutus + KaskoVakuutus + AjoneuvoVero + SailytysPysakointi } # Laajennetaan Paaomakulut samankokoiseksi taulukoksi kuin # MuuttuvatKulut-taulukko PaaomaKulut2 <- array(0, c(Pmax,Nmax,PitoAikaMax)) for(t in 1:PitoAikaMax) { PaaomaKulut2[1:Pmax,1:Nmax,t] <- PaaomaKulut[t] } # Lasketaan kokonaiskustannukset pitoajalta KokonaisKulut <- array(0, c(Pmax,Nmax,PitoAikaMax)) KokonaisKulut <- MuuttuvatKulut + PaaomaKulut2 # 2013 alkaen: KokonaisKulutU <- array(0, c(Pmax,Nmax,PitoAikaMax)) KokonaisKulutU <- MuuttuvatKulutU + PaaomaKulut2 # KokonaisKulutPerKM <- array(0, c((Pmax-1),(Nmax-1),PitoAikaMax)) for(t in 1:PitoAikaMax) { for(p in 1:(Pmax-1)) { for(n in 1:(Nmax-1)) { KokonaisKulutPerKM[p,n,t] <- KokonaisKulut[p,n,t]/(n*Intervalli*t) } } } # Alla maaritellyt vektorit luetaan kayttajien tietokantaan talletetuista tiedoista # luettuMatriisi <- op_baseGetData("opasnet_base", "Op_fi2921") # Muodostetaan kaksi vektoria, joita hyodynnetaan visualisoinneissa myohemmin # apuM <- as.character(luettuMatriisi$Parameter) apuM <- (1:length(apuM))*as.numeric(apuM == "AjetutKilometrit") apuM <- apuM[apuM != 0] LS <- luettuMatriisi$Result.Text[apuM] LS <- LS[LS != 0] LiikenneSuoriteMuut <- as.numeric(as.character(LS)) alku <- 16; loppu <- length(LiikenneSuoriteMuut) LiikenneSuoriteMuut <- LiikenneSuoriteMuut[alku:loppu] # apuM <- as.character(luettuMatriisi$Parameter) apuM <- (1:length(apuM))*as.numeric(apuM == "KorvattavatKilometritPros") apuM <- apuM[apuM != 0] KMP <- luettuMatriisi$Result.Text[apuM] KMP <- KMP[KMP != 0] KmKorvausProsentitMuut <- as.numeric(as.character(KMP)) alku <- 16; loppu <- length(KmKorvausProsentitMuut) KmKorvausProsentitMuut <- KmKorvausProsentitMuut[alku:loppu] # SKENAARIOANALYYSI # Kiinnitetaan koko Suomen kilometrikorvausten maara KmKorvausKokoSuomi <- 1.046*10^9 # http://www.vero.fi/fi-FI/Tietoa_Verohallinnosta/Tuloverotilastoja%2814419%29 # 1. Nykykaytanto-skenaario (nykyinen km-korvauskaytanto jatkuu, tulokset pyoristetaan alaspain lahimpaan # 5000-km -intervalliin ja lahimpaan %-desiiliin): # KorvattavatKilometritPros1 <- floor(KorvattavatKilometritPros/10)+1 AjetutKilometrit1 <- floor(AjetutKilometrit/Intervalli)+1 # OmaKukkaro1 <- -KokonaisKulut[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)] KaikkienKukkaro1 <- -KmKorvausKokoSuomi*as.numeric(Ajanjakso) # 2. LVM:n (liikenne- ja viestintaministerio) kaavailema ehdotus # KilometriKattoLVM <- 15000 # http://www.smkj.fi/fi/ajankohtaista/320-kilometrikorvaus-kysymyksia-ja-vastauksia KorvausPerKMLVM <- 0.25 # http://www.smkj.fi/fi/ajankohtaista/320-kilometrikorvaus-kysymyksia-ja-vastauksia Nmax2 <- floor((AjetutKilometrit-KilometriKattoLVM)/Intervalli) + 1 if(Nmax2 < 0) Nmax2 <- 1 MuuttuvatKulutB <- array(0, c(Pmax,Nmax2,PitoAikaMax)) # # IF-lause alkaa if(AjetutKilometrit > KilometriKattoLVM) { for(t in 1:PitoAikaMax) { for(p in 1:Pmax) { for(n in 1:Nmax2) { PolttoAineKulut <- ((Kulutus/100)*(n-1)*Intervalli*PolttoAineenHinta)*t RengasKulut <- RengasKuluPerKMV*((n-1)*Intervalli/10000)*t HuoltoKorjausPesuKulut <- HuoltoKorjausPesuPerKMV*((n-1)*Intervalli/10000)*t KilometriKorvaus <- (KorvausPerKMLVM*(n-1)*Intervalli*(p-1)*P/100)*t MuuttuvatKulutB[p,n,t] <- PolttoAineKulut + RengasKulut + HuoltoKorjausPesuKulut - KilometriKorvaus } } } AjetutKilometrit2 <- floor(KilometriKattoLVM/Intervalli)+1 # MuuttuvatKulut2 <- MuuttuvatKulut[KorvattavatKilometritPros1, AjetutKilometrit2, as.numeric(Ajanjakso)] + MuuttuvatKulutB[KorvattavatKilometritPros1, Nmax2, as.numeric(Ajanjakso)] # # 2013 alkaen: MuuttuvatKulut2U <- MuuttuvatKulutU[KorvattavatKilometritPros1, AjetutKilometrit2, as.numeric(Ajanjakso)] + MuuttuvatKulutB[KorvattavatKilometritPros1, Nmax2, as.numeric(Ajanjakso)] # # #OmaKukkaro2 <- -(PaaomaKulut2[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)] + MuuttuvatKulut2) } else #OmaKukkaro2 <- -KokonaisKulut[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)] # # Alla oleva patee 2013 alkaen OmaKukkaro2 <- -(PaaomaKulut2[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)] + MuuttuvatKulut2U) } else OmaKukkaro2 <- -KokonaisKulutU[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)] # IF-lause paattyy KaikkienKukkaro2 <- (-KmKorvausKokoSuomi + 70*10^6)*as.numeric(Ajanjakso) # http://www.ts.fi/uutiset/kotimaa/326230/Paljon+ajavien+kilometrikorvaus+pienenee # 3. LVM:n ehdotus omilla parametreilla # Nmax2 <- floor((AjetutKilometrit-KilometriKattoOma)/Intervalli)+1 if(Nmax2 < 0) Nmax2 <- 1 MuuttuvatKulutB <- array(0, c(Pmax,Nmax2,PitoAikaMax)) # # IF-lause alkaa if(AjetutKilometrit > KilometriKattoOma) { for(t in 1:PitoAikaMax) { for(p in 1:Pmax) { for(n in 1:Nmax2) { PolttoAineKulut <- ((Kulutus/100)*(n-1)*Intervalli*PolttoAineenHinta)*t RengasKulut <- RengasKuluPerKMV*((n-1)*Intervalli/10000)*t HuoltoKorjausPesuKulut <- HuoltoKorjausPesuPerKMV*((n-1)*Intervalli/10000)*t KilometriKorvaus <- (KorvausPerKMOma*(n-1)*Intervalli*(p-1)*P/100)*t MuuttuvatKulutB[p,n,t] <- PolttoAineKulut + RengasKulut + HuoltoKorjausPesuKulut - KilometriKorvaus } } } AjetutKilometrit2 <- floor(KilometriKattoOma/Intervalli)+1 MuuttuvatKulut2 <- MuuttuvatKulut[KorvattavatKilometritPros1, AjetutKilometrit2, as.numeric(Ajanjakso)] + MuuttuvatKulutB[KorvattavatKilometritPros1, Nmax2, as.numeric(Ajanjakso)] # # 2013 alkaen: MuuttuvatKulut2U <- MuuttuvatKulutU[KorvattavatKilometritPros1, AjetutKilometrit2, as.numeric(Ajanjakso)] + MuuttuvatKulutB[KorvattavatKilometritPros1, Nmax2, as.numeric(Ajanjakso)] # #OmaKukkaro3 <- -(PaaomaKulut2[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)] + MuuttuvatKulut2) } else #OmaKukkaro3 <- -KokonaisKulut[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)] # # Alla oleva patee 2013 alkaen OmaKukkaro3 <- -(PaaomaKulut2[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)] + MuuttuvatKulut2U) } else OmaKukkaro3 <- -KokonaisKulutU[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)] # IF-lause paattyy # # # Kiinnitetaan priorijakaumat # Prosenttiosuus km-korvauksen saajista joiden korvattavien ajokilometrien osuus jaa alle kilometrikorvauskaton # eli KilometriKattoOma:n # A <- 3*sqrt(3)/(2*pi) # Jakauman normalisaatio ratio <- KilometriKattoOma/17700 integrand <- function(x) {(A*ratio)*1/(1+(ratio*x)^3)} # Keskimaarainen liikennesuorite vuodessa = 17700 km, Tiehallinto, Tietilasto 2007 # Ajoneuvostrategia 2015 Liikennesuoritteet ja ajoneuvokanta, Taustamuistio C s.9 PMinus <- integrate(integrand, lower = 0, upper = 1) PrioriMinus <- PMinus$value # # Prosenttiosuus km-korvauksen saajista joiden kokonaisliikennesuorite on suurempi kuin KilometriKattoOma: PrioriPlus <- 1 - PrioriMinus # # Korjataan kayttajien syottamasta liikennesuoritedatasta estimoituja prosenttiosuuksia Bayesin # menetelmalla. Datasta voimme laskea kuinka suuri prosenttiosuus vastaajista on ilmoittanut kuuluvansa # ryhmaan jonka korvattavien kilometrien maara alittaa maaran KilometriKattoOma. Merkitaan tata # todennakoisyytta muuttujalla Pno: # ero <- LiikenneSuoriteMuut - KilometriKattoOma Pno <- sum(ero < 0)/length(ero) Pyes <- 1 - Pno # # Pno anta Maximum Likelihood-estimaatin riippumattomille Bernoulli-muuttujille, jotka saavat binaarisia arvoja # sen mukaan kuuluuko vastaaja luokkaan 'oma kilometrikorvattava osuus kokonaisliikennesuoritteesta vahemman # kuin KilometriKattoOma' ja 'oma kilometrikorvattava osuus kokonaisliikennesuoritteesta enemman # kuin KilometriKattoOma'. Estimaatti on kuitenkin biasoitunut erityisesti pienilla otoksilla, joten alla # kaytetaan priori-estimaatteja. # # Lasketaan ALARAJA valtion budjettisaastoille. # KaikkienKukkaro3 <- -(KmKorvausKokoSuomi/KorvausPerKM)*(PrioriMinus*KorvausPerKM2013 + PrioriPlus*KorvausPerKMOma)*as.numeric(Ajanjakso) # 4. Pelkkien käyttökustannusten korvaus # AjetutKilometrit2 <- floor(KilometriKattoOma/Intervalli)+1 OmaKukkaro4 <- -(KokonaisKulut[KorvattavatKilometritPros1, AjetutKilometrit2, as.numeric(Ajanjakso)] - MuuttuvatKulut[KorvattavatKilometritPros1, AjetutKilometrit2, as.numeric(Ajanjakso)]) # # # Kiinnitetaan priorijakaumat # Prosenttiosuus km-korvauksen saajista joiden kilometrikorvattavien ajokilometrien maara oletetaan # suuremmaksi kuin puolet kokonaisliikennesuoritteesta (todennakoisyys kuulua tahan osaan on siis) PrioriPlus <- 0.2 # # Prosenttiosuus km-korvauksen saajista joiden korvattavien ajokilometrien osuus jaa alle puoleen # kokonaisliikennesuoritteesta PrioriMinus <- 1 - PrioriPlus # # # Maaritetaan posterioriestimaatti PrioriMinus:lle olettaen etta niilla vastaajilla, jotka ovat ilmoittaneet # kuuluvansa ryhmaan 'oma kilometrikorvattava osuus kokonaisliikennesuoritteesta vahemman kuin puolet # kokonaisliikennesuoritteestani', ei ole insentiivia huijata vastauksessaan. Talloin, # P(-|yes) = 1 - PrioriPlus/Pyes niin kauan kuin PrioriPlus < Pyes. # # Lasketaan ALARAJA valtion budjettisaastoille. Tekija 0.5 alla seuraa siita etta Plus-ryhman jasenien (eli ne, # joille patee 'oma kilometrikorvattava osuus kokonaisliikennesuoritteesta enemman kuin puolet # kokonaisliikennesuoritteestani') kokonaisliikennesuoritteen maarasta ainoastaan puolet on korvattavaa # Vaihtoehdon 4 korvauskaytannon mukaan. # KaikkienKukkaro4 <- -PrioriMinus*KmKorvausKokoSuomi*0.5*as.numeric(Ajanjakso) # Visualisointi # # Muuttuvat kulut nykyiselle kilometrikorvauskaytannolle (VE-1) filled.contour(x = (0:(Nmax-1))*Intervalli, y = (0:(Pmax-1))*10, z = t(MuuttuvatKulut[,,as.numeric(Ajanjakso)]), plot.axes ={ axis(1); axis(2); points(AjetutKilometrit,KorvattavatKilometritPros, cex=2, col=2, pch=1); points(AjetutKilometrit,KorvattavatKilometritPros, cex=3, col=2, pch=1); points(LiikenneSuoriteMuut, KmKorvausProsentitMuut, cex=1, col=1, pch=0); legend(0, 100, c("Muut vastaajat", "Omat tietosi"), cex=0.8, col=c("black","red"), pch=0:1) }, plot.title = title(main = "VE-1: Muuttuvat kulut (= käyttökulut - kilometrikorvaus) koko pitoajalta (sinertävä väri: kilometrikorvaus suurempi kuin käyttökulut)", xlab = "Kokonaisliikennesuorite/vuosi (=ajokilometrit vuodessa)", ylab = "Kilometrikorvattavien ajojen osuus prosentteina kokonaisliikennesuoritteesta"), key.title = title(main="Euroa") ) # # Kokonaiskulut nykyiselle kilometrikorvauskaytannolle (VE-1) filled.contour(x = (0:(Nmax-1))*Intervalli, y = (0:(Pmax-1))*10, z = t(KokonaisKulut[,,as.numeric(Ajanjakso)]), plot.axes ={ axis(1); axis(2); points(AjetutKilometrit,KorvattavatKilometritPros, cex=2, col=2, pch=1); points(AjetutKilometrit,KorvattavatKilometritPros, cex=3, col=2, pch=1) }, plot.title = title(main = "VE-1: Kokonaiskulut (= pääomakulut + muuttuvat kulut) koko pitoajalta (sinertävä väri: kilometrikorvaus suurempi kuin pääomakulujen ja käyttökulujen summa)", xlab = "Kokonaisliikennesuorite/vuosi (=ajokilometrit vuodessa)", ylab = "Kilometrikorvattavien ajojen osuus prosentteina kokonaisliikennesuoritteesta"), key.title = title(main="Euroa") ) # par(mfcol = c(1,2)) plotResults <- c(OmaKukkaro1, OmaKukkaro2, OmaKukkaro3, OmaKukkaro4) plotResults_num <- as.numeric(plotResults < 0) colorbar <- c("green","green","green","green") colorbar[which(plotResults_num == 1)] <- "red" barplot(plotResults, col=colorbar, names.arg=c("VE-1","VE-2","VE-3","VE-4"), cex.axis=1.7, cex.names=1.7) title("Eri vaihtoehtojen (VE-1 - VE-4) vaikutus omaan kukkaroon (euroa) koko ajanjaksolta") # plotResults <- c(KaikkienKukkaro1, KaikkienKukkaro2, KaikkienKukkaro3, KaikkienKukkaro4) plotResults_num <- as.numeric(plotResults < 0) colorbar <- c("green","green","green","green") colorbar[which(plotResults_num == 1)] <- "red" barplot(plotResults, col=colorbar, names.arg=c("VE-1","VE-2","VE-3","VE-4"), cex.axis=1.7, cex.names=1.7) title("Eri vaihtoehtojen (VE-1 - VE-4) vaikutus yhteiskunnan kukkaroon (euroa) koko ajanjaksolta")

Jaa ratkaisusi muiden kanssa

Kun olet löytänyt suosikkivaihtoehtosi eri kulukorvausvaihtoehdoista (ks. yllä) voit jakaa suosikkimallisi parametreineen muiden käyttäjien kanssa avoimena datana. Eri vaihtoehtoja kuvaa erilainen määrä parametrejä, jotka kerätään otsikon Ehdotuksesi alla. Jos haluat, voit myös tallentaa tietokantaan oman vuosittaisen liikennesuoritteesi ja montako prosenttia siitä on kilometrikorvauksen piiriin kuuluvaa ajoa. Nämä tiedot kerätään otsikon Taustatietosi alla, ja niitä hyödynnetään kerättäessä statistiikkaa siitä, kuinka suosikkipolitiikkavaihtoehdot korreloivat vastaajan liikennesuoritteen kanssa.

Ehdotuksesi Millaista kilometrikorvauskäytännöä haluaisit käytettävän: VE-1 Nykykäytäntö VE-2 LVM:n kaavailema ehdotus VE-3 LVM:n ehdotus omilla parametereilla VE-4 Pelkkien käyttökustannusten korvaus VE-5 Jokin muu korvauskäytäntö Aseta kilometrikattosuosituksesi (km) jos valitsit yllä vaihtoehdon VE-3: Aseta kilomet­ri­kor­vaus­suo­si­tuk­se­si ki­lo­met­ri­ka­ton y­lit­tä­väl­le lii­ken­ne­suo­rit­teel­le (euroa/km) jos va­lit­sit yl­lä vaih­to­eh­don VE-3: Ehdota omaa kulukorvauspolitiikkaasi (lyhyt vapaamuotoinen kuvaus) jos valitsit yllä vaihtoehdon VE-5: Taustatietosi Kokonaisliikennesuoriteesi (km/vuosi): Kilometrikorvattava osuus liikennesuoritteestasi (%): + Näytä koodi- Piilota koodi # Tarkistetaan kayttajan antamien vastausten tyypit # Poistetaan oletusarvot käyttäjätiedoista, koska muuten dataan pääsee väärää tietoa. # PolitiikkaEhdotusOma muutettiin tekstikentäksi, jolloin ei tarvita hipsuja. # if(is.null(KilometriKattoOma)) {KilometriKattoOma <- NA} if(is.null(KorvausPerKMOma)) {KorvausPerKMOma <- NA} if(is.null(PolitiikkaEhdotusOma)) {PolitiikkaEhdotusOma <- NA} #if(is.null(AjetutKilometrit)) {AjetutKilometrit <- NA} if(is.null(KorvattavatKilometritPros)) {KorvattavatKilometritPros <- NA} #if(is.na(KilometriKattoOma) | class(KilometriKattoOma) != "numeric") {print("Syötteen on oltava luku!")} # Ladataan kirjastot library(OpasnetUtils) library(xtable) # Luetaan tiedot Opasnet Base-tietokannasta, muuttujasta Op_fi2921 # Luetaan stackin korkeus annetusta arvosta series_id = xxx alkaen. Jos mitaan # arvoa ei ole annettu, tapahtuu lukeminen ainoasta jaljella olevasta arvosta alkaen # Obs <- max(opbase.data("Op_fi2921")[,"obs"]) + 1 act <- "append" # Maaritellaan datamatriisi data <- data.frame( obs = rep(Obs, 6), Parameter = c("AjetutKilometrit", "KorvattavatKilometritPros", "ParasEhdotus", "KilometriKattoOma", "KorvausPerKMOma", "PolitiikkaEhdotusOma"), Result = c(AjetutKilometrit, KorvattavatKilometritPros, ParasEhdotus, KilometriKattoOma, KorvausPerKMOma, PolitiikkaEhdotusOma)) opbase.upload(input = data, ident = "Op_fi2921", acttype = act, who = wiki_username, unit = "-") # Luetaan ylla talletettu matriisi Basesta luettuMatriisi <- opbase.data("Op_fi2921") # # Printataan naytolle #print("Basesta luettu matriisi") #print(xtable(luettuMatriisi),type="html") # Visualisointi VE1 <- sum(luettuMatriisi[,5] == "VE-1 Nykykäytäntö") VE2 <- sum(luettuMatriisi[,5] == "VE-2 LVM:n kaavailema ehdotus") VE3 <- sum(luettuMatriisi[,5] == "VE-3 LVM:n ehdotus omilla parametereilla") VE4 <- sum(luettuMatriisi[,5] == "VE-4 Pelkkien käyttökustannusten korvaus") VE5 <- sum(luettuMatriisi[,5] == "VE-5 Jokin muu korvauskäytäntö") plotResults <- c(VE1,VE2,VE3,VE4,VE5) barplot(plotResults, col="blue", names.arg=c("VE-1","VE-2","VE-3","VE-4", "VE-5"), cex.axis=1.7, cex.names=1.7) title("Eri kilometrikorvausvaihtoehtojen suosio (= vaihtoehdon esiintymiskertojen lukumäärä kaikkien vastausten joukossa)") ideat <- as.character(luettuMatriisi$Parameter) ideat <- (1:length(ideat))*as.numeric(ideat == "PolitiikkaEhdotusOma") ideat <- ideat[ideat != 0] Ehdotukset <- luettuMatriisi$Result.Text[ideat] Ehdotukset <- Ehdotukset[Ehdotukset != "kommenttisi hipsujen väliin" & Ehdotukset != ""] alku <- 6; loppu <- length(Ehdotukset) Ehdotukset <- Ehdotukset[alku:loppu] print(xtable(as.data.frame(Ehdotukset), caption = "Käyttäjän syöttämät kommentit (VE-5)"),type='html')

Muiden käyttäjien vastauksiin voi tutustua graafisesti vastaamalla kysymyskenttiin ja painamalla yllä nappia Tallenna ja visualisoi tulokset. Voit myös imuroida vastausdatan csv-tiedostoformaatissa klikkaamalla alla linkkiä Näytä tulokset {{#opasnet_base_link:Op_fi2921}}.

Vaikutusanalyysin aihepiirit

Alla olevaan listaan on kerätty näkökohtia, joiden tutkimista pidetään tärkeänä lakiehdotuksen perusteluosaa varten. Osa näkökohdista on tiivistetty julkisesta keskustelusta. Voit lisätä omat ehdotuksesi listaan. Äärellisistä resursseita johtuen ei kaikkea voida tutkia joten karsintaa tullaan suorittamaan käytössä olevien resurssien puitteissa. Osaa listatuista aiheista on jo ollut tutkimuksen kohteena ja tuloksia esitellään alempana

• Vaikutukset yksityisautoiluun
• Vaikutukset yrityksiin
• Kilometrikustannusten pienentämisen vaikutus kokonaisverokertymään
• Ympäristövaikutukset
• Väärinkäytön laajuus
• Vertailunäkökohdat (hyödyt ja haitat eri eturyhmille, kuinka hyväksyttäviä eri ratkaisuehdotukset ovat, kuinka todennäköisesti niitä tullaan noudattamaan, voidaanko niitä valvoa käytännössä jne.)
• Kerrannaisvaikutusten arviointi tukiviidakossa (tarkoituksena ei ole tehdä laaja-alaista remonttia verolainsäädäntöön, toistaiseksi täytynee tyytyä vain karkeaan arvioon)
• Muuta...

Vaikutukset yksityisautoiluun

Tulokset Autoliiton kustannuslaskurista

Tutkitaan paljonko pääoma- ja käyttökustannuksia tulee eri hintaluokkien ajoneuvojen käyttämisestä työnantajan ajoihin ja omiin ajoihin eri liikennesuoritteilla. Tutkitaan ensin sitä, kuinka käyttökustannukset on peitettävissä kilometrikorvauksella korkeahko hintaluokan uudessa autossa, jonka tarkemmat, Autoliiton laskurista saadut tyyppitiedot on esitetty alla.

Näytä yksityiskohdat

Pitoaika 7v Hankintapvm 16.2.2012 Luopumispvm 16.2.2019 Omat rahat 0€ Saamatta jäävä korko 2% Laina-aika 2v Lainakorko 6.5% Ajokilometrejä vuodessa 10000 km/v Joista laskutettavia työajoja 0 km/v Bensiinin hinta 1.62 €/l Dieselin hinta 1.56 €/l AUTOKOHTAISET TEKIJÄT Polttoaine Bensiini Merkki Audi Malli A4 Tyyppi Avant Business 2,0 TFSI 155 kW quattro S tronic Uusi vai käytetty auto Uusi Ensirekisteröintivuosi 2012 Kokonaismassa 2180 kg Kulutus 7.1 l/100km CO2-päästöt 163 g/km Hinta 51190 € Varusteet 0 € Hinta yhteensä 51190 € Lainaraha 51190 € Arvonalennus 15 %/v Päiväkohtainen ajoneuvovero 29 snt/pvä Liikennevakuutus 315 €/v Kaskovakuutus 550 €/v AUTON PÄÄOMAKULUT KÄYTTÖAJALTA Arvonalennus 34780 € Korko 12512 € Liikennevakuutus 2205 € Kaskovakuutus 3850 € Ajoneuvovero / perus 1.3.2011 saakka 0 € Ajoneuvovero / perus 2.3.2011 alkaen 844 € Ajoneuvovero / käyttövoima 0 € Säilytys ja pysäköinti 3276 € Pääomakulut yhteensä 57467 € AUTON KÄYTTÖKULUT KÄYTTÖAJALTA Polttoaine 8051 € Rengaskulut 2389 € Huollot, korjaukset, pesut 2380 € Kilometrikorvaus 0 € Käyttökulut yhteensä 12820 € KUSTANNUKSET YHTEENSÄ Kustannukset yhteensä 70287 € Kustannukset/kk 837 € Kustannukset/km 1.00 €

Näillä tiedoilla on laskettu käyttökustannusten ja km-korvausten erotus eri liikennesuoritteille (eli vuodessa ajetulle kilometrimäärälle) ja korvattavien ajojen osuudelle (montako prosenttia kokonaisliikennesuoritteesta on kilometrikorvattavaa ajoa). Tulokset on esitetty alla neljälle eri auton pitoajalle: 2v, 3v, 4v ja 7v.

Käyttökulujen ja km-korvauksen erotus euroina pitoajalta 2 v

Käyttökulujen ja km-korvauksen erotus euroina pitoajalta 3 v

Käyttökulujen ja km-korvauksen erotus euroina pitoajalta 4 v

Käyttökulujen ja km-korvauksen erotus euroina pitoajalta 7 v

Kuvissa x-akseli kertoo ajettujen kilometrien määrän vuodessa (0-40000 km s.e. 0.0 vastaa 0 km ja 1.0 vastaa 40000 km) ja y-akseli kilometrikustannuskorvausten piiriin kuuluvien ajokilometrien osuudeen kaikista ajetuista kilometreistä (0-100% s.e. 0.0 vastaa 0% ja 1.0 vastaa 100%). Tulokset eri pitoajoille ovat kaikki samankaltaisia värijakaumaltaan, joka kertoo käyttökustannusten ja kilometrikorvausten erotuksen euroina koko pitoajalta, tärkeimpänä erotuksena skaala (euroissa), jonka ilmaisee kuvissa oikealla oleva palkki. Punainen väri tarkoittaa sitä että autoilija jää miinukselle ja sininen sitä että hän nettoaa kilometrikorvausten avulla käyttökustannuksia suuremman määrän (ts. negatiivinen tappio = voitto).

Kokonaiskustannukset saadaan laskettua kaavasta: Kokonaiskulut = pääomakulut + käyttökulut - kilometrikorvaus. Koska pääomakulut ovat kiinteitä koko käyttöajalta, nostavat ne ainoastaan nollatasoa yllä olevissa kuvissa vakioarvolla. Pääomakulut pitoajoille 2v 21246 €, 3v 30061 €, 4v 37964 € ja 7v 57467 €. (Huom: Autoliiton laskurin antamat arvot pääomakuluille riippuvat hieman laskenta-ajankohdasta).

Vaikutukset yrityksiin

• Toistaiseksi määrittämättä

Vaikutukset verokertymään

• Toistaiseksi määrittämättä

Vaikutukset luontoon

• Määritys kesken
• Kokonaiskasvihuonepäästöjen laskennassa hyödynnetään Tilastokeskuksen dataa keskimääräisistä liikennesuoritteista.
• Huom: Valmistajan ilmoittamat kulutuslukemat poikkeavat huomattavasti ajossa mitatuista.

Vaikutukset lainsäädäntöön

• Toistaiseksi määrittämättä

Katso myös

• Kilometrikorvaus AM 2012
• Tiedosto:Km-korvaus-laskelmat VM.pdf
• Kilometrikorvauskeskustelun näkökulmat
• Autoilun kustannukset
• Syötekentiltään yksityiskohtaisempi kustannuslaskuri
• LVM:n laskelmat autoilun kuluista ja menoista mielivaltaisia (TS 11.5.2012)