‘ Convert from cubic inches to cubic decimeters, and vice versaFunction CubicInchesToCubicCentimeters(ByVal cuInches As Double) As Double Return cuInches * 16.387End FunctionFunction CubicCentimetersToCubicInches(ByVal cuCent As Double) As Double Return cuCent
‘ Convert from feet to meters, and vice versaFunction FeetToMeters(ByVal feet As Double) As Double Return feet * 0.3048End FunctionFunction MetersToFeet(ByVal meters As Double) As Double Return meters / 0.3048End
‘ Convert from grains to grams, and vice versaFunction GrainsToGrams(ByVal grains As Double) As Double Return grains * 0.0648End FunctionFunction GramsToGrains(ByVal grams As Double) As Double Return grams / 0.0648End
‘ Convert from pounds to kilograms, and vice versaFunction PoundsToKilograms(ByVal pounds As Double) As Double Return pounds * 0.4536End FunctionFunction KilogramsToPounds(ByVal kilograms As Double) As Double Return kilograms / 0.4536End
‘ Convert from ounces to grams, and vice versaFunction OuncesToGrams(ByVal ounces As Double) As Double Return ounces * 28.349End FunctionFunction GramsToOunces(ByVal grams As Double) As Double Return grams / 28.349End
‘ Convert from pints to cubic decimeters, and vice versaFunction PintsToCubicDecimeters(ByVal pints As Double) As Double Return pints * 0.568End FunctionFunction CubicDecimetersToPints(ByVal cuDec As Double) As Double Return cuDec /
‘ Convert from imperial gallons to liters, and vice versaFunction UKGallonsToLiters(ByVal gallons As Double) As Double Return gallons * 4.546End FunctionFunction LitersToUKGallons(ByVal liters As Double) As Double Return liters /
‘ Convert from square feet to square meters, and vice versaFunction SquareFeetToSquareMeters(ByVal squareFeet As Double) As Double Return squareFeet * 0.0929End FunctionFunction SquareMetersToSquareFeet(ByVal squareMeters As Double) As Double Return squareMeters
‘ Convert from cubic feet to cubic meters, and vice versaFunction CubicFeetToCubicMeters(ByVal cuFeet As Double) As Double Return cuFeet * 0.0283End FunctionFunction CubicMetersToCubicFeet(ByVal cuMeters As Double) As Double Return cuMeters