Ashrae Duct Fitting - Database Excel Link

Function GetLossCoefficient(FitID As Long, P1 As Double, P2 As Double, P3 As Double) As Double Dim Co As Double Dim result As Long result = GetFittingData(FitID, P1, P2, P3, Co) If result = 0 Then GetLossCoefficient = Co Else GetLossCoefficient = -9999 ' Error flag End If End Function

: The full Duct Fitting Database is available for purchase and download through the ASHRAE Bookstore. It features pictorial outlines and calculates loss coefficients and pressure drops for supply, exhaust, and common duct functions. ashrae duct fitting database excel link

=XLOOKUP(1, (Table1[Fitting_Type]="Elbow")*(Table1[R/D]>=0.75), Table1[Co], "Not Found", 0, 1) Function GetLossCoefficient(FitID As Long, P1 As Double, P2