Think I can shave a few strokes...
Code:
Function fac($)
$fac=Cdbl(1)
While $
$fac=$fac*$
$=$-1
Loop
EndFunction
If you also want negative factorials then you have to hit a couple of bogeys:
Code:
Function fac($)
$fac=CDbl(IIf($<0,-1,1))
$=$*IIf($,$/$,1)
While $
$fac=$fac*$
$=$-1
Loop
EndFunction
