by Daniel Wright (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 19th February 2001
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
Converts celsius to Fahrenheit
picTempC.Cls
picTempC.Print FtoC(Val(txtTempF.Text))
End Sub
Private Funtion FtoC(t As Single) As Single
'Converts Fahrenheit to Celsius
FtoC = (5/9)*(t-32)
End Function