도/분/초 각도 하거나 Excel에서 10 진수 각도 간을 변환 하는 방법

Office 2003에 대한 지원이 종료되었습니다.

Microsoft는 2014년 4월 8일 Office 2003에 대한 지원을 종료했습니다. 이러한 변경에 따라 해당 소프트웨어 업데이트 및 보안 옵션이 영향을 받습니다. 사용자에게 미치는 영향 및 계속 보호를 받는 방법에 대해 알아보십시오.

이 문서는 Microsoft 기계 번역 소프트웨어를 이용하여 번역되었으며 Microsoft Community에 의한 Community Translation Framework(CTF) 기술 혹은 사람이 번역한 내용에 의하여 사후 편집될 수 있습니다. Microsoft는 Knowledge Base에 있는 모든 문서에 다양한 언어로 접근할 수 있도록 하기 위하여 기계 번역, 사람에 의한 번역 및 커뮤니티가 편집한 내용을 모두 제공합니다. 번역된 문서는 어휘, 구문 및/혹은 문법에 오류가 있을 수 있습니다. Microsoft는 번역 오류로 인한 부정확성, 오류 및/또는 손해와 이를 고객이 사용하는 데에 대하여 책임을 지지 않습니다.

이 문서의 영문 버전 보기:213449

요약
각도 측정은 일반적으로, 분 및 초 (DMS) 단위로 표현 됩니다. 1도 60 분 하 고 1 분은 60 초입니다. 일부 수학 계산을 단순화 하기 위해 각도 측정값을 도와 소수로 표현 하는 것이 좋습니다.

이 문서에는 샘플 사용자 지정 함수와 DMS를 10 진수 형식으로 저장 된도 값으로 변환 하는 샘플 함수가 텍스트 형식으로 저장 된 DMS 10 진수 형식으로 저장 된도 값으로 변환 하는 데 사용할 수 있습니다.
추가 정보
Microsoft는 모든 보증를 보증 하며, 특정 목적에의 적합성의 묵시적된 보증에 국한 되지 않음. 이 문서는 만들고 프로시저를 디버깅할 데 사용 되는 도구 및 여기서 설명 하는 프로그래밍 언어에 익숙한 가정 합니다. Microsoft 기술 지원 엔지니어가 특정 프로시저의 기능을 설명할 수 있지만 추가 기능을 제공 하거나 특정 요구 사항에 맞도록 프로시저를 구성 하는 이러한 예제를 수정 하지 않습니다.
프로그래밍 경험이 제한 된, Microsoft 공인 협력 업체나 Microsoft 자문 서비스에 문의 하는 것이 좋습니다. 자세한 내용은 다음 Microsoft 웹 사이트를 방문.

Microsoft 인증 파트너- https://partner.microsoft.com/global/30000104

Microsoft 자문 서비스- http://support.microsoft.com/gp/advisoryservice

Microsoft에 연락 하는 방법에 대 한 사용 가능한 지원 옵션에 대 한 자세한 내용은 다음 Microsoft 웹 사이트를 방문 하십시오.http://support.microsoft.com/default.aspx?scid=fh; EN-US; 기술 지원 서비스 안내

10 진수도를 / 분/초 변환

사용자 정의 함수는 다음과 같은 Microsoft Visual Basic for Applications 각도 10 진수 값으로 형식이 지정 하 고 변환에, 분 및 초로 표시 되는 텍스트 값을 허용 합니다.

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 WithEnd Function				
이 기능을 사용 하려면 다음 예제와 같이 변환 수식을 만듭니다.
  1. Excel을 시작 하 고 Visual Basiceditor를 시작 하려면 ALT + F11 키를 누릅니다.
  2. 삽입 메뉴에서 모듈을 클릭 합니다.
  3. 샘플 코드를 모듈 시트에 위에서 설명한 Convert_Degree customfunction를 입력 합니다.
  4. Excel로 돌아가려면 ALT + F11 키를 누릅니다.
  5. A1 셀에 입력 10.46.
  6. A2 셀에 다음 수식을 입력 합니다.
    =Convert_Degree(A1)


    수식 반환 10 ° 27'36 "

10 진수도를 / 분/초 변환

사용자 정의 함수는 다음과 같은 Microsoft Visual Basic for Applications, 분 및 초 Convert_Degree 함수가 반환 하는 것과 동일한 서식으로 (예를 들어, 10 ° 27' 36") 텍스트 문자열을 허용 하 고 10 진수 값으로 형식이 지정 된 각도 변환. Convert_Degree 사용자 지정 함수의 정확히 반대입니다.

경고:이 사용자 지정 함수는 Degree_Deg 인수가 다음 형식이 아니거나 실패
<degrees>° <minutes>' <seconds>"</seconds></minutes></degrees>
경우에 초 값은 0입니다.
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 + secondsEnd Function				
이 기능을 사용 하려면 다음 예제와 같이 변환 수식을 만듭니다.
  1. Excel을 시작 하 고 Visual BasicEditor를 시작 하려면 ALT + F11 키를 누릅니다.
  2. 삽입 메뉴에서 모듈을 클릭 합니다.
  3. 샘플 코드를 모듈 시트에 위에서 설명한 Convert_Decimal customfunction를 입력 합니다.
  4. Excel로 돌아가려면 ALT + F11 키를 누릅니다.
  5. A1 셀에 다음 수식을 입력 합니다.
    = Convert_Decimal("10° 27' 36""")
    참고: 세 개의 따옴표를 입력 해야 하는 ("" ")에 있는 endof 인용이 균형을이 수식의 인수 표시는 secondsand에 대 한 텍스트 문자열에 따옴표. 셀 참조는 aquotation 표시를 요구 하지 않습니다.
  6. 수식은 10.46을 반환합니다.

경고: 이 문서는 자동으로 번역되었습니다.

속성

문서 ID: 213449 - 마지막 검토: 09/23/2015 06:26:00 - 수정: 5.0

Microsoft Office Excel 2003, Microsoft Excel 2010, Microsoft Office Excel 2007

  • kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMtko
피드백