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

CDegree
Or
FDegree

Views 2746 Downloads 857


ANmarAmdeen
612
Math Classic ASP
Revisions

v1.0