22/04/2009, 12:11
22/04/2009, 12:25
22/04/2009, 12:28
22/04/2009, 14:26
Kod:
Private Function Faktoriyel(i As Integer) As Long
Dim t As Integer
Dim sn As Long
Dim j As Integer
If i = 0 Or i = 1 Then
Faktoriyel = 1
Exit Function
End If
t = 1
If i < 0 Then
i = Abs(i)
If (i Mod 2) = 0 Then t = 1 Else t = -1
End If
sn = 1
For j = 1 To i
sn = sn * j
Next
Faktoriyel = sn * t
End FunctionHerşeyi devletten beklememek lazım
