楼主你好,在VB窗口中加入按钮 text1 text2,代码如下:
Private Sub Command1_Click()
Dim aa As Variant
aa = Split(Text1.Text, ":")
Text2.Text = Val(aa(0)) * 60 + Val(aa(1))
End Sub
Private Sub Command1_Click()
Dim h As String '小时
Dim m As String '分钟
h = Left(Text1.Text, InStr(1, Text1.Text, ":") - 1)
m = Right(Text1.Text, Len(Text1.Text) - InStr(1, Text1.Text, "") - 2)
Text2.Text = h * 60 + m
End Sub
InStr的作用是查找冒号是在字符串的第几.然后根据这个将字符串截取成左边右边
或者使用如下语句更"智能"些
Private Sub Command2_Click()
Dim t() As String
t = Split(Text1.Text, ":", -1, vbTextCompare) '分割时间
Text2.Text = t(1) * 60 + t(2)
End Sub
我给你C# 的例子你转换下
string timestr=null;
timestr=TextBox1.Text;
string[] time_str=timestr.split(';');
int min=(int)time_str[0]*60+(int)time_str[1];
// 这样就可以根据输入计算机出分钟数