DegreeC2F + DegreeF2C

Convert Celsius to Fahrenheit and Fahrenheit to Celsius degrees

Function DegreeC2F(CDegree)
 DegreeC2F= CelsiusToFahrenheit(CDegree)
End Function
Function DegreeF2C(FDegree)
 DegreeF2C = FahrenheitToCelsius(FDegree)
End Function

Function CelsiusToFahrenheit(DegVal)
 ' convert from Celsius to Fahrenheit degrees
 CelsiusToFahrenheit = DegVal * 1.8 + 32
End Function
Function FahrenheitToCelsius(DegVal)
 ' convert from Fahrenheit to Celsius degrees
 FahrenheitToCelsius = (DegVal - 32) / 1.8
End Function

Parameters

CDegree
Or
FDegree

Views 141 Downloads 54

Perm link