Dim angAsStr As String
Dim unit As Integer
Dim angAsReal As Double
angAsStr = "45"
unit = vicDegrees
angAsReal = ThisDocument.Utility.AngleToReal(angAsStr, unit)
MsgBox "45 degrees converts to " & angAsReal & " radians.", , "AngleAsReal Example"
""ThisDocument.Utility.AngleToReal (Angle, [Unit])
""문자열 각도를 실수(배정도)로 변환합니다.
""RetVal = AngleToReal(Angle, Unit)
""
""Object
""
""Utility : 이 메써드가 적용되는 객체 또는 객체들.
""
""Angle : 문자열; 입력-전용
"" 문자열 값으로서의 각도.
""
""Unit : 입력-전용
"" 문자열을 변환할 단위.
"" vicDegrees
"" vicDegreeMinuteSeconds
"" vicGrads
"" vicRadians
""
""RetVal: 배정도
""실수로서의 각도.
*Writer : cpuid
|
|
