تم استخدام وظيفية  Oil_Std_Density والتي تم برمجتها كما يلي 
 
 
Function Oil_Std_Density(Oil_Density As Double, Temperature°F As Double) As Double'Top, Operating Temperature, °F 
    Dim delta  As Double 
    'correction to meet the 60°F value 
 
    Oil_Std_Density = 1000 * (Oil_Density / 1000 * (-0.000624 * Temperature°F + 1.03843) - (0.05593 - 0.000914 * Temperature°F))                                                     '/ ((1000 / 1000 + 0.05593 - 0.000914 * Temperature°F)) * (-0.000624 * Temperature°F + 1.03843) 
 
    delta = Oil_Std_Density - 1000 * (Oil_Std_Density / 1000 + 0.05593 - 0.000914 * 60) / (-0.000624 * 60 + 1.03843) 
    Oil_Std_Density = Oil_Std_Density - delta 
End Function 
 
تحياتي