Public Function RectangleCalc( _ Optional ByVal vArea As Variant _ , Optional ByVal vDiagonal As Variant _ , Optional ByVal vLength As Variant _ , Optional ByVal vPerimeter As Variant _ , Optional ByVal vWidth As Variant _ ) As Variant
RectangleCalc(vArea:=20, vDiagonal:=8, vLength:="CALC") = 2.6495297708096 RectangleCalc(vArea:=20, vDiagonal:=8, vWidth:="CALC") = 7.54850925637597 RectangleCalc(vLength:=10, vWidth:=12, vPerimeter:="CALC") = 44 RectangleCalc(vLength:=12, vWidth:=10, vPerimeter:="CALC") = 44 RectangleCalc(Null, Null, 12, "CALC", 10) = 44See also:
SquareCalc Function RectangularSolidCalc FunctionSummary: Two of the arguments should contain a numeric value--the given values for those properties. Pass the word "CALC" to the argument whose value is to be calculated and returned by this function. The other arguments should be missing or Null or non-numeric. Function returns Null if it could not calculate the requested property from the values provided. Otherwise, the function returns the value of the property whose argument was passed the word "CALC".
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.