Sub converttodms
Dim deg,smin,sec,dega,mina,totmin,seca,totsec
if main.dblbearingdms>=0 then
deg=Floor(Main.dblbearingdms)
dega=Main.dblbearingdms-deg
Main.strdeg=deg
End If
totmin=dega*60
smin=Floor(totmin)
mina=totmin-smin
Main.strmin=smin
If Main.strmin=60 Then
Main.strmin=00
End If
totsec=mina*60
sec=Round(totsec) 'this is where the archos crashes...others ok
If sec=60 Then
sec=00
Main.strmin=Main.strmin+1
If Main.strmin=60 Then
Main.strmin=00
Main.strdeg=Main.strdeg+1
End If
End If
Main.strsec=sec
If Main.dblbearing=90 OR Main.dblbearing=270 Then
Main.strdeg=90
End If
End Sub