<!--
'some converions
Function Celsius(Farenheit)
Celsius = (Farenheit - 32) / 1.8
End Function
Function Farenheit(Celcius)
Farenheit = (Celcius * 1.8) + 32
End Function
Function MPH(MetresPerSecond)
MPH = 2.237 * MetresPerSecond
End Function
Function Knots(MetresPerSecond)
Knots = 1.943 * MetresPerSecond
End Function
Function KPH(MetresPerSecond)
KPH = 3.6 * MetresPerSecond
End Function
Function MercuryInches(Millibars)
MercuryInches = 0.02953 * Millibars
End Function
Function MercuryMillimetres(Millibars)
MercuryMillimetres = 0.7500616 * Millibars
End Function

Function Millimetres(Inches)
Millimetres = Inches / 25.4
End Function

Function Inches(Millimetres)
Inches = 0.03937 * Millimetres
End Function



Function DegreesDiff(vFrom, vTo)' As Single
Dim v
Dim v1, v2
v1 = 360 - ((vTo - vFrom) Mod 360)
v2 = 360 - ((vFrom - vTo) Mod 360)
If v1 > 360 Then v1 = v1 - 360
If v2 > 360 Then v2 = v2 - 360
If v1 < v2 Then
    v = v1 * -1
Else
    v = v2
End If
If v = 360 Then v = 0
DegreesDiff = csng(v)
End Function
-->