Convert Fahrenheit To Celsius : Function « Language Basics « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Language Basics
  3. Function

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








Related examples in the same category

1.Writing VBA Function Procedures
2.A function returns a value to whomever called it. We can recast the previous sub into a function as follows:
3.Call user-defined function in MsgBox
4.Executing a Function Procedure from a Subroutine
5.A function returns a value to whomever called it.
6.One of simplest possible custom functions
7.function takes two arguments's length and width's and calculates the total area by multiplying them together
8.Use ElseIf in a function
9.Select Case in a function
10.A function with one argument