אשמח אם מישהו יודע האם אפשר להדביק את זה כסקריפט בגוגל שיטס, ואם לא, האם מישהו יכול להתאים את הקוד הזה לשיטס אם אפשר?קוד VBA מצויין להפוך עשרוני למעלות ולהיפך. מזינים 10.46 ומקבלים במקום 10° 27' 36" וכן להיפך: מזינים מעלות ומקבלים עשרוני:
זה לא אותו שפה
תעטוף אותו בעוד SUBSTITUTE
את JS אני מכיר באופן בסיסי, את VBA הרבה פחות.
הנושאים החמים
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 FunctionFunction 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.
Degree_Deg = Replace(Degree_Deg, "~", "°")
degrees = CDbl(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 = CDbl(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 1, _
InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, "°") - 1)) / 60
' Set seconds to the number to the right of "'" that is
' converted to a value and then divided by 3600.
seconds = CDbl(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + _
1, Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 1)) / 3600
Convert_Decimal = degrees + minutes + seconds
End Functionולהשתמש ב'מופרד' אני גם לא יכול, כי אין לי פסיק וכדומה, בין השמות למספרים,
מעגל ללמטה - זה המעלות
רווח יש?
מצהיר על משתנים מסוג כפול FLOAT למעלות דקות ושניות
כן
מעכשיו, תהיו הראשונים לקבל את כל העדכונים, החדשות, ההפתעות בלעדיות, והתכנים הכי חמים שלנו בפרוג!
לוח לימודים
מסלולי לימוד שאפשר להצטרף
אליהם ממש עכשיו:
