Converting Kilos to Stones, pounds and ounces
It is easy to find conversions from kilos to pounds and ounces however it is much more difficult to find conversions to stones. Here is my solution.
vb.net Code:
Private Function KilosToStone(ByVal Kilos As Single) As String
Dim Ounces As Single
Dim Pounds As Single
Dim Stones As Single
Const OneStone As Single = 6.35029
Const OnePound As Single = 0.453592
Const OneOunce As Single = 0.0283495
'8 eighths in an inch
'96 eighths in a foot
Stones = Int(Kilos / OneStone)
Kilos -= Stones * OneStone
Pounds = Int(Kilos / OnePound)
Kilos -= Pounds * OnePound
Ounces = Int(Kilos / OneOunce)
Return Stones.ToString & "st " & Pounds.ToString & "lb " & Ounces.ToString & "oz"
End Function