‘ 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 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 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 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 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 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 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 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 miles to kilometers, and vice versaFunction MilesToKilometers(ByVal miles As Double) As Double Return miles * 1.6093End FunctionFunction KilometersToMiles(ByVal kilometers As Double) As Double Return kilometers / 1.6093End