Convertire i gradi della temperatura da un'unità di scala di misura in un'altra

Riportiamo di seguito tre funzioni per convertire i gradi della temperatura da un'unità di scala di misura in un'altra:

Private Celsius_in_Fahrenheit(c As Single) As Single

 Return c * (9.0/5.0) + 32

End

Private Fahrenheit_in_Celsius(f As Single) As Single

 Return (f - 32) * (5.0/9.0)

End

Private Kelvin_in_Celsius(k As Single) As Single

 Return k - 273.5

End