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 Celsius_in_Kelvin_(c As Single) As Single

 Return c + 273.5

End

Private Kelvin_in_Celsius(k As Single) As Single

 Return k - 273.5

End

Private Fahrenheit_in_Kelvin(f As Single) As Single

 Return (f - 32) * (5 / 9) + 273.15

End

Private Kelvin_in_Fahrenheit(k As Single) As Single

 Return (k - 273.15) * (9 / 5) + 32

End