1. Home »
2. エクセル関数の技 »
3. 角度(度分秒)を10進数に変換したい

角度(度分秒)を10進数に変換したい:Excel関数の技

• 角度(度分秒)を10進数に変換する方法について書いています。

角度(度分秒)を10進数に変換したい topへ

• 角度(度分秒)が 「10° 27' 36"」 と入力されているケース
  • このように入力されている場合につてはMicrosoft社のページにVBA(ユーザー定義関数)で対処する方法が書いてあります。
    • または Excel 2000 での 10 進数の角度を度/分/秒の角度を変換する方法
      http://support.microsoft.com/kb/213449/ja
      計算の部分を書き出すと以下のように、単位の部分で区切って数値を取り出して、度+分/60+秒/3600 という計算をしています。
      
      Function Convert_Decimal(Degree_Deg As String) As Double
      Dim degrees As Double
      Dim minutes As Double
      Dim seconds As Double
      '
      degrees = Val(Left(Degree_Deg, InStr(1, Degree_Deg, "°") - 1))
      '
      minutes = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 2, _
      InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, "°") - 2)) / 60
      '
      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
• 当サイトの掲示板にて、入力を「10°27'36"」としたケースではどのように改変すればよいのか? といった質問がありました。
  「10° 27' 36"」には「°」と「'」の後ろに半角のスペースが存在しています。この半角スペースがないケースではどうなるの?・・・ということでした。
  • 区切る位置を半角スペースまで考慮してずらせばよいので、下表のようにすればよいことになります。
    
    Function Convert_Decimal2(Degree_Deg As String) As Double
    Dim degrees As Double
    Dim minutes As Double
    Dim seconds As Double
    '
    degrees = Val(Left(Degree_Deg, InStr(1, Degree_Deg, "°") - 1))
    '
    minutes = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 1, _
    InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, "°") - 1)) / 60
    '
    seconds = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + 1, _
    Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 1)) / 3600
    '
    Convert_Decimal = degrees + minutes + seconds
    End Function
• この計算をワークシート関数を使って行うことができます。
  • 度分秒を上記の Convert_Decimal2 のコードと同じように取り出して計算する例です。
  • 度は =LEFT(A1,FIND("°",A1)-1)
    分は =MID(A1,FIND("°",A1)+1,FIND("'",A1)-1-FIND("°",A1))
    秒は =MID(A1,FIND("'",A1)+1,LEN(A1)-FIND("'",A1)-1)
    で、取り出して、10進数には =C1+C2/60+C3/3600 として変換しています。

• 60進数といえば、時刻の計算と同じ・・・・ということに気付きます。
  つまり、Excelで時刻として扱えば、10進数への変換ができるということになります。
  • 上記の Convert_Decimal2の例(半角スペースのない例)で下記に示します。
    Excelで時刻は hh:mm:ss の形になっていればよいので、「°」「'」をそれぞれ「:」に置換し、「"」を取り除けばよいということになります。
  • 数式は =SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"°",":"),"'",":"),"""","")*24 となります。
    時刻は24時が1となっているので、 *24 としています。
    

10進数の角度を60進数の角度(度分秒)に変換したい topへ

• 上記の逆になりますが、ワークシート関数を使う方法です。
• 数式は =TEXT(B1/24,"[h]°m's")&"""" としました。
  h:m:s では24時より大きいものが表示できないので[h] としています。
  日本語表示なら、=TEXT(B3/24,"[h]度m分s秒") とします。
  
• 計算することもできます。以下には度分秒の計算例を示します。
  • 度は =INT(A1)
    分は =INT(MOD(A1,1)*60)
    秒は =INT((A1-INT(A1)-(INT(MOD(A1,1)*60))/60)*3600)
    としてみました。

スポンサードリンク
(追記) (追記ここまで)

PageViewCounter
Counter
Since2006/2/27