by Michael Van Cleave (1 Submission)
Category: Math/Dates
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Thu 15th June 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Functions to convert Pounds to Kilograms and vice versa
Private Function KilogramsToPounds(Kilograms As Single) As Single
'divide number of kilograms by .4536 to obtain number of pounds
KilogramsToPounds = Round(Kilograms / 0.4536, 4)
End Function
Private Function PoundsToKilograms(Pounds As Single) As Single
'multiply the number of pounds times .4536 to obtain number of Kilograms.
PoundsToKilograms = Pounds * 0.4536
End Function