将度/分/秒角度转换为十进制角度或从十进制角度转换 |
您所在的位置：网站首页 › excel60进制 › 将度/分/秒角度转换为十进制角度或从十进制角度转换 |
|
如何在 Excel 中将度/分/秒角度转换为十进制角度或从十进制角度转换
项目03/15/2024
适用于:
Excel 2010, Microsoft Office Excel 2007, Microsoft Office Excel 2003
摘要
角度度量通常以度、分钟和秒为单位 (DMS)。 1 度等于 60 分钟，1 分钟等于 60 秒。 为了简化一些数学计算，你需要以度和小数位数表示角度量。 本文包含一个示例自定义函数，可用于将十进制格式存储的度值转换为文本格式存储的 DMS，以及一个示例函数，用于将 DMS 转换为十进制格式存储的度值。 更多信息Microsoft 提供的编程示例仅供演示，不提供明示或暗示的担保，包括但不限于对适销性和/或特定用途适用性的暗示担保。 本文假设你熟悉所演示的编程语言以及用于创建和调试过程的工具。 Microsoft 支持专业人员可以帮助解释特定过程的功能，但他们不会修改这些示例以提供新增功能或构建步骤以满足你的特定需要。 如果你的编程经验有限，你可能需要联系 Microsoft 咨询服务。 有关详细信息，请访问 Microsoft Web 网站： Microsoft 咨询服务 - https://support.microsoft.com/gp/advisoryservice 有关可用支持选项以及如何联系 Microsoft 的更多信息，请参阅https://support.microsoft.com。 将十进制度数转换为度/分/秒以下 Microsoft Visual Basic for Applications 自定义函数接受格式为十进制值的角度，并将其转换为以度、分和秒为单位显示的文本值。 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要使用此函数，请创建一个转换公式，如下例所示： 启动 Excel 并按 ALT+F11 以启动 Visual Basic 编辑器。 在“插入”菜单上，单击“模块”。 将上述 Convert_Degree 自定义函数的示例代码输入到模块表中。 按 Alt+F11 返回 Excel。 在单元格 A1 中键入 10.46。 在单元格 A2 中，键入公式：=Convert_Degree(A1) 公式返回 10°27'36" 将度/分钟/秒转换为十进制度以下 Microsoft Visual Basic for Applications 自定义函数接受度、分钟和秒的文本字符串，其格式与 Convert_Degree 函数返回的格式完全相同（例如，10°27'36”），并将其转换为十进制值格式的角度。 这与 Convert_Degree 自定义函数正好相反。 警告 如果Degree_Deg参数的格式° |
今日新闻 |
推荐新闻 |
| CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |