Сложение несколько раз вместе

Question

Я пытаюсь добавить данные, извлеченные из базы данных в формате ЧЧ: ММ: СС Я пытаюсь заставить их сложить вместе, поэтому, если у нас есть 00:00: 05, затем 00:00:10, поэтому у нас есть 00: 00: 15

Я попытался использовать как TimeSpan, так и DateTime, но получаю следующую ошибку:

Ошибка выполнения Microsoft VBScript '800a01a8 '

Требуемый объект:' TimeSpan '

Местоположение скрипта, строка 157

Это код:

    While Not objRS.EOF
  
  activecalls = activecalls + objRS("talkingagents")
  callswaiting = callswaiting + objRS("callswaiting")
  averagetalkingtime = averagetalkingtime + objRS("convavgtalkduration")
  totalqueue = totalqueue + 1
  totalcalls = totalcalls + objRS("totalcalls")
  newWait = objRS("convavgwaitduration")

  
  TimeSpan t1 = TimeSpan.Parse(newWait)
  TimeString FormattedDate = t1.Add(FormattedDate)
  
  timeString = timeString.Add(t1).ToString("dd\.hh\:mm\:ss")

Answer 1

Не ясно с вашим кодом, но, вероятно, это то, что вы ищете.

t1 = CDate("00:00:05")
t2 = CDate("00:00:10")
t3 = t1 + t2
MsgBox Right("00" & Hour(t3), 2) + ":" + Right("00" & Minute(t3), 2) + ":" + Right("00" & Second(t3), 2)