Nautical/Flight Functions

Functions perform various calculations useful for planning trips.

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.


Public

Not Tested

Not My Work
' 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

ByVal mph
ByVal kt
ByVal miles
ByVal nautMi
ByVal nautMi, ByVal kt
ByVal kt, ByVal mins
ByVal nautMi, ByVal mins
ByVal hr
ByVal sd
ByVal mins, ByVal gph

Views 83 Downloads 25

Classic ASP Math
ANmarAmdeen
764
Attachments
Revisions

v1.0