Position konverter

jeg kan ikke hjælpe, men prøv at kikke her

https://www.ordnancesurvey.co.uk/business-and-government/help-and-support/navigation-technology/os-net/coordinate-spreadsheet.html

Prøv med dette eksempel!
https://www.dropbox.com/s/na35p0026x1m8bh/koordinater.xlsx?dl=0

Jeg kan ikke downloaded den

#3  -  Jeg kan ikke se nogen fejl i Linket, så jeg ved ikke lige hvad der skulle være problemet.
Du kan evt. give mig din email, så skal jeg sende den til dig. Du kan gøre det, ved at sende mig en besked, på min brugerprofil, med din email.

lars(a)famgrau.dk

Function CCD(ByVal DecimalDegree As Double) As String

        D = Int(Abs(DecimalDegree))
        M = (Abs(DecimalDegree) - D) * 60
        S = Format(((M - Int(M)) * 60), "0")
        CCD = D & "° " & Int(M) & "' " & S + Chr(34)

End Function

Hej Ebea

det virker i excel, men grunden til at jeg gerne ville have det som funktion er så skal man ikke tænke og felter i ens indtastning

#7  -  Det som du skriver, forstår jeg ikke rigtig! Det eksempel jeg sendte dig (som formel), gør jo netop, at du kun skal indtaste decimal grader, og så laver formlen det som du efterlyste, (Grader, minutter og sekunder), og ydermere fortæller den om du er på den Nordlige / Sydlige halvkugle, og om du er Øst / Vest.

Det er rigtigt den virker som formular,  men jeg vil gerne have det som funktion som jeg skrive i mit indlæg

Så brug denne i stedet! Den regner korrekt, ved Minus angivelser!

Function Convert_Degree(Decimal_Deg) As Variant
   
    Dim degrees As Variant
    Dim minutes As Variant
    Dim seconds As Variant
    Dim Neg As Boolean
       
        Neg = Decimal_Deg < 0
        Decimal_Deg = Abs(Decimal_Deg)
       
        '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.000")
        'Returns the Result of degree conversion
      '(for example, 10.46 = 10~ 27  ' 36")
        Convert_Degree = IIf(Neg, "-", "") & " " & degrees & "° " & Int(minutes) & "' " _
            & seconds + Chr(34)
   
End Function

Hvad er der i vejen med den funktion, som jeg gav???

Ikke noget jeg var bare ikke kommet til at svare, den virker som den skal takker

Velbekomme :-)

Jeg har lige et spørgsmål

Kan man få den til at skrive  57° 07' 16N så hvis minutes er under 10, så skal den skrive 0 foran tallet?

Jeg har prøver denne men den virker ikke helt

Function Convert_Degree(Decimal_Deg) As Variant
   
    Dim degrees As Variant
    Dim minutes As Variant
    Dim seconds As Variant
    Dim Neg As Boolean
       
        Neg = Decimal_Deg < 0
        Decimal_Deg = Abs(Decimal_Deg)
       
        '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 = Format(((Decimal_Deg - degrees) * 60), "00")
        'Set seconds to 60 times the number to the right of the
        'decimal for the variable Minute
        seconds = Format(((minutes - Int(minutes)) * 60), "00")
        'Returns the Result of degree conversion
      '(for example, 10.46 = 10~ 27  ' 36")
        Convert_Degree = IIf(Neg, "-", "") & " " & degrees & "° " & Int(minutes) & "' " _
            & seconds + Chr(34)
   
End Function

#14  -  Du kan bruge opsætningen, fra de formler jeg sendte dig. Der kan du se hvordan det er opsat ;-)

Sådan her så virker den også med format af tallet på position "1 og 2" og "3 og 4"

Function Convert_DegreeS(Decimal_Deg) As Variant
   
    Dim degrees As Variant
    Dim degrees_for As Variant
    Dim minutes As Variant
    Dim minutes_for As Variant
    Dim seconds As Variant
    Dim Neg As Boolean
       
        Neg = Decimal_Deg < 0
        Decimal_Deg = Abs(Decimal_Deg)
       
        'Set degree to Integer of Argument Passed
        degrees = Int(Decimal_Deg)
        degrees_for = Format(Int(Decimal_Deg), "000")
        'Set minutes to 60 times the number to the right
        'of the decimal for the variable Decimal_Deg
        minutes = (Decimal_Deg - degrees) * 60
        minutes_for = Format(((Decimal_Deg - degrees) * 60), "00")
        'Set seconds to 60 times the number to the right of the
        'decimal for the variable Minute
        seconds = Format(((minutes - Int(minutes)) * 60), "00")
        'Returns the Result of degree conversion
      '(for example, 10.46 = 10~ 27  ' 36")
        Convert_DegreeS = IIf(Neg, "", "") & " " & degrees_for & "° " & minutes_for & "' " _
            & seconds + Chr(34) & "S"
   
End Function

Hej Igen

kan man får den til at lade være med at runde tal op og ned, da det betyder en hel del med hensyn til positionen,

Hvis man regner med decimal graden 10.5757 så skal den rigtige position være
10° 34' 32"N, men den kommer med  10° 35' 32,52"N og i dette tilfælde er det ca. 0,7 mil(1296 meter) og det der meget ved siden af. nogen som har en ide til at runde minutes ned til et helt tal hver gang?

Det er fordi, at du har en fejl i din kode!
Hvis du kører koden som jeg lagde i #10, vil du se, at den beregner korrekt!