[已解决]这段VBA代码错在那里？

YANG6815475 · 发表于 2013-5-9 11:04

这段VBA代码错在那里？格式角度度分秒转为十进制的VBA：

Public Function转换成十进制(x As Double) As Double'度分秒转换成十进制
On Error Resume Next
Dim A1 As Double
Dim A2 As Single
Dim A3 As Single
Dim A4 As Double
Dim A5 As Double
Dim A6 As Double
A6 = Abs(x)
A1 = Int(A6)
A2 = (A6 - A1) * 100
A2 = Int(A2 )
A3 = (A6 - A1) * 10000 - 100 * A2
A4 = A2 + A3 / 60
A5 = A1 + A4 / 60
If x = "" Then
转换成十进制= ""
ElseIf x>=0 Then
转换成十进制= A5
Else
转换成十进制= - A5
End If
End Function

复制代码

角度十进制与六十进制互换与VBA-1.rar (7.56 KB, 下载次数: 7)

hwc2ycy · 发表于 2013-5-9 11:19

本帖最后由 hwc2ycy 于 2013-5-9 11:20 编辑

Public Function 转换成十进制(x As Double) As Double '度分秒转换成十进制
On Error Resume Next
Dim A1 As Double
Dim A2 As Single
Dim A3 As Single
Dim A4 As Double
Dim A5 As Double
Dim A6 As Double
A6 = Abs(x)
A1 = Int(A6)
A2 = (A6 - A1) * 100
A2 = Int(A2)
A3 = (A6 - A1) * 10000 - 100 * A2
A4 = A2 + A3 / 60
A5 = A1 + A4 / 60
If x = "" Then
转换成十进制 = ""
End If
转换成十进制 = A5
If x < 0 Then
转换成十进制 = 转换成十进制 * -1
End If
End Function

复制代码

YANG6815475 · 发表于 2013-5-9 20:59

hwc2ycy 发表于 2013-5-9 11:19

您的代码输入后，凡是有角度的均能正确换算成十进位的角度了，谢谢！
这里有两个问题请教：
⑴我的代码不知错在什么地方？！请说出原因，
⑵在第4个单元格没有角度，但显示为“0”度，代码仍然存在问题的，问题在哪里？

YANG6815475 · 发表于 2013-5-9 21:03

hwc2ycy 发表于 2013-5-9 11:19

存在问题

补充上面⑵问题

hwc2ycy · 发表于 2013-5-9 22:07

你F8就会找到问题了，在A6处下断点，一步一步分析吧。

hwc2ycy · 发表于 2013-5-9 22:09

其实0度可以直接过滤，不需要参与运算的。
不过返回值还会是0，为什么呢，因为你这是函数，定义的是双精度吧，默认返回值就是0，除非你有计算出结果。

YANG6815475 · 发表于 2013-5-10 10:02

hwc2ycy 发表于 2013-5-9 22:09
其实0度可以直接过滤，不需要参与运算的。
不过返回值还会是0，为什么呢，因为你这是函数，定义的是双精度 ...

谢谢您的回答，按照程序的要求，单元格空白处，角度计算不能等于0度的，在工程上是不行的。在代码中中有：
     If x = "" Then
      转换成十进制 = ""，
应该显示无值的，为什么显示为零呢？
另，我检查了代码，没有错误之处？！能否直接指出。
用公式表示上面单元格空白计算显示问题，修改如下：
  =IF(A4="","",(SIGN(A4)*(INT(ABS(A4))+INT(100*MOD(ABS(A4),1))/60+MOD(ABS(A4)*100,1)/36)))

hwc2ycy · 发表于 2013-5-10 10:03

你把函数的返回类型去掉。

hwc2ycy · 发表于 2013-5-10 10:04

代码开始先对X进行判断，如果是0，就直接返回空值。

hwc2ycy · 发表于 2013-5-10 10:08

Public Function 转换成十进制(x As Double) ' As Double '度分秒转换成十进制
On Error Resume Next
Dim A1 As Double
Dim A2 As Single
Dim A3 As Single
Dim A4 As Double
Dim A5 As Double
Dim A6 As Double
If x = 0 Then
转换成十进制 = ""
Exit Function
End If
A6 = Abs(x)
A1 = Int(A6)
A2 = (A6 - A1) * 100
A2 = Int(A2)
A3 = (A6 - A1) * 10000 - 100 * A2
A4 = A2 + A3 / 60
A5 = A1 + A4 / 60
If x > 0 Then
转换成十进制 = A5
Else
转换成十进制 = -A5
End If
End Function

复制代码

		自动登录	找回密码
密码			注册

[已解决]这段VBA代码错在那里？

评分