用VBA 进行经纬度转梅登黑德网格 的函数 Latitude and longitude to Madenhead grid

   梅登黑德网格，也被称为“梅登黑德定位系统”，是业余无线电业务中常用的全球地理坐标描述方法。梅登黑德网格将地球表面的二维位置编码字母和数字，便于在电文中传输。扩展的网格增加编码的字段，以提升位置描述的精度。
   下面的代码能将经纬度转换成梅登黑德网格，使用极其方便，在A1单元格以度，分，秒的格式输入经度，在A2单元格中以度，分，秒的格式输入纬度，在任一单元格中输入 =LatitudeToGrid(A1,A2) 就可以得到梅登黑德网格了。与用Excel 内置函数一样方便。

Public Function LatitudeToGrid(Longitude As String, Latitude As String) As String
    ' Longitude: 经度，东为正，西为负。 度、分、秒用“,” 分隔。
    ' Latitude:纬度，北为正，南为负。度、分、秒用“,” 分隔。
    ' bh4bin
    ' 2023/1/29
    Dim A As Single, B As Single, C As Single
    Dim D As Single, E As Single, F As Single
    Dim X As Single, Y As Single
    Dim Grid As String, Tmp As String
    Dim InputAyy() As String
    If Trim(Longitude) = "" Or Trim(Latitude) = "" Then Exit Function
    InputAyy = Split(Trim(Longitude), ",")
    A = InputAyy(LBound(InputAyy))
    B = InputAyy(LBound(InputAyy) + 1)
    C = InputAyy(UBound(InputAyy))
    X = A + B / 60 + C / 3600 + 1 / 1000000
    
    InputAyy = Split(Trim(Latitude), ",")
    D = InputAyy(LBound(InputAyy))
    E = InputAyy(LBound(InputAyy) + 1)
    F = InputAyy(UBound(InputAyy))
    Y = D + E / 60 + F / 3600 + 1 / 1000000
    
    If X >= -180 And X < 180 And Y >= -90 And Y <= 90 Then
        A = X / 20 + 9: B = Int(A): Grid = Chr$(B + 65)
        C = Y / 10 + 9: D = Int(C): Grid = Grid + Chr$(D + 65)
        A = (A - B) * 10: B = Int(A): Grid = Grid + Chr$(B + 48)
        C = (C - D) * 10: D = Int(C): Grid = Grid + Chr$(D + 48)
        B = Int((A - B) * 24): Grid = Grid + Chr$(B + 97)
        D = Int((C - D) * 24): Grid = Grid + Chr$(D + 97)
        LatitudeAndLongitudeToMadenheadGrid = Grid
    Else
        Tmp = MsgBox(prompt:="数据有误，请检查!!!", Buttons:=vbExclamation, Title:="警告")
        Exit Function
    End If
End Function