???? ID: 213449 - ????? ???????: 20 ??????? 2011 - ??????: 3.0

???/????/????? ??? ??? ?????? ???? ?? ??? ?? Excel 2000 ??? ????? ??? ?? ???? ????

???? ?????? ???????????? ?????? ???????? KB ?? ???????? ????? ?? ??? ???? ????? ????
?? ???????? ?? ?????? ??? ?? ?? ???? ???? ???? ??.
?????? ??????This article applies to a different operating system than the one you are using. Article content that may not be relevant to you is disabled.
?? ???? ?? Microsoft Excel 97 ??????? ?? ???, ?????121944  (http://support.microsoft.com/kb/121944/ ) .

???? Microsoft Excel 98 ??????? ?? ??? ?? ???? ??, ?????192367  (http://support.microsoft.com/kb/192367/ ) .

?? ????? ??

??? ?? ??????? ???? | ??? ?? ??????? ????

??????

Angular ??? ???, ???? ?? ????? (DMS) ?? ??????? ??? ????????? expressed ???? ?? ??? 60 ???? ?? ????? ??, ?? ?? ???? 60 ????? ?? ????? ??? ??? ?????? ?????? ?? ??? ????? ???? ?? ??? ?? ??? ?? ?? ??? ????? ??? ??? angular ??? ?? ?????? ???? ?? ??? ?? ?????

?? ???? ??? ?? ????? ????? ?????? ??? ??? ???????? ????? ??????, DMS ??? ?????? ?? ????? ?????? DMS ????? ??????? ??? ?? ??? ??? ??? ?????? ???? ?? ?? ??? ???????? ???? ?? ??? ??? ?????? ???? ?? ??? ????? ?? ???? ????
????? ?? ???? ????

???? ???????

Microsoft ???????????? ?????? ?? ?????? ????? ??, ???? illustration ?????? ?? ?? expressed ?? ???????, ????? ???? ?? ???, ??????? ?????? ?? ?????? ??/?? ???? ????? ???????? ?? ??? ????????? ????? ???? ????? ????? ?? ???? ????? ?? ?? ?? demonstrated ?? ??? ???????????? ???? ?? ????? ?? ???????????? ?? ???? ???? ?? ??? ????? ??? ??????? ?? ?????? ???? Microsoft ?????? ????????? ?? ????? ????????? ?? ???????????? ?? ?????? ??? ?????? ?? ???? ???, ????? ?? ?? ???????? ?? ???????? ??????????????? ?? ???? ??????? ?????????? ?? ??? ???????????? ???? ?? ??? ??????? ???? ???????
??? ?? ???????????? ????? ????? ??, ?? ?? ???? ?? ?? Microsoft ?????????? ??????? ?? Microsoft ??????? ???? ?? ?????? ????? ???? ??????? ?? ???, ????? Microsoft ??? ???? ?? ????:

Microsoft ??????? - ?????????? ????https://partner.Microsoft.com/global/30000104 (https://partner.microsoft.com/global/30000104)

Microsoft ??????? ????-HTTP://support.Microsoft.com/GP/advisoryservice (http://support.microsoft.com/gp/advisoryservice)

???? ??????? ?? ??? ?????? ??? ?? ?????? ???????? ?? ???? ??? ?? Microsoft ?? ?????? ???? ???? ?? ???? ???, ????? Microsoft ??? ???? ?? ????:HTTP://support.Microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS (http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS)
????? ?? ???? ????

????? ??? ???/????/????? ??? ?????? ????

???? ??? ????? ??? ?? ??? ??? ???????? ?? ??? ?????? ???? ?? ?? ??? ??? ???, ???? ?? ????? ??? ????????? ???? ?? ??? ????????? ????? ?????? ?? ??? ????? Microsoft Visual Basic ????????? ???

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
?? ?????? ?? ????? ?? ??? ??? ??????? ?????, ????? ?????? ??? ?? ??? ??? ?????:
  1. Excel ??????? ???? ?? ????? ??? ?????? ?? ??????? ???? ?? ??? ALT + F11 ??????
  2. ????? ???????????? ???????? ??,???????.
  3. ??????? ????? ??? ??? ?????? Convert_Degree ????? ?????? ?? ??? ????? ??? ???? ?????
  4. Excel ?? ???? ???? ?? ??? ALT+F11 ?????..
  5. ??? A1 ??? ?????10.46.
  6. ??? A2 ??? ????? ????? ???? ????:
    =Convert_Degree(A1)


    ????? ???? 10 ° 27 ' 36 "
????? ?? ???? ????

????? ??? ?? ???/????/????? ??? ?????? ????

?????? ????? ????????? ?? ??? ????? Microsoft Visual Basic ???? ??? ???????? ?? ???, ???? ?? ????? ??? ???? ???? ?????? Convert_Degree ?????? ???? ?? ?? ???????? ?? ?? ?? (?????? ?? ???, 10 ° 27 ' 36 ") ?? ??????? ???? ?? ?? ??? ???? ??? ????? ??? ?? ??? ??? ???????? ???? ?? ??? ??? ?????? ???? ??? ?? 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 + seconds
End Function
?? ?????? ?? ????? ?? ??? ??? ??????? ?????, ????? ?????? ??? ?? ??? ??? ?????:
  1. Excel ??????? ???? ?? Visual Basic ?????? ?? ??????? ???? ?? ??? ALT + F11 ??????
  2. ????? ???????????? ???????? ??,???????.
  3. ??????? ????? ??? ??? ?????? Convert_Decimal ????? ?????? ?? ??? ????? ??? ???? ?????
  4. Excel ?? ???? ???? ?? ??? ALT+F11 ?????..
  5. ??? A1 ??? ????? ????? ???? ????:
    = Convert_Decimal("10° 27' 36""")
    ???:: ??? ?????? ????? ???? ???? ?? ??? ?????? ?? ?? ("" ") ????? ?? ??? ???????? ?? ??? ?????? ????? ?? ??? ?????? ????? ?? ??????? ???? ?? ??? ?? ????? ?? ???? ?? ??? ???? ???? ???? ?????? ?????? ????? ???? ?? ???????? ???? ?????
  6. ????? ?? 10.46 ???? ??
????? ?? ???? ????
???? ???? ???? ??:
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
  • Microsoft Office Excel 2007
????? ?? ???? ????
??????: 
kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMthi
????? ?? ???? ????
???? ?????? ???????????? ?????? ????????
??????????: ?? ???? ?? ???? ??????? ?? ????? ?? Microsoft ????-?????? ?????????? ?????? ?????? ???? ??? ??. Microsoft ???? ??? ????-???????? ?? ????-???????? ????? ?????? ?? ???? ???????? ???? ?? ???? ????? ????? ??? ?? ??? ?????? ?? ???? ???? ???? ??? ????? ??. ???????, ????-???????? ???? ????? ???? ???? ???? ???. ?????, ????????, ?????-???? ?? ??????? ?? ???????? ?? ???? ???, ???? ?? ??? ?????? ???? ???? ??? ????? ??? ?? ???? ??. Microsoft ??????? ??? ???? ?? ?????? ?? ??????????, ????????? ?? ??? ?????? ?? ???? ????? ?? ???? ???????? ?? ??? ???? ????? ?? ??? ????????? ???? ??. Microsoft ????-?????? ?????????? ?? ????? ?????? ?? ?? ??? ??.
?????????? ?? ??????? ????????? ??????? ??:213449  (http://support.microsoft.com/kb/213449/en-us/ )
????? ?? ???? ????