Anyone have the EXCEL NORMSDIST Funtion in TSQL - USER DEFINED Function

IF EXISTS (SELECT * FROM sysobjects WHERE type = 'P' AND name = 'GET_NORMSDIST')
    BEGIN
        PRINT 'Dropping Procedure GET_NORMSDIST'
        DROP  Procedure  GET_NORMSDIST
    END
 
GO
 
PRINT 'Creating Procedure GET_NORMSDIST'
GO
CREATE Procedure GET_NORMSDIST
    @x float,
    @result float OUTPUT
AS
 
/******************************************************************************
**      File:
**      Name: GET_NORMSDIST
**      Desc:   '-- Equivalent of Excel''s NORMSDIST function
**           The relative error of the approximation has absolute value less
**              than 1.15e-120
 
**      This template can be customized:
**
**      Return values:
**
**      Called by:
**
**      Parameters:
**
**
*******************************************************************************
**      Change History
*******************************************************************************
**      Date:       Author:             Description:
**      --------        --------                -------------------------------------------
**
*******************************************************************************/
    declare @L float
    declare @K float
    declare @dCND float
    declare @pi float
 
    declare @a1 float
    declare @a2 float
    declare @a3 float
    declare @a4 float
    declare @a5 float
 
    select @L = 0.0
    select @K = 0.0
    select @dCND = 0.0
 
    select @a1 = 0.31938153
    select @a2 = -0.356563782
    select @a3 = 1.781477937
    select @a4 = -1.821255978
    select @a5 = 1.330274429
    select @pi = 3.1415926535897932384626433832795
 
    select @L = Abs(@x)
 
    if @L >= 30
    begin
        if sign(@x) = 1
            select @result = 1
        else
            select @result = 0
    end
    else
    begin
    -- perform calculation
 
        select @K = 1.0 / (1.0 + 0.2316419 * @L)
 
        select @dCND = 1.0 - 1.0 / Sqrt(2 * @pi) * Exp(-@L * @L / 2.0) *
            (@a1 * @K + @a2 * @K * @K + @a3 * POWER(@K, 3.0) + @a4 * POWER(@K, 4.0) + @a5 * POWER (@K, 5.0))
 
        if (@x < 0)
            select @result = 1.0 - @dCND
        else
            select @result = @dCND
 end
 
GO
 
GRANT EXEC ON GET_NORMSDIST TO PUBLIC
 
GO
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89: