Temperature Converter That Includes Kelvins

Category:

Dates and Math

Type:

Snippets

Difficulty:

Beginning

Author:

Anonymous

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

The following function not only does a standard conversion of fahrenheit to celsius, but includes the option to convert between any of fahrenheit, celsius and kelvins. Just include three textbox controls for the temperature, a from unit, a to unit and a command button control to execute.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Public Enum TemperatureUnitsEnumeration TKelvins = 0 TCelsius = 1 TFahrenheit = 2 End Enum

Code:

Public Function TemperatureConvert(ByVal InValue As Double, ByVal FromUnit As TemperatureUnitsEnumeration, ByVal ToUnit As TemperatureUnitsEnumeration) As Double
    If FromUnit = ToUnit Then
        '// SAME THING
        TemperatureConvert = InValue
    Else
        Select Case FromUnit
        Case TKelvins
            If ToUnit = TCelsius Then
                '// Celsius = Kelvin - 273.15
                TemperatureConvert = InValue - 273.15
            ElseIf ToUnit = TFahrenheit Then
                TemperatureConvert = (InValue - 273.15) * 1.8 + 32#
            End If
            
        Case TCelsius
            If ToUnit = TKelvins Then
                '// Kelvin = Celsius + 273.15
                TemperatureConvert = InValue + 273.15
            ElseIf ToUnit = TFahrenheit Then
                '// degree F = degree C x 1.8 + 32.
                TemperatureConvert = InValue * 1.8 + 32#
            End If
            
        Case TFahrenheit
            If ToUnit = TCelsius Then
                '// degree C = (degree F - 32.) / 1.8
                TemperatureConvert = (InValue - 32#) / 1.8
            ElseIf ToUnit = TKelvins Then
                TemperatureConvert = ((InValue - 32#) / 1.8) + 273.15
            End If
            
        End Select
    End If
End Function