PureBasic Forums - English

Code: Select all

Procedure.f ConvertGeoToDeg(Value$)
 
  Protected Result.f = 0.0
  Protected Direction$
  Protected Direction = 1
  Protected Pos
 
  ReplaceString(Value$, ",", ".", #PB_String_InPlace)
 
  If FindString(Value$, "°", 1) = 0
    ProcedureReturn ValF(Value$)
  EndIf
 
  ReplaceString(Value$, "''", #DQUOTE$ + " ", #PB_String_InPlace)
 
  Direction$ = Left(Value$, 1)
  If Direction$ > "A"
    Value$ = Mid(Value$, 2)
  Else
    Direction$ = Right(Value$, 1)
  EndIf
 
  If Direction$ = "S" Or Direction$ = "W"
    Direction = -1
  EndIf
 
  Pos = FindString(Value$, "°", 1)
  If Pos
    Result = Val(Value$)
    Value$ = Mid(Value$, Pos + 1)
    Pos = FindString(Value$, "'", 1)
    If Pos
      Result + (Val(Value$) / 60)
      Value$ = Mid(Value$, Pos + 1)
      Pos = FindString(Value$, #DQUOTE$, 1)
      If Pos
        Result + (ValF(Value$) / 3600)
      EndIf
    EndIf
  EndIf
 
  ProcedureReturn Result * Direction
 
EndProcedure


Debug ConvertGeoToDeg("16°19'28.29''")
Debug ConvertGeoToDeg("16° 19' 28.29'' S")
Debug ConvertGeoToDeg("S 16° 19' 28.29''")
Debug ConvertGeoToDeg("16.234")
Debug ConvertGeoToDeg("16,234")

Code: Select all

Procedure$ ToDegMinSec(i.d,radians.b=0)
  If radians:i=Degree(i):EndIf
  If i<0 And i>-1.0:Protected Deg$="-":EndIf
  Deg$+Str(Int(i))+"°"
  i=Abs((i-Int(i))*60)
  Deg$+Str(Int(i))+"'"
  Deg$+StrD((i-Int(i))*60)+"''"
  ProcedureReturn Deg$
EndProcedure