REM'*********************************************************************
REM' Conversion Functions for BaCon
REM'*********************************************************************
REM' These functions were accumulated from various places
REM' I do not guarantee the accuracy of any
REM' Some were supplied to me in anticipation of using them for
REM' a client project. Many of these I have no idea of the functionality
REM' but were part of the PowerBASIC package so were auto translated.
REM'*********************************************************************
REM' James C. Fuller April 03, 2009
REM'*********************************************************************
DEF FN Celsius2Fahrenheit(InVal) = ((InVal*(9/5)) + 32)
REM'==============================================================================
DEF FN Fahrenheit2Celsius(InVal) = ((InVal - 32)*(5/9))
REM'==============================================================================
DEF FN Centimeters2Inches(InVal) = (InVal/2.54)
REM'==============================================================================
DEF FN Inches2Centimeters(InVal) = (InVal*2.54)
REM'==============================================================================
DEF FN Kilometers2Miles(InVal) = (InVal/1.609344)
REM'==============================================================================
DEF FN Miles2Kilometers(InVal) = (InVal*1.609344)
REM'==============================================================================
DEF FN Meters2Feet(InVal) = (InVal/0.3048)
REM'==============================================================================
DEF FN Feet2Meters(InVal) = (InVal*0.3048)
REM'==============================================================================
DEF FN Millimeters2Inches(InVal) = (InVal/25.4)
REM'==============================================================================
DEF FN Inches2Millimeters(InVal) = (InVal*25.4)
REM'==============================================================================
DEF FN Millimeters2Centimeters(InVal) = (InVal/10)
REM'==============================================================================
DEF FN Centimeters2Millimeters(InVal) = (InVal*10)
REM'==============================================================================
DEF FN Centimeters2Meters(InVal) = (InVal/100)
REM'==============================================================================
DEF FN Meters2Centimeters(InVal) = (InVal*100)
REM'==============================================================================
DEF FN Meters2Miles(InVal) = (InVal/1609.344)
REM'==============================================================================
DEF FN Miles2Meters(InVal) = (InVal*1609.344)
REM'==============================================================================
DEF FN Meters2Yards(InVal) = (InVal/1.0936133)
REM'==============================================================================
DEF FN Yards2Meters(InVal) = (InVal*1.0936133)
REM'==============================================================================
DEF FN Meters2Kilometers(InVal) = (InVal/1000)
REM'==============================================================================
DEF FN Kilometers2Meters(InVal) = (InVal*1000)
REM'==============================================================================
DEF FN Miles2Yards(InVal) = (InVal/1760)
REM'==============================================================================
DEF FN Yards2Miles(InVal) = (InVal*1760)
REM'==============================================================================
DEF FN Kilometers2Yards(InVal) = (InVal/1093.6133)
REM'==============================================================================
DEF FN Yards2Kilometers(InVal) = (InVal*1093.6133)
REM'==============================================================================
DEF FN Feet2Inches(InVal) = (InVal*12)
REM'==============================================================================
DEF FN Inches2Feet(InVal) = (InVal/12)
REM'==============================================================================
DEF FN Yards2Inches(InVal) = (InVal*36)
REM'==============================================================================
DEF FN Inches2Yards(InVal) = (InVal/36)
REM'==============================================================================
DEF FN Grammes2Ounces(InVal) = (InVal/28.349551)
REM'==============================================================================
DEF FN Ounces2Grammes(InVal) = (InVal*28.349551)
REM'==============================================================================
DEF FN Pounds2Kilos(InVal) = (InVal*0.45359)
REM'==============================================================================
DEF FN Kilos2Pounds(InVal) = (InVal/0.45359)
REM'==============================================================================
DEF FN Ton2KiloGramme(InVal) = (InVal*1016.046909)
REM'==============================================================================
DEF FN KiloGramme2Ton(InVal) = (InVal/1016.046909)
REM'==============================================================================
DEF FN USTon2KiloGramme(InVal) = (InVal*907.18474)
REM'==============================================================================
DEF FN KiloGramme2USton(InVal) = (InVal/907.18474)
REM'==============================================================================
DEF FN Tonnes2KiloGramme(InVal) = (InVal*1000)
REM'==============================================================================
DEF FN KiloGramme2Tonnes(InVal) = (InVal/1000)
REM'==============================================================================
DEF FN USTon2Tonnes(InVal) = (InVal*0.90718474)
REM'==============================================================================
DEF FN Tonnes2USton(InVal) = (InVal/0.90718474)
REM'==============================================================================
DEF FN Ton2Tonnes(InVal) = (InVal*1.016046909)
REM'==============================================================================
DEF FN Tonnes2Ton(InVal) = (InVal/1.016046909)
REM'==============================================================================
DEF FN Pounds2Grammes(InVal) = (InVal*453.59)
REM'==============================================================================
DEF FN Grammes2Pounds(InVal) = (InVal/453.59)
REM'==============================================================================
DEF FN KiloGramme2Grammes(InVal) = (InVal*1000)
REM'==============================================================================
DEF FN Grammes2KiloGramme(InVal) = (InVal/1000)
REM'==============================================================================
DEF FN Ton2Pounds(InVal) = (InVal*2240)
REM'==============================================================================
DEF FN Pounds2Ton(InVal) = (InVal/2240)
REM'==============================================================================
DEF FN USTon2Pounds(InVal) = (InVal*2000)
REM'==============================================================================
DEF FN Pounds2USTon(InVal) = (InVal/2000)
REM'==============================================================================
DEF FN Ton2USTon(InVal) = (InVal*1.2000)
REM'==============================================================================
DEF FN USTon2Ton(InVal) = (InVal/1.2000)
REM'==============================================================================
DEF FN Cubic_ft2Cubic_m(InVal) = (InVal/35.314667)
REM'==============================================================================
DEF FN Cubic_m2Cubic_ft(InVal) = (InVal* 35.314667)
REM'==============================================================================
DEF FN Cubic_yd2cubic_m(InVal) = (InVal/1.30795)
REM'==============================================================================
DEF FN Cubic_m2cubic_yd(InVal) = (InVal*1.30795)
REM'==============================================================================
DEF FN Cubic_cm2cubic_ft(InVal) = (InVal/(30.48*30.48*30.48))
REM'==============================================================================
DEF FN Cubic_ft2Cubic_cm(InVal) = (InVal*(30.48*30.48*30.48))
REM'==============================================================================
DEF FN Cubic_ft2cubic_yd(InVal) = (InVal/27)
REM'==============================================================================
DEF FN Cubic_yd2Cubic_ft(InVal) = (InVal*27)
REM'==============================================================================
DEF FN Cubic_cm2Cubic_m(InVal) = (InVal/1000000)
REM'==============================================================================
DEF FN Cubic_m2Cubic_cm(InVal) = (InVal*1000000)
REM'==============================================================================
DEF FN Cubic_cm2Cubic_yd(InVal) = (InVal/764554.85798)
REM'==============================================================================
DEF FN Cubic_yd2Cubic_cm(InVal) = (InVal*764554.85798)
REM'==============================================================================
DEF FN Sqft2sq_m(InVal) = (InVal/10.76391)
REM'==============================================================================
DEF FN Sqm2sqft(InVal) = (InVal*10.76391)
REM'==============================================================================
DEF FN Sqin2sqcm(InVal) = (InVal* 6.4516)
REM'==============================================================================
DEF FN Sqcm2sqin(InVal) = (InVal/6.4516)
REM'==============================================================================
DEF FN CircularMils2SQmm(InVal) = (InVal*0.000506707)
REM'==============================================================================
DEF FN SQmm2CircularMils(InVal) = (InVal/ 0.000506707)
REM'==============================================================================
DEF FN KCM_CircularMils2SQmm(InVal) = (InVal*0.506707)
REM'==============================================================================
DEF FN SQmm2KCM_CircularMils(InVal) = (InVal/ 0.506707)
REM'==============================================================================
DEF FN SQcm2SQmm(InVal) = (InVal*100)
REM'==============================================================================
DEF FN SQmm2SQcm(InVal) = (InVal/ 100)
REM'==============================================================================
DEF FN SQm2SQcm(InVal) = (InVal*10000)
REM'==============================================================================
DEF FN SQcm2SQm(InVal) = (InVal/ 10000)
REM'==============================================================================
DEF FN SQft2SQin(InVal) = (InVal* 144)
REM'==============================================================================
DEF FN SQin2SQft(InVal) = (InVal/ 144)
REM'==============================================================================
DEF FN SQmeter2SQin(InVal) = (InVal* 1550)
REM'==============================================================================
DEF FN SQin2SQmeter(InVal) = (InVal/ 1550)
REM'==============================================================================
DEF FN SQft2SQcm(InVal) = (InVal* 929.0304)
REM'==============================================================================
DEF FN SQcm2SQft(InVal) = (InVal/ 929.0304)
REM'==============================================================================
DEF FN SQm2SQyd(InVal) = (InVal*1.19599)
REM'==============================================================================
DEF FN SQyd2SQm(InVal) = (InVal/ 1.19599)
REM'==============================================================================
DEF FN Hp_elec2watt(InVal) = (InVal* 745.7)
REM'==============================================================================
DEF FN Watt2Hp_elec(InVal) = (InVal/745.7)
REM'==============================================================================
DEF FN Hp_metric2watt(InVal) = (InVal*735.499)
REM'==============================================================================
DEF FN Watt2Hp_metric(InVal) = (InVal/735.499)
REM'==============================================================================
DEF FN Kwatt2watt(InVal) = (InVal* 1000)
REM'==============================================================================
DEF FN Watt2Kwatt(InVal) = (InVal/1000)
REM'==============================================================================
DEF FN Mwatt2Kwatt(InVal) = (InVal* 1000)
REM'==============================================================================
DEF FN kWatt2Mwatt(InVal) = (InVal/1000)
REM'==============================================================================
DEF FN Hp_elec2Kwatt(InVal) = (InVal* 0.7457)
REM'==============================================================================
DEF FN Kwatt2Hp_elec(InVal) = (InVal/0.7457)
REM'==============================================================================
DEF FN Hp_metric2Kwatt(InVal) = (InVal*0.735499)
REM'==============================================================================
DEF FN Kwatt2Hp_metric(InVal) = (InVal/0.735499)
REM'==============================================================================
DEF FN Kph2mph(InVal) = (InVal/1.609344)
REM'==============================================================================
DEF FN Mph2kph(InVal) = (InVal* 1.609344)
REM'==============================================================================
DEF FN Metre_sec2ft_sec(InVal) = (InVal*3.2808399)
REM'==============================================================================
DEF FN Ft_sec2Metre_sec(InVal) = (InVal/3.2808399)
REM'==============================================================================
DEF FN metre_sec2kph(InVal) = (InVal*3.6)
REM'==============================================================================
DEF FN kph2metre_sec(InVal) = (InVal/3.6)
REM'==============================================================================
DEF FN Metre_sec2Mph(InVal) = (InVal*2.23694)
REM'==============================================================================
DEF FN Mph2Metre_sec(InVal) = (InVal/2.23694)
REM'==============================================================================
DEF FN Kph2ft_sec(InVal) = (InVal*0.911344)
REM'==============================================================================
DEF FN Ft_sec2Kph(InVal) = (InVal/0.911344)
REM'==============================================================================
DEF FN Mph2ft_sec(InVal) = (InVal*1.466666)
REM'==============================================================================
DEF FN Ft_sec2Mph(InVal) = (InVal/1.466666)
REM'==============================================================================
DEF FN Kphps2mphps(InVal) = (InVal/1.609344)
REM'==============================================================================
DEF FN Mphps2kphps(InVal) = (InVal* 1.609344)
REM'==============================================================================
DEF FN Metre_SQsec2ft_SQsec(InVal) = (InVal*3.28084)
REM'==============================================================================
DEF FN Ft_SQsec2Metre_SQsec(InVal) = (InVal/3.28084)
REM'==============================================================================
DEF FN metre_SQsec2kphps(InVal) = (InVal*3.6)
REM'==============================================================================
DEF FN kphps2metre_SQsec(InVal) = (InVal/3.6)
REM'==============================================================================
DEF FN Metre_SQsec2Mphps(InVal) = (InVal*2.23693629)
REM'==============================================================================
DEF FN Mphps2Metre_SQsec(InVal) = (InVal/2.23693629)
REM'==============================================================================
DEF FN Kphps2ft_SQsec(InVal) = (InVal*0.911344)
REM'==============================================================================
DEF FN Ft_SQsec2Kphps(InVal) = (InVal/0.911344)
REM'==============================================================================
DEF FN Mphps2ft_SQsec(InVal) = (InVal*1.466666)
REM'==============================================================================
DEF FN Ft_SQsec2Mphps(InVal) = (InVal/1.466666)
REM'==============================================================================
DEF FN Kphpsps2mphpsps(InVal) = (InVal/1.609344)
REM'==============================================================================
DEF FN Mphpsps2kphpsps(InVal) = (InVal* 1.609344)
REM'==============================================================================
DEF FN Metre_CUBsec2ft_CUBsec(InVal) = (InVal*3.28084)
REM'==============================================================================
DEF FN Ft_CUBsec2Metre_CUBsec(InVal) = (InVal/3.28084)
REM'==============================================================================
DEF FN metre_CUBsec2kphpsps(InVal) = (InVal*3.6)
REM'==============================================================================
DEF FN kphpsps2metre_CUBsec(InVal) = (InVal/3.6)
REM'==============================================================================
DEF FN Metre_CUBsec2Mphpsps(InVal) = (InVal*2.23693639)
REM'==============================================================================
DEF FN Mphpsps2Metre_CUBsec(InVal) = (InVal/2.23693639)
REM'==============================================================================
DEF FN Kphpsps2ft_CUBsec(InVal) = (InVal*0.911344)
REM'==============================================================================
DEF FN Ft_CUBsec2Kphpsps(InVal) = (InVal/0.911344)
REM'==============================================================================
DEF FN Mphpsps2ft_CUBsec(InVal) = (InVal*1.466666)
REM'==============================================================================
DEF FN Ft_CUBsec2Mphpsps(InVal) = (InVal/1.466666)
REM'==============================================================================
DEF FN LBf2Newtons(InVal) = (InVal/4.448221)
REM'==============================================================================
DEF FN Newtons2LBf(InVal) = (InVal* 4.448221)
REM'==============================================================================
DEF FN LBf2daNewtons(InVal) = (InVal/0.4448221)
REM'==============================================================================
DEF FN daNewtons2LBf(InVal) = (InVal* 0.4448221)
REM'==============================================================================
DEF FN LBf2kNewtons(InVal) = (InVal/0.004448221)
REM'==============================================================================
DEF FN kNewtons2LBf(InVal) = (InVal* 0.004448221)
REM'==============================================================================
DEF FN Newtons2daNewtons(InVal) = (InVal/10)
REM'==============================================================================
DEF FN daNewtons2Newtons(InVal) = (InVal* 10)
REM'==============================================================================
DEF FN Newtons2kNewtons(InVal) = (InVal/1000)
REM'==============================================================================
DEF FN kNewtons2Newtons(InVal) = (InVal* 1000)
REM'==============================================================================
DEF FN daNewtons2kNewtons(InVal) = (InVal/100)
REM'==============================================================================
DEF FN kNewtons2daNewtons(InVal) = (InVal* 100)
REM'==============================================================================
DEF FN Volts2kVolts(InVal) = (InVal/1000)
REM'==============================================================================
DEF FN kVolts2Volts(InVal) = (InVal* 1000)
REM'==============================================================================
DEF FN Ampers2kAmpers(InVal) = (InVal/1000)
REM'==============================================================================
DEF FN kAmpers2Ampers(InVal) = (InVal* 1000)
REM'==============================================================================
DEF FN VoltAmps2kVoltAmps(InVal) = (InVal/1000)
REM'==============================================================================
DEF FN kVoltAmps2VoltAmps(InVal) = (InVal* 1000)
REM'==============================================================================
DEF FN VoltAmps2MVoltAmps(InVal) = (InVal/1000000)
REM'==============================================================================
DEF FN MVoltAmps2VoltAmps(InVal) = (InVal* 1000000)
REM'==============================================================================
DEF FN kVoltAmps2MVoltAmps(InVal) = (InVal/1000)
REM'==============================================================================
DEF FN MVoltAmps2kVoltAmps(InVal) = (InVal* 1000)
REM'==============================================================================
DEF FN oHMperKilometers2oHMperMiles(InVal) = (InVal/1.609344)
REM'==============================================================================
DEF FN oHMperMiles2oHMperKilometers(InVal) = (InVal*1.609344)
REM'==============================================================================
DEF FN oHMperMeters2oHMperFeet(InVal) = (InVal/0.3048)
REM'==============================================================================
DEF FN oHMperFeet2oHMperMeters(InVal) = (InVal*0.3048)
REM'==============================================================================
DEF FN oHMperMeters2oHMperMiles(InVal) = (InVal/1609)
REM'==============================================================================
DEF FN oHMperMiles2oHMperMeters(InVal) = (InVal*1609)
REM'==============================================================================
DEF FN oHMperMeters2oHMperYards(InVal) = (InVal/1.094)
REM'==============================================================================
DEF FN oHMperYards2oHMperMeters(InVal) = (InVal*1.094)
REM'==============================================================================
DEF FN oHMperMeters2oHMperKilometers(InVal) = (InVal/1000)
REM'==============================================================================
DEF FN oHMperKilometers2oHMperMeters(InVal) = (InVal*1000)
REM'==============================================================================
DEF FN oHMperMiles2oHMperYards(InVal) = (InVal/1760)
REM'==============================================================================
DEF FN oHMperYards2oHMperMiles(InVal) = (InVal*1760)
REM'==============================================================================
DEF FN oHMperKilometers2oHMperYards(InVal) = (InVal/1094)
REM'==============================================================================
DEF FN oHMperYards2oHMperKilometers(InVal) = (InVal*1094)
REM'==============================================================================
DEF FN oHMperKilometers2oHMper1000Yards(InVal) = (InVal/1.094)
REM'==============================================================================
DEF FN oHMper1000Yards2oHMperKilometers(InVal) = (InVal*1.094)
REM'==============================================================================
DEF FN oHMperMiles2oHMper1000Yards(InVal) = (InVal/1.760)
REM'==============================================================================
DEF FN oHMper1000Yards2oHMperMiles(InVal) = (InVal*1.760)
REM'==============================================================================
DEF FN oHMperKilometers2oHMper1000feet(InVal) = (InVal*3.281)
REM'==============================================================================
DEF FN oHMper1000feet2oHMperKilometers(InVal) = (InVal/3.281)
REM'==============================================================================
DEF FN oHMperMiles2oHMper1000feet(InVal) = (InVal * 5280)
REM'==============================================================================
DEF FN oHMper1000feet2oHMperMiles(InVal) = (InVal/5280)
REM'==============================================================================