Dim ReturnValue() As Variant
ReDim ReturnValue(2)
ReturnValue(0) = Fix(Second / 3600)
ReturnValue(1) = Fix((Second - Degree * 3600) / 60)
ReturnValue(2) = Fix((Second - Degree * 3600) - Minute * 60)
SecondToDegree = ReturnValue
End Function
然后,进行操作 , 例如:
Dim RV() As Variant
RV = SecondToDegree(DegreeToSecond(45, 23, 56) + DegreeToSecond(67, 45, 12))
MsgBox "Result:"RV(0)"°"RV(1)"'"RV(2)""""
如果是在 VB.NET 中,把所有的 Variant 参数和没有带类型的参数(在 VB6 中默认为 Variant)声明为 Object 类型即可
【vb.net计算弧度 vb中角度怎么输入】vb.net计算弧度的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vb中角度怎么输入、vb.net计算弧度的信息别忘了在本站进行查找喔 。
推荐阅读
- phpcmsv9随机文章,随机文字api
- html5头部如何缓存信息,前端html缓存怎么解决
- jquery压缩图片大小,jquery设置图片大小
- 电信内网服务器,电信内网服务器地址
- go语言formac go语言for循环是拷贝值吗
- ios14怎么黑屏了,ios143突然黑屏
- 小程序搭建供应商平台,开发小程序供应商
- 什么样的电脑cpu好,电脑什么样的cpu性能最好
- 做电商如何找到用户需求,怎么获取电商客户的资源