Ciao a tutti, chiedo un vostro aiuto, il mio problema è il seguente: devo calcolare una formula con evaluate dove comprende il fattoriale di un numero, esempio:
b = "factorial(1^(3/factorial(4)))/71*3"
a = evaluate(b)
c = errr
il valore di c deve essere 1 quando viene calcolato un fattoriale di un numero non intero
esempio 1) "factorial(1/.2)" = 5! = 120 (errr = 0)
esempio 2) "factorial(2/ 3)" = 0.6 ! (errr = 1)
come posso fare????
Problema Risolto - Grazie comunque
Option Explicit
Public Errr As Byte
Public Function Factt(a As Variant) As Double
Dim g As Long, h As Double
If Int(Evaluate(a)) And Errr = 0 Then
Errr = 0: h = 1: For g = 1 To a: h = h * g: Next g
Factt = h
Else
Errr = 1
End If
End Function
Sub Prova()
On Error Resume Next
Dim b As Variant, c As Byte
b = Factt(Factt(1.2) / 0.25)
c = Errr
End Sub
Se voi conoscete un metodo più efficace e molto più veloce!!! fatemi sapere.. grazie
Permessi di invio
Rispondi quotando