alpha = K2 / (Density15 ^ 2) dt = TempObs - 15
=B3-15 Step 4: Calculate VCF using series expansion (Excel does not have a direct liquid expansion function). Use the exact API formula: astm table 54 excel
VCF = 1 - a dt + b dt^2 - c dt^3 + d dt^4 ... alpha = K2 / (Density15 ^ 2) dt
Function ASTM_Table54_VCF(Density15 As Double, TempObs As Double, ProductType As String) As Double Dim alpha As Double, dt As Double Dim K2 As Double If ProductType = "Crude" Then K2 = 341.0957 ElseIf ProductType = "Product" Then K2 = 594.5418 Else ASTM_Table54_VCF = CVErr(xlErrNA) Exit Function End If If Density15 <= 0 Then ASTM_Table54_VCF = CVErr(xlErrValue) Exit Function End If TempObs As Double