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) C锾攒揉敫ase 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 & " " & mmEnd Function

4、在EXCEL中试验程序，输入=dfm1(98.4548)。

5、结果如下：