Nautical/Flight Functions

' MPH2Kt: converts miles per hour to knots
' Kt2MPH: converts knots to miles per hour
' mi2NautMi: converts miles to nautical miles
' nautMi2Mi: converts nautical miles to miles
' minsInFlight: calculates total flight time in minutes
' nautMiFlown: calculates the nautical miles flown
' ktSpeed: calculates the average speed in knots
' Hr2Min: converts hours to minutes
' Snd2Min: converts seconds to minutes
' galFuel: calculates the minimum number of gallons of fuel needed for a given trip time.


Function MPH2Kt(ByVal mph)'miles per hour to knots
    'purpose: converts miles per hour to knots
    'arguments:            mph                        miles per hour as double
    'returns:             double                    knots to miles per hour
    MPH2Kt = cdbl(cdbl(mph) / 1.152)
End Function

Function Kt2MPH(ByVal kt) 'knots to miles per hour
    'purpose: converts knots to miles per hour
    'arguments:            knots                        knots as double   
    'returns:             double                    miles to nautical miles
    Kt2MPH = cdbl(1.152 * cdbl(Kt))
End Function

Function mi2NautMi(ByVal miles) 'miles to nautical miles
    'purpose: converts miles to nautical miles
    'arguments:         miles            miles as double   
    ' returns:            double        nautical miles to miles
    mi2NautMi = cdbl((cdbl(miles) * 5280) / 6076.1)
End Function

Function nautMi2Mi(ByVal nautMi) 'nautical miles to miles
    ' purpose: converts nautical miles to miles
    ' arguments:        nauticalmiles            nautical miles as double   
    ' returns:            double                    flight time in minutes
    nautMi2Mi = cdbl((cdbl(nautMi) * 6076.1) / 5280)
End Function

Function minsInFlight(ByVal nautMi, ByVal kt) 'flight time in minutes
    ' purpose: calculates total flight time in minutes
    ' arguments:        nauticalmiles            nautical miles to travel as double
    '                        knots                        air speed in knots as double   
    ' returns:            double                    nautical miles flown
    MinsInFlight = cdbl((cdbl(nautMi) / cdbl(kt)) * 60)
End Function

Function nautMiFlown(ByVal kt, ByVal mins) 'nautical miles flown
    'purpose: calculates the nautical miles flown
    'arguments:            knots                        air speed in knots as double   
    '                        minutes                    minutes elapsed as double   
    'returns:            double                    average speed in knots
    NautMiFlown = (cdbl(mins) / 60) * cdbl(cdbl(kt))
End Function

Function ktSpeed(ByVal nautMi, ByVal mins) 'average speed in knots
    'purpose: calculates the average speed in knots
    'arguments:            nauticalmiles            nautical miles travelled as double   
    '                        minutes                    minutes elapsed as double   
    'returns:            double                    hours to minutes
    ktSpeed = cdbl(cdbl(nautMi) / (cdbl(mins) / 60))
End Function

Function Hr2Min(ByVal hr) 'hours to minutes
    'purpose: converts hours to minutes
    'arguments:            hour                        hours as double   
    'returns:            double                    seconds to minutes
    Hr2Min = cdbl(cdbl(hr) * 60)
End Function

Function Snd2Min(ByVal sd) 'seconds to minutes
    'purpose: converts seconds to minutes
    'arguments:            seconds                    seconds as double   
    'returns:            double                    gallons of fuel needed
    Snd2Min = cdbl(cdbl(sd) / 60)
End Function

Function galFuel(ByVal mins, ByVal gph) 'gallons of fuel needed
    ' purpose: calculates the minimum number of gallons of fuel needed for a given trip time.
    ' arguments:        minutes                    minutes as double   
    '                        gallonsPerHour            gallons per hour consumed by craft as double   
    'returns:            double
    galFuel = cdbl((cdbl(mins) / 60) * gph)
End Function