关于度分秒怎么转换成为度

横刀

比如10度30分48秒。怎么转换为10.58度（最简单的办法）反之怎么处理。

怎么让表格中的数字怎么显示为10°30’48”

横刀

没人能告诉我吗？？

办公之星

MicroSoft FAQ Converting Decimal Degrees to Degrees/Minutes/Seconds 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 Example: A1 =10.6 B1 = Convert_Degree(A1) Converting Degrees/Minutes/Seconds to Decimal Degrees Function 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. degrees = Val(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 = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 2, _ InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, _ "°") - 2)) / 60 ' Set seconds to the number to the right of "'" that is ' converted to a value and then divided by 3600. seconds = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + _ 2, Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 2)) _ / 3600 Convert_Decimal = degrees + minutes + seconds End Function Example: =Convert_Decimal("10° 27' 36""")

jame

办公大哥，太复杂了。

晕！

[em06][em06]]

是不时从哪里拷贝过来的，连注释都是英文的。最好是中文的注释方便初学者看懂。

[此贴子已经被作者于2004-10-14 11:13:31编辑过]

办公之星

这是shangyu斑竹的做法，请参考：

=LEFT(A1,FIND("°",A1)-1)+(MID(A1,FIND("°",A1)+1,FIND("'",A1)-FIND("°",A1)-1)+MID(A1,FIND("'",A1)+1,LEN(A1)-FIND("'",A1)-1)/60)/60

gvntw

度、分、秒与时间一样是60进制的，用时间格式输入。

另：TO办公之星：什么时候把学会这么复杂的自定义函数？

[此贴子已经被作者于2004-10-14 11:30:33编辑过]

zz5151353

又向 shangyu版主, Fieldsun 版主,gvntw 版主,学了一招,谢谢!

办公之星

以下是引用gvntw在2004-10-14 11:29:00的发言：

度、分、秒与时间一样是60进制的，用时间格式输入。

另：TO办公之星：什么时候把学会这么复杂的自定义函数？

抄别人的，好像是爱米莉斑竹的。

英文名字，不一定记得准了。

办公之星

以下是引用fieldsun在2004-10-14 11:23:00的发言：

建议单元格输入时为时间格式:如A1输入10:30:48,自定义格式[h]°m′s″

换为度的公式=A1*24,设为常规格式

斑竹总是能够突发奇招，喜欢。

fieldsun

建议单元格输入时为时间格式:如A1输入10:30:48,自定义格式[h]°m′s″

换为度的公式=A1*24,设为常规格式