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 31 Downloads 10

Classic ASP Math
ANmarAmdeen
755
Attachments
Revisions

v1.0