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:

' B) ~) L( i6 O6 b6 A$ t4 g' T5 g7 |1. Trong Excel nhấn ALT+F11.
7 K: Q  k$ r( S
2. Trong menu Insert, click Module.

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
With Application
'Set degree to Integer of Argument Passed
Degrees = Int(Decimal_Deg)
  s( f$ a  v5 V  C" ^' a) u'Set minutes to 60 times the number to the right
, x$ P6 Y( F$ C1 `'of the decimal for the variable Decimal_Deg
Minutes = (Decimal_Deg - Degrees) * 60
'Set seconds to 60 times the number to the right of the
'decimal for the variable Minute
Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")
" h# ?% |  g. }; Z0 e- ^  G'Returns the Result of degree conversion
( y2 h. H/ f  C. |+ ['(for example, 10.46 = 10~ 27 ' 36")
: K; y% Q4 f1 k! R4 \. uConvert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _
& Seconds + Chr(34)
3 \( j1 K$ O$ c1 H3 dEnd With
End Function
' d$ h( ?# g! d
$ ^% o. ?7 C/ k5 ?* A4. Nhấn ALT+F11 để quay về Excel.
8 z" r- w& z" R& g. p( ?5 [
: F* V+ h$ A- m! Z# M' J4 Y5. Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:

=Convert_Degree(10.46)

. B9 v* D/ O; {/ VKết quả thu được là 10°27'36"

Hoặc:
, e0 l2 O5 }: M$ h
1. Trong Excel nhấn ALT+F11.
. U8 j: E% m9 z
2. Trong menu File , click Import file  chọn 2 file đính kèm trong thư mục này.
/ \. R: ]  I, y2 I# j1 P$ U
5 l" d% l" Z2 j5 n$ t' j  @- Doi  so thap phan ra do phut giay
- Doi do phut giay ra so thap phan
0 {( @$ T: q: d4 U
3. Nhấn ALT+F11 để quay về Excel.

Ví dụ: muốn đổi 10.46 độ sang độ phút giây thì đánh như sau:
3 X, m' `5 h" u( C$ X# ?1 _
=Convert_Degree(10.46)
( y) Q1 X! K7 C
Kết quả thu được là 10°27'36"
  p: R' c1 c) e; V
( j+ {% o/ c, Y. H7 ~Chi tiết xem trong file mẫu đính kèm.
; d9 y! N2 R3 e% ?, }1 v
  y% J& j: x2 ^# v, n- I* LTải tập tin đính kèm tại đây.

1 h2 r% g: J3 E7 u/ X