Funzione exel

[Marco]

Qualcuno mi sa dire perche' questa funzione non funziona??? :)
Scusate il gioco di parole...

Function Raggio(tipo As String, a, b, c, d As Double) As Double
Select Case tipo
Case tipo = "Vol"
Raggio = a * (9 / qpi) ^ f13 * b ^ -f13 * c ^ f13 * (1 / d)
Case tipo = "Hill"
Raggio = a * ((b / (3 * c)) ^ f13)
Case tipo = "Equatoriale"
Raggio = a / (1 - b) ^ f13
Case tipo = "Polare"
Raggio = a * (1 - b)
Case tipo = "Medio Semiassi"
Raggio = (2 * a + b) / 3
Case tipo = "Curvatura Polare"
Raggio = "a^2/b"
Case tipo = "Stessa Superficie"
Raggio = a * (1 - 2 / 3 * b ^ 2 + 26 / 45 * b ^ 4 - 100
/ 189 * b ^ 6 + 7034 / 14175 * b ^ 8)
Case tipo = "Terzo Asse"
Raggio = a ^ 3 / (b * c)
End Select
End Function

per esempio, la richiamo da excel con =Raggio("Hill",10,20,30) ma mi
risulta sempre 0 (zero)
e di conseguenza, le altre funzioni che richiamano a/da questa,
risultano sempre 0 (zero)

Attendo una vostra risposta... Grazie...

[Maurizio Borrelli]

"Marco" wrote in message
news:46a1de77$0$17944$4faf...@reader1.news.tin.it:

Ciao Marco.

Scrivi piuttosto:

Select Case Tipo
Case "Vol"
' ...
Case "Hill"
' ...
ecc.

L'espressione 'Tipo = "Hill"' ha come risultato un valore Booleano
(True|False).

Io pero' scriverei:

Select Case UCase(Tipo)
Case "VOL"
' ...
Case "HILL"
' ...
ecc.

Gia' che ci siamo, fa' anche questa verifica:

Option Explicit

Function Raggio_test()
Raggio "Hill", 10, 20, 30, 0
End Function

Function Raggio(tipo As String, a, b, c, d As Double) As Double

Debug.Print tipo, TypeName(tipo)
Debug.Print a, TypeName(a)
Debug.Print b, TypeName(b)
Debug.Print c, TypeName(c)
Debug.Print d, TypeName(d)
End Function

OUTPUT:
Hill String
10 Integer
20 Integer
30 Integer
0 Double

--
(Facci sapere se e eventualmente come hai risolto. Grazie.)

Ciao :o) Microsoft MVP (Excel)
Maurizio <http://mvp.support.microsoft.com/profile/Maurizio.Borrelli>
-------- Spazio personale di Maurizio Borrelli
?SPQR(C) <http://spdmb.spaces.live.com>
 X       RIO - Risorse in italiano per gli utenti di office
-------- <http://www.riolab.org>

[Marco]

funziona!!!
anche se sto utilizzando OpenOffice...
grazie ancora di tutto!!
avro' ancora domande da porvi... Posso contare sul vostro aiuto??

[cucchiaino]

Marco scrive:

> Maurizio Borrelli wrote:
> > -- (Facci sapere se e eventualmente come hai risolto. Grazie.)

> funziona!!!

> grazie ancora di tutto!!
> avro' ancora domande da porvi... Posso contare sul vostro aiuto??

Anche se trattasi di alto profilo professionale mi sembra esagerato
che tu dia del VOI a Maurizio :-)

()---cucchiaino

[Marco]

Parlavo in plurale maestatis... il VOI era inteso a tutti VOI...

[Maurizio Borrelli]

"cucchiaino" wrote in message
news:ea08KP6y...@TK2MSFTNGP03.phx.gbl:

> Marco scrive:
> > Maurizio Borrelli wrote:

[...]

> > avro' ancora domande da porvi... Posso contare sul vostro aiuto??
> Anche se trattasi di alto profilo professionale mi sembra esagerato
> che tu dia del VOI a Maurizio :-)

Ciao ()---cucchiaino. Ciao Marco.

Non e' tanto il "voi" che mi disturba quanto il fatto che Marco non
abbia scritto "por*V*i", "*V*ostro". ;-)

--
Ciao :o)
Maurizio
--------
?SPQR(C)
 X
--------

[eliano]

"Maurizio Borrelli" ha scritto:

> "cucchiaino" wrote in message
> news:ea08KP6y...@TK2MSFTNGP03.phx.gbl:
> > Marco scrive:
> > > Maurizio Borrelli wrote:
> [...]
> > > avro' ancora domande da porvi... Posso contare sul vostro aiuto??
> > Anche se trattasi di alto profilo professionale mi sembra esagerato
> > che tu dia del VOI a Maurizio :-)
>
> Ciao ()---cucchiaino. Ciao Marco.
>
> Non e' tanto il "voi" che mi disturba quanto il fatto che Marco non
> abbia scritto "por*V*i", "*V*ostro". ;-)
>

Perfetto, non fa una grinza!:-))