高人求助怎么样求一个度分秒的函数值！

Question

将度分秒转化为数值的程序
如： *度*分*秒=度+(分+(秒/60))/60
就是这过程！怎么做呢？ 

Answer 1

正好有空,帮你写一个
Private Sub Command1_Click()
'注意格式是: *度*分*秒 如: 1度2分3秒,如果要改变格式,只要将双引号中的改变就可以
'Text1是个文本控件
' *度*分*秒=度+(分+(秒/60))/60i = InStr(Trim(Text1.Text), "度")
j = InStr(Trim(Text1.Text), "分")
k = InStr(Trim(Text1.Text), "秒")
du = Val(Mid(Trim(Text1.Text), 1, i - 1))
fen = Val(Mid(Trim(Text1.Text), i + 1, j - i - 1))
miao = Val(Mid(Trim(Text1.Text), j + 1, k - j - 1))total = du + (fen + (miao / 60)) / 60
MsgBox totalEnd Sub

Answer 2

不会吧,你把标签的autosize=true,你肯定是标签的宽度不够吧

Answer 3

我把autosize=true改了，但还是只是显示8位数字。郁闷哦。还有别的地方要改吗？还是我编的问题啊。
我最后要它显示的语句是：Label16.Caption = "坐标Y1=" & Str(Y1)

Answer 4

Function DMStoValue(Degree As Integer,Minute As Integer,Second As Integer) As Single
  DMStoValue = CSng(Degree + Minute / 60 + Second / 3600)
End Function传递的时候需要三个参数，分别是度分秒。这样比较好。不要先写成字符串：Msgbox "1度2分3秒=" & CStr(DMStoValue(1, 2, 3))

Answer 5

用Double替换Single类型，就能显示超过16位