GetTemperature_Incelsius function with parameters Farenheit_value return temperature in the celsius. This function is using formula C = 5/9 (F-32), where C is temperature in Celsius and F is temperature in Fahrenheit.
Code snippet is below:
Private Function GetTemperature_Incelsius(ByVal Farenheit_value As Double)
Dim Temp_Incelsius As Double
Temp_Incelsius = (5 / 9) * (Farenheit_value - 32)
Return Temp_Incelsius
End Function