Does it stack up financially for you?
Page 1 of 3 123 LastLast
Results 1 to 10 of 30
  1. #1
    Sometimes the world is still flat, especially if you can't see as far as the horizon
    BFI God you need to get out more!
    e36coupe-328's Avatar
    Join Date
    Apr 2012
    Location
    Greater Manchester
    Posts
    5,349
    Car Specs:
    Year
    1995 / 2001
    Model
    E36 / White Elephant
    Engine
    2.8 / 3.2
    Fuel
    LPG / Liquid Gold
    Thanks
    304
    Thanked 2,110 Times in 1,665 Posts


    Donate Please click the
    image to support
    BMWForums.info
    Click Here To Contribute To Our Site

    Does it stack up financially for you?

    I have no idea if it does!

    However, by using the below you can maybe get an idea.

    The red text below pasted into notepad or any other text editor (the plainer the better) and saved as anything you like with a .vbs extention e.g. lpg.vbs will work on most Windows boxes to do the calculations for you. This is thrown together and may not be accurate. Values pre-filled in boxes can be overtyped with values that suit you better.

    No warranty of any kind implied or given and no liability for any loss or damage, no matter how incurred accepted.


    'First line of script, paste into text editor and save as whateverYouLike.vbs
    'Works on most windows boxes
    'No warrant of any kind implied or given


    'converions
    '1 litre = 0.219969157 Imperial gallons
    '1 Imperial gallon = 4.54609188 litres
    '1 kilometre = 0.621371192 miles

    Option Explicit

    Dim varDisclaimer 'Disclaimer
    Dim varMPG 'Average MPG
    Dim varMiles 'Distance covered
    Dim varLitres 'Litres to do that distance
    Dim varCylinders
    Dim varFitting
    Dim varDIY
    Dim varCost
    Dim varAnnualMiles
    Dim varLPG, varPetrol
    Dim varMPGdrop
    Dim varAnnualPetrolCost, varAnnualLPGCost
    Dim varYrSave, varMnSave
    Dim varRoi, varReduction

    varDisclaimer = MsgBox ("No warranty of any kind implied or given ok?", vbYesNo, "FYI")

    Select Case varDisclaimer
    Case vbNo
    Wscript.Echo "Quiting"
    Wscript.Quit
    End Select

    varMPG = MsgBox ("Yes = I know my average MPG / No = work it out for me?", vbYesNo, "MPG Info")

    Select Case varMPG
    Case vbYes
    varMPG = inputbox("Enter avaerage MPG","Petrol MPG", 28)
    Case vbNo
    varMiles = inputbox("Enter distance covered in miles","Distance", 202)
    varLitres = inputbox("Enter litres used to do that distance","Litres", 34)
    varMPG = varMiles / (varLitres * 0.219969157)
    Wscript.Echo "MPG calculated as " & varMPG & " MPG"
    End Select

    varLPG = inputbox("Enter cost per litre of LPG","LPG ", 0.729)
    varPetrol = inputbox("Enter cost per litre of petrol","Petrol ", 1.389)

    varCylinders = MsgBox ("Number of cylinders?" & (Chr(13) & Chr(10)) & "Yes = 6" & (Chr(13) & Chr(10)) & "N0 = 4", vbYesNo, "Cylinders")

    Select Case varCylinders
    Case vbYes '6Cylinder
    varDIY = MsgBox ("DIY Fitting?", vbYesNo, "Fitting")

    Select Case varDIY
    Case vbYes
    varCost = inputbox("Accept or alter DIY fitting cost","Cost", 814)
    Case vbNo
    varCost = inputbox("Accept or alter Pro fitted cost","Cost", 1195)
    End Select
    Case vbNo '4 Cylinder
    varDIY = MsgBox ("DIY Fitting?", vbYesNo, "Fitting")

    Select Case varDIY
    Case vbYes
    varCost = inputbox("Accept or alter DIY fitting cost","Cost", 618)
    Case vbNo
    varCost = inputbox("Accept or alter Pro fitted cost","Cost", 1050)
    End Select
    End Select

    varAnnualMiles = inputbox("Accept or alter annual miles covered","Annual Miles", 12000)
    varMPGdrop = inputbox("Accept or alter percentage MPG reduction" & (Chr(13) & Chr(10)) & "when compared to petrol","LPG loss", 10)

    'Annual Petrol Cost = (((Annual mileage / MPG) * 4.54609188 litres) * cost per litre)
    varAnnualPetrolCost = ((varAnnualMiles / varMPG) * 4.54609188) * varPetrol
    'Annual LPG Cost = (((Annual mileage / (MPG - (MPG/100 * MPGdrop)) * 4.54609188 litres) * cost per litre)
    varAnnualLPGcost = ((varAnnualMiles / (varMPG - ((varMPG / 100) * varMPGdrop))) * 4.54609188) * varLPG

    varYrSave = varAnnualPetrolCost - varAnnualLPGcost
    varMnSave = varYrSave /12
    varROI = varCost / varMnSave
    varReduction = (varYrSave / varAnnualPetrolCost) * 100

    Wscript.Echo "You chose the following" & (Chr(13) & Chr(10)) & "Annual Miles " & varAnnualMiles & (Chr(13) & Chr(10)) & "Petrol " & varMPG & " MPG" _
    & (Chr(13) & Chr(10)) & "Petrol cost " & varPetrol & " per litre" & (Chr(13) & Chr(10)) & "LPG cost " & varLPG & " per litre" & (Chr(13) & Chr(10)) _
    & "Conversion cost " & varCost & (Chr(13) & Chr(10)) & (Chr(13) & Chr(10)) & "Results are" & (Chr(13) & Chr(10)) _
    & "LPG Annual cost " & varAnnualLPGcost & (Chr(13) & Chr(10)) & "Petrol Annual cost " & varAnnualPetrolcost & (Chr(13) & Chr(10)) _
    & "Yearly Saving " & varYrSave & (Chr(13) & Chr(10)) & "Monthly Saving " & varMnSave & (Chr(13) & Chr(10)) & "Return on investment in " & varROI & " months" _
    & (Chr(13) & Chr(10)) & "Percentage saving " & varReduction & Chr(37)

    Wscript.echo "Finished"


    'last line of script
    Last edited by e36coupe-328; 11-11-2012 at 16:58.
    No warranty of any kind implied or given and no liability for any loss, damage or injury, no matter how incurred accepted.

    LPG Conversion "How to" Guide, Step by Step, Picture by Picture

    Free Gas Kit* now fitted to free 328*
    *Based on ROI period exceeded

  2. The Following User Says Thank You to e36coupe-328 For This Useful Post:

    Nathb (05-11-2012)

  3. #2
    Sometimes the world is still flat, especially if you can't see as far as the horizon
    BFI God you need to get out more!
    e36coupe-328's Avatar
    Join Date
    Apr 2012
    Location
    Greater Manchester
    Posts
    5,349
    Car Specs:
    Year
    1995 / 2001
    Model
    E36 / White Elephant
    Engine
    2.8 / 3.2
    Fuel
    LPG / Liquid Gold
    Thanks
    304
    Thanked 2,110 Times in 1,665 Posts


    Holding down CTRL + C when the results box is the active window will copy it to the clipboard so then if desired you can paste it in here to show how it worked out e.g.

    ---------------------------
    Windows Script Host
    ---------------------------
    You chose the following

    Annual Miles 20000

    Petrol 28 MPG

    Petrol cost 1.389 per litre

    LPG cost 0.729 per litre

    Conversion cost 850



    Results are

    LPG Annual cost 2630.23887342857

    Petrol Annual cost 4510.37258665714

    Yearly Saving 1880.13371322857

    Monthly Saving 156.677809435714

    Retrun on investment in 5.42514605649219 months

    Percentage saving 41.6846652267819%
    ---------------------------
    OK
    ---------------------------
    Last edited by e36coupe-328; 06-11-2012 at 10:13.
    No warranty of any kind implied or given and no liability for any loss, damage or injury, no matter how incurred accepted.

    LPG Conversion "How to" Guide, Step by Step, Picture by Picture

    Free Gas Kit* now fitted to free 328*
    *Based on ROI period exceeded

  4. #3
    BFI Hero
    Nathb's Avatar
    Join Date
    Apr 2012
    Location
    London
    Posts
    1,829
    Car Specs:
    Year
    2004
    Model
    E46
    Engine
    330Ci
    Fuel
    Petrol
    Thanks
    562
    Thanked 1,007 Times in 764 Posts


    Nice scripting!!

    For those who can't figure it out download here: https://rapidshare.com/files/2503486727/Calculator.vbs

  5. #4
    Sometimes the world is still flat, especially if you can't see as far as the horizon
    BFI God you need to get out more!
    e36coupe-328's Avatar
    Join Date
    Apr 2012
    Location
    Greater Manchester
    Posts
    5,349
    Car Specs:
    Year
    1995 / 2001
    Model
    E36 / White Elephant
    Engine
    2.8 / 3.2
    Fuel
    LPG / Liquid Gold
    Thanks
    304
    Thanked 2,110 Times in 1,665 Posts


    Quote Originally Posted by Nathb View Post
    Nice scripting!!
    Let us know how your numbers look
    No warranty of any kind implied or given and no liability for any loss, damage or injury, no matter how incurred accepted.

    LPG Conversion "How to" Guide, Step by Step, Picture by Picture

    Free Gas Kit* now fitted to free 328*
    *Based on ROI period exceeded

  6. #5
    BFI Hero
    Nathb's Avatar
    Join Date
    Apr 2012
    Location
    London
    Posts
    1,829
    Car Specs:
    Year
    2004
    Model
    E46
    Engine
    330Ci
    Fuel
    Petrol
    Thanks
    562
    Thanked 1,007 Times in 764 Posts



  7. The Following User Says Thank You to Nathb For This Useful Post:

    e36coupe-328 (05-11-2012)

  8. #6
    BFI Hero
    Nathb's Avatar
    Join Date
    Apr 2012
    Location
    London
    Posts
    1,829
    Car Specs:
    Year
    2004
    Model
    E46
    Engine
    330Ci
    Fuel
    Petrol
    Thanks
    562
    Thanked 1,007 Times in 764 Posts


    Can you not see pictures?

    Thought it was cleaner that way.

    Here's the text one:
    ---------------------------
    Windows Script Host
    ---------------------------
    You chose the following

    Annual Miles 15000

    Petrol 32 MPG

    Petrol cost 1.44 per litre

    LPG cost 0.729 per litre

    Conversion cost 1195



    Results are

    LPG Annual cost 1726.0942606875

    Petrol Annual cost 3068.612019

    Yearly Saving 1342.5177583125

    Monthly Saving 111.876479859375

    Retrun on investment in 10.6814229541551 months

    Percentage saving 43.75%
    ---------------------------
    OK
    ---------------------------

  9. #7
    Sometimes the world is still flat, especially if you can't see as far as the horizon
    BFI God you need to get out more!
    e36coupe-328's Avatar
    Join Date
    Apr 2012
    Location
    Greater Manchester
    Posts
    5,349
    Car Specs:
    Year
    1995 / 2001
    Model
    E36 / White Elephant
    Engine
    2.8 / 3.2
    Fuel
    LPG / Liquid Gold
    Thanks
    304
    Thanked 2,110 Times in 1,665 Posts


    Quote Originally Posted by Nathb View Post
    Can you not see pictures?
    No, not for about 10 mins.

    Looks like your car would have to be a keeper for at leat 2 years to put plenty back in your pocket on a fitted kit
    Did you go with the 10% mpg drop?
    No warranty of any kind implied or given and no liability for any loss, damage or injury, no matter how incurred accepted.

    LPG Conversion "How to" Guide, Step by Step, Picture by Picture

    Free Gas Kit* now fitted to free 328*
    *Based on ROI period exceeded

  10. #8
    BFI Hero
    Nathb's Avatar
    Join Date
    Apr 2012
    Location
    London
    Posts
    1,829
    Car Specs:
    Year
    2004
    Model
    E46
    Engine
    330Ci
    Fuel
    Petrol
    Thanks
    562
    Thanked 1,007 Times in 764 Posts


    Quote Originally Posted by e36coupe-328 View Post
    No, not for about 10 mins.

    Looks like your car would have to be a keeper for at leat 2 years to put plenty back in your pocket on a fitted kit
    Did you go with the 10% mpg drop?
    Yeah I did, didn't know what to select there.

  11. #9
    Sometimes the world is still flat, especially if you can't see as far as the horizon
    BFI God you need to get out more!
    e36coupe-328's Avatar
    Join Date
    Apr 2012
    Location
    Greater Manchester
    Posts
    5,349
    Car Specs:
    Year
    1995 / 2001
    Model
    E36 / White Elephant
    Engine
    2.8 / 3.2
    Fuel
    LPG / Liquid Gold
    Thanks
    304
    Thanked 2,110 Times in 1,665 Posts


    Quote Originally Posted by Nathb View Post
    Yeah I did, didn't know what to select there.
    some sites say 5% some say 20%. I drop about 10% on my car
    No warranty of any kind implied or given and no liability for any loss, damage or injury, no matter how incurred accepted.

    LPG Conversion "How to" Guide, Step by Step, Picture by Picture

    Free Gas Kit* now fitted to free 328*
    *Based on ROI period exceeded

  12. #10
    Sometimes the world is still flat, especially if you can't see as far as the horizon
    BFI God you need to get out more!
    e36coupe-328's Avatar
    Join Date
    Apr 2012
    Location
    Greater Manchester
    Posts
    5,349
    Car Specs:
    Year
    1995 / 2001
    Model
    E36 / White Elephant
    Engine
    2.8 / 3.2
    Fuel
    LPG / Liquid Gold
    Thanks
    304
    Thanked 2,110 Times in 1,665 Posts


    No warranty of any kind implied or given and no liability for any loss or damage, no matter how incurred accepted.
    Pence per mile etc added.



    'First line of script, paste into text editor and save as whateverYouLike.vbs
    'Works on most windows boxes
    'No warranty of any kind implied or given

    'converions
    '1 litre = 0.219969157 Imperial gallons
    '1 Imperial gallon = 4.54609188 litres
    '1 kilometre = 0.621371192 miles

    Option Explicit

    Dim varDisclaimer 'Disclaimer
    Dim varMPG 'Average MPG
    Dim varMiles 'Distance covered
    Dim varLitres 'Litres to do that distance
    Dim varCylinders
    Dim varFitting
    Dim varDIY
    Dim varCost
    Dim varAnnualMiles
    Dim varLPG, varPetrol
    Dim varMPGdrop
    Dim varAnnualPetrolCost, varAnnualLPGCost
    Dim varYrSave, varMnSave
    Dim varRoi, varReduction, varPetPPM, varLPGPPM

    varDisclaimer = MsgBox ("No warranty of any kind implied or given ok?", vbYesNo, "FYI")

    Select Case varDisclaimer
    Case vbNo
    Wscript.Echo "Quiting"
    Wscript.Quit
    End Select

    varMPG = MsgBox ("Yes = I know my average MPG / No = work it out for me?", vbYesNo, "MPG Info")

    Select Case varMPG
    Case vbYes
    varMPG = inputbox("Enter avaerage MPG","Petrol MPG", 28)
    Case vbNo
    varMiles = inputbox("Enter distance covered in miles","Distance", 202)
    varLitres = inputbox("Enter litres used to do that distance","Litres", 34)
    varMPG = varMiles / (varLitres * 0.219969157)
    Wscript.Echo "MPG calculated as " & varMPG & " MPG"
    End Select

    varLPG = inputbox("Enter cost per litre of LPG","LPG ", 0.729)
    varPetrol = inputbox("Enter cost per litre of petrol","Petrol ", 1.389)
    varCylinders = MsgBox ("Number of cylinders?" & (Chr(13) & Chr(10)) & "Yes = 6" & (Chr(13) & Chr(10)) & "N0 = 4", vbYesNo, "Cylinders")

    Select Case varCylinders
    Case vbYes '6Cylinder
    varDIY = MsgBox ("DIY Fitting?", vbYesNo, "Fitting")

    Select Case varDIY
    Case vbYes
    varCost = inputbox("Accept or alter DIY fitting cost","Cost", 814)
    Case vbNo
    varCost = inputbox("Accept or alter Pro fitted cost","Cost", 1195)
    End Select
    Case vbNo '4 Cylinder
    varDIY = MsgBox ("DIY Fitting?", vbYesNo, "Fitting")

    Select Case varDIY
    Case vbYes
    varCost = inputbox("Accept or alter DIY fitting cost","Cost", 618)
    Case vbNo
    varCost = inputbox("Accept or alter Pro fitted cost","Cost", 1050)
    End Select
    End Select

    varAnnualMiles = inputbox("Accept or alter annual miles covered","Annual Miles", 12000)
    varMPGdrop = inputbox("Accept or alter percentage MPG reduction" & (Chr(13) & Chr(10)) & "when compared to petrol","LPG loss", 10)

    'Annual Petrol Cost = (((Annual mileage / MPG) * 4.54609188 litres) * cost per litre)
    varAnnualPetrolCost = ((varAnnualMiles / varMPG) * 4.54609188) * varPetrol
    'Annual LPG Cost = (((Annual mileage / (MPG - (MPG/100 * MPGdrop)) * 4.54609188 litres) * cost per litre)
    varAnnualLPGcost = ((varAnnualMiles / (varMPG - ((varMPG / 100) * varMPGdrop))) * 4.54609188) * varLPG
    varPetPPM = varAnnualPetrolCost / varAnnualMiles
    varLPGPPM = varAnnualLPGCost / varAnnualMiles

    varYrSave = varAnnualPetrolCost - varAnnualLPGcost
    varMnSave = varYrSave /12
    varROI = varCost / varMnSave
    varReduction = (varYrSave / varAnnualPetrolCost) * 100

    Wscript.Echo "You chose the following" & (Chr(13) & Chr(10)) & "Annual Miles " & varAnnualMiles & (Chr(13) & Chr(10)) & "Petrol " & varMPG & " MPG" _
    & (Chr(13) & Chr(10)) & "Petrol cost " & varPetrol & " per litre" & (Chr(13) & Chr(10)) & "LPG cost " & varLPG & " per litre" & (Chr(13) & Chr(10)) _
    & "MPG drop of " & varMPGdrop & (Chr(37)) & " on LPG" & (Chr(13) & Chr(10)) & "Conversion cost " & varCost & (Chr(13) & Chr(10)) & (Chr(13) & Chr(10)) _
    & "Results are" & (Chr(13) & Chr(10)) _
    & "LPG Annual cost " & varAnnualLPGcost & (Chr(13) & Chr(10)) & "Petrol Annual cost " & varAnnualPetrolcost & (Chr(13) & Chr(10)) _
    & "Yearly Saving " & varYrSave & (Chr(13) & Chr(10)) & "Monthly Saving " & varMnSave & (Chr(13) & Chr(10)) & "Return on investment in " & varROI & " months" _
    & (Chr(13) & Chr(10)) & "Percentage saving " & varReduction & Chr(37) & (Chr(13) & Chr(10)) & "Petrol cost of " & varPetPPM & " pence per mile" _
    & (Chr(13) & Chr(10)) & "LPG cost of " & varLPGPPM & " pence per mile"

    Wscript.echo "Finished"

    'last line of script
    Last edited by e36coupe-328; 11-11-2012 at 16:57.
    No warranty of any kind implied or given and no liability for any loss, damage or injury, no matter how incurred accepted.

    LPG Conversion "How to" Guide, Step by Step, Picture by Picture

    Free Gas Kit* now fitted to free 328*
    *Based on ROI period exceeded

Page 1 of 3 123 LastLast

User Tag List

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •