‘ 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 square inches to square centimeters, and vice versaFunction SquareInchesToSquareCentimeters(ByVal squareInches As Double) As Double Return squareInches * 6.4516End FunctionFunction SquareCentimetersToSquareInches(ByVal squareCentimeters As Double) As _ Double Return
‘ Convert from cubic yards to cubic meters, and vice versaFunction CubicYardsToCubicMeters(ByVal cuYards As Double) As Double Return cuYards * 0.7646End FunctionFunction CubicMetersToCubicYards(ByVal cuMeters As Double) As Double Return cuMeters
‘ Convert from US gallons to liters, and vice versaFunction USGallonsToLiters(ByVal gallons As Double) As Double Return gallons * 3.785End FunctionFunction LitersToUSGallons(ByVal liters As Double) As Double Return liters /
‘ Convert from square yards to square meters, and vice versaFunction SquareYardsToSquareMeters(ByVal squareYards As Double) As Double Return squareYards * 0.8361End FunctionFunction SquareMetersToSquareYards(ByVal squareMeters As Double) As Double Return squareMeters
‘ Convert from inches to centimeters, and vice versaFunction InchesToCentimeters(ByVal inches As Double) As Double Return inches * 2.54End FunctionFunction CentimetersToInches(ByVal centimeters As Double) As Double Return centimeters / 2.54End
‘ Convert from yards to meters, and vice versaFunction YardsToMeters(ByVal yards As Double) As Double Return yards * 0.9144End FunctionFunction MetersToYards(ByVal meters As Double) As Double Return meters / 0.9144End
‘ 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