vb怎么给这种时间做加法,比如:00:13:13,496给加上00:13:20,287?DateAdd好像没法加毫秒的吧?

[wnujy611861]

最近学英语,在有土鳖上下了好多字幕，它那个字幕是分为n段的，我想把这n段字幕合并成一个，第二个的时间轴直接加上第一个的末尾的时间.找了下现成的软件都只能合并2个的,麻烦死了.

比如下面这个,我要所有的时间都加上00:13:20,287 要怎么弄呢?也就是从个例上说比如:00:13:13,496给加上00:13:20,287要怎么算法呢?DateAdd好像没法加毫秒的吧?多谢!! 话说告诉大家一个小秘密,有土鳖超强,你传视频上去它会自动给你语音识别给配上字幕,连时间轴都帮你做好了,准确率那是相当的高...有看美剧没字幕的大家往上传.....

197
00:13:12,496 --> 00:13:13,496
It' s really very simple.

198
00:13:14,080 --> 00:13:15,080
Is there a problem? 

199
00:13:15,879 --> 00:13:16,879
Aren' t you happy here? 

200
00:13:19,287 --> 00:13:20,287
Yes. But I would like to know what plans you have for me. 

[of123]

Option Explicit

Private Sub Command1_Click()

Debug.Print TimeAdd("00:13:13,496", "00:13:20,287")

End Sub

Public Function TimeAdd(ByVal strTime1 As String, ByVal strTime2 As String) As String
Dim tmp() As String
Dim strHMS1 As String, strHMS2 As String
Dim intMS1 As Integer, intMS2 As Integer
Dim datResult As Date

On Error GoTo exitfunction
tmp = Split(strTime1, ",")
strHMS1 = tmp(0)
If UBound(tmp) = 1 Then
    intMS1 = CInt(tmp(1))
End If

tmp = Split(strTime2, ",")
strHMS2 = tmp(0)
If UBound(tmp) = 1 Then
    intMS2 = CInt(tmp(1))
End If

datResult = CDate(strHMS1) + CDate(strHMS2)
intMS1 = intMS1 + intMS2
If (intMS1 >= 1000) Then
    datResult = datResult + CDate("00:00:01")
    intMS1 = intMS1 - 1000
End If

exitfunction:

TimeAdd = Format(datResult, "HH:nn:ss") & "," & CStr(intMS1)

End Function

[wnujy611861]

引用 2 楼 of123 的回复:

Visual Basic code?123456789101112131415161718192021222324252627282930313233343536373839Option Explicit Private Sub Command1_Click() Debug.Print TimeAdd("00:13:13,496", "00:13:20,287") End……

多谢of大侠!!大侠是vb版大神,膜拜+感谢!!

[wnujy611861]

引用 2 楼 of123 的回复:

Visual Basic code?123456789101112131415161718192021222324252627282930313233343536373839Option Explicit Private Sub Command1_Click() Debug.Print TimeAdd("00:13:13,496", "00:13:20,287") End……

又测试了下,如果是60分或60秒的话就会goto exitfunction是吗? 我比如故意测试下面这个它就什么都不计算了,不会进位(60秒要进位为1分,60分进位为1小时----毫秒是已经会进位的,1000毫秒它会进位到秒去).谢谢!: Debug.Print TimeAdd("00:13:13,496", "00:60:60,1000")

[神马被哪个妞占用了呢]

既然没有，那么取出毫秒，单独相加；到秒的用现成的函数，然后超过1000毫秒进位1秒……