11 lines
350 B
Text
11 lines
350 B
Text
Public Sub Form_Open()
|
|
Dim fKelvin As Float
|
|
|
|
fKelvin = InputBox("Enter a Kelvin value", "Kelvin converter")
|
|
|
|
Print "Kelvin =\t" & Format(Str(fKelvin), "#.00")
|
|
Print "Celsius =\t" & Format(Str(fKelvin - 273.15), "#.00")
|
|
Print "Fahrenheit =\t" & Format(Str(fKelvin * 1.8 - 459.67), "#.00")
|
|
Print "Rankine =\t" & Format(Str(fKelvin * 1.8), "#.00")
|
|
|
|
End
|