需要在vb中输入度分秒的函数，请问该怎么操作？

Question

各位大侠，我想在VB中的一个文本框控件内，输入度分秒（如1°2′3″）并在另一个文本框内输出对应的弧度值，这样的函数怎样编写啊？

Answer 1

Private Sub Command1_Click()Dim ADim BDim CConst pi = 3.14159265358979'设置text1的text属性为"" '在text1输入的格式为--°--'--''，如果数值为空，请输入任意个0

1	If Text1.Text = "" Then MsgBox "请输入度分秒，注意度用特殊符号表示，不能用句号表示，分可以用英文单引号表示，秒可以用两个英文单引号表示"A = Split(Text1.Text, "°", -1, 1)

1	B = Split(A(1), "'", -1, 1)

1	C = Split(B(1), " '' ", -1, 1)

1	Text2.Text = Val(A(0)) * pi / 180 + Val(B(0)) * pi / 180 / 60 + Val(C(0)) * pi / 180 / 3600

1

End Sub