EXCEL VBA测量平差程序编写2：如何输入角度？

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、结果如下：