Chuyển đổi qua lại giữa Radian và Độ phút giây trong Excel

Hieunghia

Làm theo các bước sau để dùng đoạn mã VBA:
5 ~. p1 T2 W. i( U1 S$ k
: W0 p1 l# w- @+ a1. Trong Excel nhấn ALT+F11.

2. Trong menu Insert, click Module.
2 a$ a+ L9 c- I% |# F8 o4 [
3. Paste đoạn mã trên đây vào ô bên cạnh (cửa sổ module sheet).

Function Convert_Degree(Decimal_Deg) As Variant
8 O" K9 k. l/ e' i* KWith Application
9 d3 m* A( Z6 r: X6 D; q  t'Set degree to Integer of Argument Passed
7 b+ L. I% r& A* Z) wDegrees = Int(Decimal_Deg)
'Set minutes to 60 times the number to the right
$ ?  k3 E2 P" E& H% k9 p+ S'of the decimal for the variable Decimal_Deg
2 O  z' N6 Q+ v/ dMinutes = (Decimal_Deg - Degrees) * 60
- M( `- R* q& V; k6 B0 Q'Set seconds to 60 times the number to the right of the
'decimal for the variable Minute
Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")
'Returns the Result of degree conversion
% m; B! [% b" _$ Y5 V' E'(for example, 10.46 = 10~ 27 ' 36")
Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _
! f# V* t3 N9 u' C& Seconds + Chr(34)
6 P0 g+ d# b. D& zEnd With
) p% A, y/ F% Y- m3 ^7 ]End Function

& D* q7 f" r, c4. Nhấn ALT+F11 để quay về Excel.
( [* C& _" o- I/ z3 V
5. Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:
3 y' C) r/ L0 }- t% {
=Convert_Degree(10.46)

Kết quả thu được là 10°27'36"
- E% m+ ~( N9 e1 }9 ?4 O: }' T
Hoặc:

1. Trong Excel nhấn ALT+F11.
+ g5 Z% u2 A) G  N( P4 _# ^
2. Trong menu File , click Import file  chọn 2 file đính kèm trong thư mục này.
1 K9 Z  B, e; X+ x! Q' M7 w) m! d
) b& Q) M$ `5 Q* e3 W# }8 S- Doi  so thap phan ra do phut giay
- Doi do phut giay ra so thap phan

3. Nhấn ALT+F11 để quay về Excel.
4 A2 v5 O, r) i( W
  h# I+ \. J. mVí dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:

=Convert_Degree(10.46)
& D: R+ ]4 K7 @" ~
Kết quả thu được là 10°27'36"

9 g* v( ~5 C  u& V# CChi tiết xem trong file mẫu đính kèm.

- O8 G- y: n1 o- A+ W( ATải tập tin đính kèm tại đây.

' }4 Y; v2 z+ S' e0 [1 [