Triangular distribution function in VBA. Usage: =TRIDIST(RAND(), 1, 10, 5)

gistfile1.vb

Function TRIDIST(random As Double, min As Double, max As Double, mode As Double)
    If mode < min Or max < mode Then
        TRIDIST = CVErr(xlErrValue)
    Else
        If random <= (mode - min) / (max - min) Then
            TRIDIST = min + Sqr((max - min) * (mode - min) * random)
        Else
            TRIDIST = max - Sqr((max - min) * (max - mode) * (1 - random))
        End If
    End If
End Function

Very nice. Thank you

Thanks!

Great, thanks!