Matematické funkce XIV - Celsius a Fahrenheit
Funkce:
'Převod: Celsius na
Fahrenheit
Function CelsiusToFahrenheit(ByVal value As Single) As
Single
CelsiusToFahrenheit = value * 1.8 + 32
End Function
'Převod: Fahrenheit
na Celsius
Function FahrenheitToCelsius(ByVal value As Single) As
Single
FahrenheitToCelsius = (value - 32) / 1.8
End Function