linq - 汇总 VBA 集合中的记录

Question

我有一个由 DayTots 类对象组成的 VBA 集合(见下文)

我正在使用 For Each 遍历集合以创建一个
由汇总记录组成的新集合，基于日期

有什么方法可以用 Linq 做到这一点吗？我怀疑也许我可以更换
几行代码，更简单，更直接
使用 Linq 查询(也许使用组？)

我在互联网上找不到任何似乎可以解决这种情况的东西

提前感谢所有帮助

输入集合

tDate       TotTrav TotTrav TotParts
            Yes     No      Accepted
2/27/2017   1       0       1
2/27/2017   1       0       0
2/27/2017   1       0       0
2/27/2017   0       1       0
2/28/2017   1       0       1
2/28/2017   0       1       0 
2/28/2017   0       0       1

输出集合

DatDate     TotTrav TotTrav TotParts
            Yes     No      Accepted
2/27/2017   3       1       1
2/28/2017   1       1       2

Dim cumRecs As DayTots   
dim incoll, outcoll as Collection

outcoll = New Collection

For Each irec In incoll
    ....
    outcoll.Add(cumRecs)
Next irec

'Class DayTots

Dim DatDate              As Date
Dim TravYes              As Integer
Dim TravNo               As Integer
Dim PartsAccepted        As Integer

Public Property Get tDayDate() As Date
    tDayDate = DatDate
End Property

Public Property Let tDayDate(value As Date)
    DatDate = value
    Weekno = Int(((DatDate - DateSerial(Year(DatDate), 1, 0)) + 6) / 7)
End Property

Public Property Get TotTravYes() As Integer
    TotTravYes = TravYes
End Property

Public Property Let TotTravYes(value As Integer)
    TravYes = value
End Property

Public Property Get TotTravNo() As Integer
    TotTravNo = TravNo
End Property

Public Property Let TotTravNo(value As Integer)
    TravNo = value
End Property

Public Property Get TotPartsAccepted() As Integer
    TotPartsAccepted = PartsAccepted
End Property

Public Property Let TotPartsAccepted(value As Integer)
    PartsAccepted = value
End Property

Answer 1

您所希望的可以通过 Array 来实现和 WorksheetFunction.Sum这是一个小例子:

Option Explicit

Public Sub TestMe()

    Dim inColl  As New Collection
    Dim inArr   As Variant

    inColl.Add 1
    inColl.Add 2
    inColl.Add 3
    Debug.Print WorksheetFunction.Sum(inColl.Item(1), inColl.Item(2), inColl.Item(3))

    inArr = Array(5, 6, 7, 8)
    Debug.Print WorksheetFunction.Sum(inArr)

End Sub

即时窗口中的结果是 6和 26 .一般来说，将集合转换为数组并不难。