>>Suy Ngẫm: “Cuộc sống chẳng có gì đáng qúy hơn là hạn chế làm tổn thương người khác và xoa dịu những tâm hồn khổ đau với tất cả những gì mình có thể làm được”
_Olive Schreineray_
Hiện kết quả từ 1 tới 6 của 6

Chủ đề: Chuyển đổi độ phút giây sang thập phân và ngược lại

  1. #1
    Quản Lý Tổng Thể
    Tham gia ngày
    Mar 2011
    Bài gửi
    685

    Level: 39 [?]
    Experience: 1.544.304
    Next Level: 1.757.916

    Thanks
    13
    Thanked 329 Times in 128 Posts
    Level: 23 [♥ Mr.Km ♥]
    Life: 0 / 570
    Magic: 228 / 10281
    Experience: 80%

    Mặc định Chuyển đổi độ phút giây sang thập phân và ngược lại

    A. Chuyển từ độ, phút, giây sang thập phân
    Kiểu định dạng : <degrees>° <minutes>' <seconds>"
    Mở Excel và nhấn Alt + F11 để mở cửa sổ Visual Basic Editor.
    Trên cửa sổ click chuột vào insert, chọn module .
    Ctrl + v đoạn mã mô tả dưới vào cửa sổ module

    Mã:
    Function Convert_Decimal(Degree_Deg As String) As Double
       ' Declare the variables to be double precision floating-point.
       Dim degrees As Double
       Dim minutes As Double
       Dim seconds As Double
       ' Set degree to value before "°" of Argument Passed.
       degrees = Val(Left(Degree_Deg, InStr(1, Degree_Deg, "°") - 1))
       ' Set minutes to the value between the "°" and the "'"
       ' of the text string for the variable Degree_Deg divided by
       ' 60. The Val function converts the text string to a number.
       minutes = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 2, _
                 InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, _
                 "°") - 2)) / 60
        ' Set seconds to the number to the right of "'" that is
        ' converted to a value and then divided by 3600.
        seconds = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + _
                2, Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 2)) _
                / 3600
       Convert_Decimal = degrees + minutes + seconds
    End Function
    Nhấn ALT + F11 để quay trở lại cửa sổ ban đầu cần chuyển đổi.
    rồi gõ công thức sau
    =Convert_Decimal("21° 30' 00""")
    Công thức trả về 21.5



    B. Chuyển hệ thập phân sang độ, phút giây
    Làm tương tự thay đoạn code bằng đoạn này
    Mã:
    Function Convert_Degree(Decimal_Deg) As Variant
        With Application
            'Set degree to Integer of Argument Passed
            Degrees = Int(Decimal_Deg)
            'Set minutes to 60 times the number to the right
            '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")
            'Returns the Result of degree conversion
           '(for example, 10.46 = 10~ 27  ' 36")
            Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _
                & Seconds + Chr(34)
        End With
    End Function
    Sử dụng lệnh
    =Convert_Degree(A1) để thực hiện

    C.
    Ngoài ra các bạn có thể sử dụng cách sau
    Đầu tiên Ctrl + F sau đó Replace tất cả các ° ' " thành dấu :
    Download công cụ Excel Jeanie Html Dateien
    [Only registered and activated users can see links. Click Here To Register...]
    và mở excel lên thêm add vào bằng cách click chuột phải vào và chọn custom quick access toolbar




    Chọn browse tìm đến plugin đó rồi chạy
    Sau đó thực hiện lệnh code sau

    Mã:
    =SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(A2)," ",":"),"'",""),CHAR(34),"")*24
    Nhớ thay A2 phù hợp với số cột và hàng của bạn

    Bài Viết Cùng Chuyên Mục:

    Lần sửa cuối bởi Boot; 12-12-2013 lúc 09:51 AM
    Tất cả các file đều có pass giải nén là: diachatvietnam.net

  2. #2
    Dân Địa Chất
    Tham gia ngày
    Mar 2012
    Bài gửi
    41

    Level: 24 [?]
    Experience: 77.551
    Next Level: 79.247

    Thanks
    21
    Thanked 3 Times in 4 Posts
    Level: 5 [♥ Mr.Km ♥♥ Mr.Km ♥♥ Mr.Km ♥]
    Life: 0 / 104
    Magic: 13 / 1586
    Experience: 19%

    Mặc định Re: Chuyển đổi độ phút giây sang thập phân và ngược lại

    Đúng là cách cuối ....=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(A2)," ",":"),"'",""),CHAR(34),"")*24
    là anh hay dùng đó.
    [url]http://www.diachatvn.com/forums/index.php?showuser=1829[/url]
    [url]http://forum.diachatvietnam.net/members/2989-Thanhdcb.epi[/url]

  3. #3
    Dân Địa Chất
    Tham gia ngày
    Oct 2015
    Bài gửi
    1

    Level: 8 [?]
    Experience: 578
    Next Level: 674

    Thanks
    0
    Thanked 0 Times in 0 Posts
    Level: 1 [♥ Mr.Km ♥]
    Life: 0 / 0
    Magic: 0 / 0
    Experience: 0%

    Mặc định Re: Chuyển đổi độ phút giây sang thập phân và ngược lại

    sai rui...chuyển về không chính xác.<br><br>
    [you] hãy cùng hotandat9999 xây dựng DiaChatVietNam.Net nhé
    -Tất cả các file đều có pass giải nén: diachatvietnam.net
    -Hãy Cùng Nhau Chia Sẻ Tài Liệu Mình Có Nào

  4. #4
    Dân Địa Chất
    Tham gia ngày
    Apr 2016
    Bài gửi
    1

    Level: 7 [?]
    Experience: 407
    Next Level: 443

    Thanks
    0
    Thanked 0 Times in 0 Posts
    Level: 1 [♥ Mr.Km ♥]
    Life: 0 / 0
    Magic: 0 / 0
    Experience: 0%

    Mặc định Re: Chuyển đổi độ phút giây sang thập phân và ngược lại

    uầy mấy cái này chưa động bao giờ
    Chuyên phân phối linh kiện laptop: pin , phím, sạc, màn hình laptop - PC - macbook hàng chính hãng giá rẻ. sửa chữa laptop lấy ngay uy tín chất lượng.
    SDT : 01688449958 - 0436275678
    Website :http://duylinhlaptop.vn

  5. #5
    Dân Địa Chất
    Tham gia ngày
    Jun 2016
    Bài gửi
    1

    Level: 7 [?]
    Experience: 360
    Next Level: 443

    Thanks
    0
    Thanked 0 Times in 0 Posts
    Level: 1 [♥ Mr.Km ♥]
    Life: 0 / 0
    Magic: 0 / 0
    Experience: 0%

    Mặc định Re: Chuyển đổi độ phút giây sang thập phân và ngược lại

    Mình dùng 2007 không biết có được không nhỉ ?<br><br>
    [you] hãy cùng bangcap xây dựng DiaChatVietNam.Net nhé
    -Tất cả các file đều có pass giải nén: diachatvietnam.net
    -Hãy Cùng Nhau Chia Sẻ Tài Liệu Mình Có Nào

  6. #6
    Dân Địa Chất
    Tham gia ngày
    Oct 2016
    Bài gửi
    1

    Level: 6 [?]
    Experience: 213
    Next Level: 282

    Thanks
    0
    Thanked 0 Times in 0 Posts
    Level: 1 [♥ Mr.Km ♥]
    Life: 0 / 0
    Magic: 0 / 0
    Experience: 0%

    Mặc định Re: Chuyển đổi độ phút giây sang thập phân và ngược lại

    bài viết hay quá<br>cảm ơn vì đã chia sẻ&nbsp;
    [you] hãy cùng VNKedu xây dựng DiaChatVietNam.Net nhé
    -Tất cả các file đều có pass giải nén: diachatvietnam.net
    -Hãy Cùng Nhau Chia Sẻ Tài Liệu Mình Có Nào

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Đánh dấu

Quyền viết bài

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •