Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Convert Fahrenheit To Celsius

Private Sub TestFahrenheitToCelsius()   Debug.Print FahrenheitToCelsius(32)   If (FahrenheitToCelsius(32) <> 0) Then     Debug.Print "TestFahrenheitToCelsius: Failed"     Debug.Assert False   Else     Debug.Print "TestFahrenheitToCelsius: Passed"   End If End Sub Public Function FahrenheitToCelsius(ByVal TemperatureFahrenheit As Double) As Double   FahrenheitToCelsius = (5 / 9 * (TemperatureFahrenheit - 32)) End Function