'**************************************
    ' Name: Calculating factorials
    ' Description:Calculates the factorial n
    '     umber
    ' By: Daniel Destro do Carmo
    '
    ' Inputs:Source number to be calculated
    '
    ' Returns:The factorial value of the num
    '     ber
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/vb/scripts/Sho
    '     wCode.asp?txtCodeId=7762&lngWId;=4    'for details.    '**************************************
    
    function Factorial( num )
    Dim i, result
    result = 1
    If( num > 0 ) Then
    For i = num To 1 Step -1
    result = result * i
    Next
    ElseIf( num = 0 ) Then
    result = 0
    Else
    For i = num To -1 Step +1
    result = result * i
    Next
    End if
    Factorial = result
    End function
    '# if you want to use recursive function
    '     , try the code bellow:
    function Factorial( number )
    if number > 1 Then
    Factorial = number * Factorial( number - 1 )
    else
    Factorial = 1
    End if
    End function