用单行求和 TimeSpan 数组？

Question

有没有办法将多个聚合聚合到 1 个时间跨度？

Dim times = { 
  New TimeSpan(1, 0, 0),
  New TimeSpan(1, 10, 0),
  New TimeSpan(1, 50, 0),
  New TimeSpan(0, 20, 0),
  New TimeSpan(0, 10, 0)
}

Dim sum As New TimeSpan
For Each ts In times
  sum = sum.Add(ts)
Next

'That's what I desire:
sum = times.Sum
sum = times.Aggregate

我正在寻找一些我不知道的内置功能。

更新 请阅读我对Reed Copsey 的回答的评论。

Answer 1

C#：

TimeSpan sum = times.Aggregate((t1, t2) => t1.Add(t2));

VB.NET：

Dim sum As TimeSpan = times.Aggregate(Function(t1, t2) t1.Add(t2))

Answer 2

您在那里找到了答案 - 只需使用 TimeSpan.Add。

如果您愿意，可以使用 LINQ 的 Enumerable.Aggregate 进行收集避免循环：

Dim sum as TimeSpan
sum = times.Aggregate(Function(ByVal current, ByVal ts) ts.Add(current) )

---

编辑：如果您想要扩展方法来执行此操作，您可以执行以下操作：

''
<Extension()> 
Public Function Aggregate(ByVal IEnumerable(Of TimeSpan) times) As TimeSpan
     Return times.Aggregate(Function(ByVal current, ByVal ts) ts.Add(current) )
End Function

Answer 3

当然。

Enumerable.Aggregate 只需要 < code>Func—— 接受两个 T 对象并以某种方式聚合它们以产生新的 T 的东西。所以你可以使用尤里的方法：

// The + operator is defined for TimeSpan, so you're fine just using that.
TimeSpan sum = times.Aggregate((t1, t2) => t1 + t2);

或者，你也可以做一些事情就像蒂姆·科克建议的一样，使用Enumerable.Sum 扩展方法：

TimeSpan sum = TimeSpan.FromTicks(times.Sum(t => t.Ticks));

更新：以下是 VB.NET 的等效项：

Dim sum = times.Aggregate(Function(t1, t2) t1 + t2)

Dim sum = TimeSpan.FromTicks(times.Sum(Function(t) t.Ticks))

Answer 4

您可以使用 Sum 方法添加每个 TimeSpan 中的 Ticks 值：

Dim times = { _
  New TimeSpan(1, 0, 0), _
  New TimeSpan(1, 10, 0), _
  New TimeSpan(1, 50, 0), _
  New TimeSpan(0, 20, 0), _
  New TimeSpan(0, 10, 0) _
}

Dim t As New TimeSpan(times.Sum(Function(t) t.Ticks))

Answer 5

您需要对 TimeSpan.Ticks 求和，然后使用该值创建一个新的 TimeSpan

Dim times = 
{ 
    New TimeSpan(1, 0, 0), 
    New TimeSpan(1, 10, 0), 
    New TimeSpan(1, 50, 0), 
    New TimeSpan(0, 20, 0), 
    New TimeSpan(0, 10, 0) 
}

Dim sumTicks As Long = 0
For Each ts In times
    sumTicks += ts.Ticks
Next

Dim sum As New TimeSpan(sumTicks)