# NavList:

## A Community Devoted to the Preservation and Practice of Celestial Navigation and Other Methods of Traditional Wayfinding

Message:αβγ
Message:abc
 Add Images & Files Posting Code: Name: Email:
Re: Why do we still use this terrible Babylonian hexadecimal system
From: Alexandre Eremenko
Date: 2004 Nov 18, 11:13 -0500

```Yes.
I use a Linux standard spreadsheet "Gnumeric",
but it is essentially the same as Excel.
I just allocate 4 cells for each piece of data
(one for degrees, one for minutes, one for seconds,
and one for radians (or whatever "reasonable measure"
of angles is used in calculations,
fractional degrees, for example)).
Then I just type the appropriate
conversion formulas into these cells.

Alex.

P.S. If I ever have to do this in sea,
I will use my little Casio scientific calculator
fx-250D (\$10, battery for 1800 hours), which
degrees. It also has all trigonometry to 8 digits,
averaging and even standard deviation.
I find it very convenient for sight reduction.
It sounds incredible but I never replaced the battery
since I bought it in 1989 (!)

On Thu, 18 Nov 2004, Michael Dorl wrote:

> Is there anyway to use excel with dd mm ss data?
>
> I've been using the following macros to convert back and forth.  To add
> them to a sheet,use TOOLS - MACRO - VISUAL BASIC EDITOR.
> Then after visual basic stars, do INSERT MODULE and paste them into the
> resulting window.
>
> Mike
>
>
> Function DMStoDEC(s As String) As Double
>
> Dim parts() As String
>
> Dim Degrees As Integer
> Dim Minutes As Integer
> Dim Seconds As Integer
> Dim sign    As Integer
>
> parts = Split(s, , , vbBinaryCompare)
>
> Degrees = parts(0)
> If Degrees < 0 Then
>   sign = -1
>   Degrees = -Degrees
> Else
>   sign = 1
> End If
>
> Minutes = parts(1)
> Seconds = parts(2)
>
> DMStoDEC = sign * (Degrees + Minutes / 60# + Seconds / 3600#)
>
> End Function
>
>
> Function DECtoDMS(A As Double) As String
>
> Dim Degrees As Integer
> Dim Minutes As Integer
> Dim Seconds As Double
>
> Degrees = Int(A)
> A = 60 * (A - Degrees)
> Minutes = Int(A)
> Seconds = 60# * (A - Minutes)
> Seconds = Round(Seconds, 3)
> Seconds = Int(Seconds * 1000#)
> Seconds = Seconds / 1000#
>
> DECtoDMS = Degrees & " " & Minutes & " " & Seconds
>
> End Function
>

```
Browse Files

Drop Files

### Join NavList

 Name: (please, no nicknames or handles) Email:
 Do you want to receive all group messages by email? Yes No
You can also join by posting. Your first on-topic post automatically makes you a member.

### Posting Code

Enter the email address associated with your NavList messages. Your posting code will be emailed to you immediately.
 Email:

### Email Settings

 Posting Code:

### Custom Index

 Subject: Author: Start date: (yyyymm dd) End date: (yyyymm dd)