This seems to be working good enough
Code:'http://www.calculatorfreeonline.com/calculators/cylinder.php?action=solve&last=rh&given_data=rh&r=.04&h=.07&units_length=meters&v=0.78539816339745&a=3.1415926535898 Dim cColumnHeightRound As Double = Double.Parse(Me.cmbColumnHeightRound.Text) rRadius = Double.Parse(Me.txtRadius.Text) Dim mM2 As Double = 2 * Math.PI * rRadius * cColumnHeightRound mM2 = Math.Round(mM2, 0) mM2 = mM2 / 1000 mM2 = mM2 / 1000 mM2 = Math.Round(mM2, 3) Me.txtTotalM2Round.Text = mM2.ToString




Reply With Quote