1、测量的外业数据如下表所示：
2、把外业观测到的角度输入表格中，这里设计了一个转换函数，比如外业观测的角度是98°45′48"，为了输入时方便，在往EXCEL中录入时，直接输入98.4548，即代表98°45′48"，通过函数转换到工作表中的格式为98 45 48，度分秒间加了两个空格。
3、编写程序：
Public Function dfm1(aaa As String)
Dim dd, ff, mm As String
Select Case Len(aaa)
Case Is = 6
dd = Left(aaa, 1)
ff = Mid(aaa, 3, 2)
mm = Right(aaa, 2)
Case Is = 7
dd = Left(aaa, 2)
ff = Mid(aaa, 4, 2)
mm = Right(aaa, 2)
Case Is = 8
dd = Left(aaa, 3)
ff = Mid(aaa, 5, 2)
mm = Right(aaa, 2)
End Select
dfm1 = dd & " " & ff & " " & mm
End Function
4、在EXCEL中试验程序，输入=dfm1(98.4548)。
5、结果如下：
