VBScript eConstant

'********************************************************************

'*

'* Function eConstant

'*

'*   Author: NetworkAdminKB.com

'*  Created: 2005-01-20

'* Modified: 2005-01-20

'*

'* Purpose: Returns the mathmatical e Constant up to 8 digits.

'*

'********************************************************************

Function eConstant

  'Version 1.0 2005-01-20

  Dim x

  x = 100000010

  eConstant = Round((1 + (1/x))^x, 9)

  eConstant = CDbl(Left(e, 10))

End Function 'eConstant

Article ID: 389, Created On: 9/25/2011, Modified: 9/25/2011