VB编程数组！！！高手请教啊！

显示全部楼层 · 2010-9-29 10:17:32

如：00:14:15:09如何转化成秒！！！
关键在怎么把00:14:15:09转化成数组！
额~~·楼下的写了好多啊！！！！！好繁琐啊！！！
我琢磨了下！已经完成！
代码如下
rivate Sub Command1_Click()
A = Split(Text1.Text, ":")
C = A(0) * 216000 + A(1) * 3600 + A(2) * 60 + A(3)
Text4.Text = C
End Sub

千问 · 2010-9-29 10:17:32

给你个函数吧.把下面的代码复制进VB，新建一个工程，窗体上添加一个按钮，执行试试看。Option ExplicitOption Base 0Dim strTmp() As StringPrivate Sub Command1_Click()
ReDim strTmp(3)
Dim s$, i%, s2$: s2 = ""
s = CStr(Time)
SplitStr s, strTmp
For i = LBound(strTmp) To UBound(strTmp)
s2 = s2 + strTmp(i) + Chr(13)
Next i