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
　
　Since2006/2/27