Factorial – The factorial of a number

' The factorial of a number'' if NUMBER is negative or >170 it raises an' "subscript out of range" errorFunction Factorial(ByVal number As Long) As Double    Static result(170) As Double        ' this routine is very fast because it    ' caches all the possible results    If result(0) = 0 Then        ' this is the first time it is executed        Dim i As Long        result(0) = 1        ' Factorial(170) is the highest factorial        ' value that can be stored in a Double        For i = 1 To 170            result(i) = result(i - 1) * i        Next    End If        ' just read the result from the cached array    Factorial = result(number)        End Function' *** UPDATE ***' Rick Rothstein (MVP-VB) sent us the following update for the Factorial ' function. It reports whole number results up to an argument value of 27 (a 29-' digit answer containing 23 significant digits) before switching to power-of-' ten notation.' The factorial of a number'' if NUMBER is negative or >170 it raises an' "subscript out of range" errorFunction Factorial(ByVal N As Integer) As Variant    Static Result(170) As Variant    Dim X As Integer    ' this routine is very fast because it    ' caches all the possible results    If Result(0) = 0 Then        ' convert to Decimal data type        Result(0) = CDec(1)        ' Factorial(170) is the highest factorial        ' value that can be stored in a Double        For X = 1 To 170            ' for X<28, calculate using Decimal data            ' type; use Double data type afterwards            If X = 28 Then                Result(28) = 28 * CDbl(Result(27))            Else                Result(X) = X * Result(X - 1)            End If        Next    End If    ' just read the result from the cached array    Factorial = Result(N)End Function

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

The Latest

iOS app development

The Future of iOS App Development: Trends to Watch

When it launched in 2008, the Apple App Store only had 500 apps available. By the first quarter of 2022, the store had about 2.18 million iOS-exclusive apps. Average monthly app releases for the platform reached 34,000 in the first half of 2022, indicating rapid growth in iOS app development.

microsoft careers

Top Careers at Microsoft

Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job

your company's audio

4 Areas of Your Company Where Your Audio Really Matters

Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a