Sub versionExcel2()
Dim v, b, x
    b = Application.OperatingSystem
    x = InStr(1, b, "(")
    v = v + Mid(b, x, InStr(1, b, ")") - x + 1)
   Debug.Print Application.Version & "." & Application.Build&; v
End Sub

   OSVERSIONINFOW os;
   os.dwOSVersionInfoSize = sizeof(os);
   GetVersionEx(&os);
   std::wstring ver = std::to_wstring(os.dwMajorVersion) + L"." + std::to_wstring(os.dwMinorVersion);

   SYSTEM_INFO lpSystemInfo;
   GetNativeSystemInfo(&lpSystemInfo);//x64=PROCESSOR_ARCHITECTURE_AMD64
 std::wstring(lpSystemInfo.wProcessorArchitecture == PROCESSOR_ARCHITECTURE_AMD64 ? L" (64-bit)" : L" (32-bit)")

Option Explicit

Sub test()
  Dim i As Long
  For i = 1 To 4
    Debug.Print GetVersion(i)
  Next
  Debug.Print "Application.Version= ", Application.Version
End Sub
 
Function GetVersion(i As Long)
  With ThisWorkbook.VBProject.References
    GetVersion = .Item(i).Name & ": " _
      & CreateObject("Scripting.FileSystemObject").GetFileVersion(.Item(i).FullPath)
  End With
End Function

Sub versionExcel()
Dim v, b, x
    Calculate
    v = Application.CalculationVersion
    v = Left(v, Len(v) - 4) & "." & Right(v, 4)
    b = Application.OperatingSystem
    x = InStr(1, b, "(")
    v = v + Mid(b, x, InStr(1, b, ")") - x + 1)
    MsgBox (v)
End Sub

Option Explicit
Dim bCOMvba  As New BedvitCOM.VBA 'раннее связывание

Function SUMIFS2(rngIn As Range, columnSum As Long, column1 As Long, filtr1 As Variant, Optional column2 As Long, Optional filtr2 As Variant, Optional column3 As Long, Optional filtr3 As Variant, Optional column4 As Long, Optional filtr4 As Variant, Optional column5 As Long, Optional filtr5 As Variant, Optional column6 As Long, Optional filtr6 As Variant, Optional column7 As Long, Optional filtr7 As Variant) As Double
    Dim p, arrRes, arrIn, x As Long, c As Long, res As Double ' i As Long, x As Long,
    
    If column1 > 0 Then c = c + 1: If column2 > 0 Then c = c + 1: If column3 > 0 Then c = c + 1: If column4 > 0 Then c = c + 1: If column5 > 0 Then c = c + 1: If column6 > 0 Then c = c + 1: If column7 > 0 Then c = c + 1
    ReDim p(c - 1, 5)
    If column1 > 0 Then p(x, 0) = 1: p(x, 1) = 0: p(x, 2) = column1: p(x, 3) = 2: p(x, 4) = filtr1: p(x, 5) = 0: x = x + 1
    If column2 > 0 Then p(x, 0) = 1: p(x, 1) = 0: p(x, 2) = column2: p(x, 3) = 2: p(x, 4) = filtr2: p(x, 5) = 0: x = x + 1
    If column3 > 0 Then p(x, 0) = 1: p(x, 1) = 0: p(x, 2) = column3: p(x, 3) = 2: p(x, 4) = filtr3: p(x, 5) = 0: x = x + 1
    If column4 > 0 Then p(x, 0) = 1: p(x, 1) = 0: p(x, 2) = column4: p(x, 3) = 2: p(x, 4) = filtr4: p(x, 5) = 0: x = x + 1
    If column5 > 0 Then p(x, 0) = 1: p(x, 1) = 0: p(x, 2) = column5: p(x, 3) = 2: p(x, 4) = filtr5: p(x, 5) = 0: x = x + 1
    If column6 > 0 Then p(x, 0) = 1: p(x, 1) = 0: p(x, 2) = column6: p(x, 3) = 2: p(x, 4) = filtr6: p(x, 5) = 0: x = x + 1
    If column7 > 0 Then p(x, 0) = 1: p(x, 1) = 0: p(x, 2) = column7: p(x, 3) = 2: p(x, 4) = filtr7: p(x, 5) = 0: x = x + 1
    
    arrIn = rngIn
    bCOMvba.ArrayFilterV arrIn, p, 1, arrRes 'применяем фильтр
    
    For x = 1 To UBound(arrRes)
       SUMIFS2 = SUMIFS2 + arrIn(arrRes(x), columnSum)
    Next
End Function

Sub testArrayCharNumV()
 Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA")
 Dim p: p = Array("2", "нижний регистр", 1, "ВЕРХНИЙ РЕГИСТР", 1, 56)

bVBA.ArrayCharLowerV p
bVBA.ArrayCharUpperV p
bVBA.ArrayNumToCharV p
bVBA.ArrayCharToNumV p
 
End Sub