Hàm hiển thị góc(độ-phút-giây) trong excel

[thuyloitienlu]

Chào các bạn. Tôi có đọc sách Lập trình VBa của thầy Phan Tự Hướng, thấy có hàm chuyển đổi góc (độ - phút) sang góc thập phân và ngược lại. Nhưng vói góc cần hiển thị cả phần giây (") thì không đổi được. Vậy thầy Hướng và các bạn giúp tôi lập hàm để chuyển đổi góc (độ - phút -giây) và hàm tính trung bình các góc.
Dưới đây là code tính góc (độ-phút) của thầy Hướng, mong các bạn tham khảo và làm giúp tôi.

Function Goc_do_tb(vung As Range)
On Error GoTo sai
Dim i, Dai, Tong, Goc_phut, Tb, Trai, Phai
Tong = 0
i = 0
Dim ogoc
For Each ogoc In vung
Dai = Len(ogoc)
If ogoc <> 0 Then
Goc_phut = Val(Left(ogoc, Dai - 2) * 60) + Val(Right(ogoc, 2))
Tong = Tong + Goc_phut
i = i + 1
Else
i = i
End If
Next
Tb = Tong / i / 60
Trai = Int(Tb)
Phai = Round((Tb - Trai) * 60, 0)
If Phai > 10 Then
Goc_do_tb = Trai & "o" & Phai & "'"
Else
Goc_do_tb = Trai & "o0" & Phai & "'"
End If
Exit Function
sai:
Goc_do_tb = "Đầu vào sai !"
End Function