// This converts a lat/long to the UTM zone in which it is located.// This may give unpredictable results if taken exactly on the border between// two zones, so don't do that.// This also returns a zone letter for latitude zones C-W. If the latitude// is outside this zone, this will return a question mark for the zone letter,// as a warning that things are getting really unsafe for UTM coordinates.
LatLongToUTMZone[lat, long] :=
{
long1 = ((long/degrees)+180)/6
zoneNum= ceil[long1]

// Now find latitude letter. Some letters like I and O are not used.
letters = ["C","D","E","F","G","H","J","K","L","M","N","P","Q","R","S","T","U","V","W"]