Results 1 to 11 of 11

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User mermaid's Avatar
    Join Date: Aug:2005
    Location:
    Posts: 850

    Excell - Radians Deg Min Sec

    () Excell .


    http://support.microsoft.com/kb/213449

    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


    , . , .

    , Excell , .





    ---------- 16:46 ---------- 16:27 ----------

    , :
    A1...

    =IF(A1<0;"-"&Convert_Degree((-1*A1));Convert_Degree(A1))
    , ...
    , ?!?

  2. #2
    XaMaB's Avatar
    Join Date: Nov:2001
    Location:
    Posts: 20,387
    Code:
    Convert_Degree(abs(A1))
    : XaMaB; . 0.42

    In God we Trust (all others must submit a X.509 certificate). , ()

  3. #3
    Registered User
    Join Date: Oct:2003
    Location:
    Posts: 4,317
    Quote Originally Posted by XaMaB View Post
    Code:
    Convert_Degree(abs(A1))
    A , -
    Code:
    =sign(a1)*Convert_Degree(abs(A1))

  4. #4
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location:
    Posts: 948
    , :
    =IF(A1<0;Convert_Degree((2*pi+A1));Conve rt_Degree(A1))
    , abs(A1)<=2*pi;
    ----------------------------------------------------------
    , .
    Last edited by finalista; 9th March 2011 at 22:43.

  5. #5
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location:
    Posts: 948
    .
    :
    -45 = (360-45) = 315;
    -π/4 = (2*π-π/4) = (7/4)*π;
    , .

  6. #6
    Registered User
    Join Date: Aug:2009
    Location:
    Posts: 265
    :
    Code:
    =IF(A1<0;"-";"")&TEXT(ABS(A1)/24;"[hh] mm' ss''")

  7. #7
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location:
    Posts: 948
    , :
    Function Convert_Degree(Decimal_Deg) As Variant
    , , ,
    , ,

  8. #8
    Registered User mermaid's Avatar
    Join Date: Aug:2005
    Location:
    Posts: 850
    Quote Originally Posted by finalista View Post
    , :
    Function Convert_Degree(Decimal_Deg) As Variant
    , , ,
    , ,
    ...

    , ,

    !
    .

    , ...
    , ?!?

  9. #9
    Registered User
    Join Date: Aug:2009
    Location:
    Posts: 265
    , *180/PI() .

  10. #10
    philosophus duratea icaci's Avatar
    Join Date: Oct:2006
    Location: Aachen
    Posts: 2,698
    Quote Originally Posted by Avis View Post
    , *180/PI() .
    - Degrees(radians)
    Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others

  11. #11
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location:
    Posts: 948
    , , .
    PI, #VALUE! .
    Code:
    Function Rads_to_Degs(Rad) As Variant
        With Application
            'Convert rdians into Decimal degrees
            Decimal_Deg = Rad * 180 / 3.14159265358979
            'PI ≈ 3.1415926535897932384626433832795
            'Set degree to Integer of Argument Passed
            Degrees = Int(Abs(Decimal_Deg))
            'Set minutes to 60 times the number to the right
            'of the decimal for the variable Decimal_Deg
            Minutes = (Abs(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")
            Dgr = 0
            If (Decimal_Deg < 0) Then Dgr = -Degrees Else Dgr = Degrees
            Rads_to_Degs = " " & Dgr & " " & Int(Minutes) & "' " _
            & Seconds + Chr(34)
        End With
    End Function
    Last edited by finalista; 10th March 2011 at 23:23.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |