在VB中,在text1里随便输入一时间,比如4:30(4小时30分),如何在text2中显示分钟数,即270分钟?谢谢!

2024-12-20 00:23:54
推荐回答(3个)
回答1:

楼主你好,在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

回答2:

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

回答3:

我给你C# 的例子你转换下

string timestr=null;
timestr=TextBox1.Text;
string[] time_str=timestr.split(';');
int min=(int)time_str[0]*60+(int)time_str[1];

// 这样就可以根据输入计算机出分钟数