Newsgroup: it.comp.lang.visual-basic
Titolo: In mezzo ad un mare di ...

Mi sono giusto accorto adesso che convertendo
le lire in euro, dove la variabile contenente
le lire è un double, in euro, non viene quello
che deve venire.
Per farla breve dopo un bel pò di test, sono arrivato
alla conclusione che importi sotto le 150 lire bisogna
convertirli usando il variant (convertendolo a sua
volta in decimal) e ... non ho trovato ancora la
strada corretta da euro a lire ... anche perchè
come dico nel subject sto in mezzo ad un mare di
.... capito no?
Qualche codice di supporto che posso guardare ...?
Saluti
Andrea

 che deve venire.
Se ne è parlato tanto, ma non ero direttamente interessato.
Gugla un po' qui, ci dovrebbero essere delle funzioni:
http://groups.google.com/groups?num=100&as_drrb=b&q=euro+lire+conversione+group%3Ait.comp.lang.visual-basic&as_miny=2002&as_minm=1&a
s_mind=1&as_maxy=2002&as_maxm=7&as_maxd=14
Altrimenti ho scovato queste:
http://www.visual-basic.it/uploads/articoli/tecnici/Eurolire.htm
e
http://www.visual-basic.it/uploads/articoli/tecnici/EuroConvert.htm
Fin dalla Service Release 2 di Microsoft Office 97, è disponibile una libreria
per le conversioni da e verso l'Euro. Scopo di questo articolo è illustrarne
l'uso nelle varie applicazioni di Office ed in Visual Basic.
Bye, G.

 per le conversioni da e verso l'Euro. Scopo di questo articolo č


Comunque no ... non ci stanno santi.
Prova anche tu-
Istanzia quante cacchio di variabili ti pare, con qualsiasi
tipo e prova a fargli fare 2/ 1936.27.
Non esistono madonne ... il risultato corretto non te lo
da. Mo, ho me s'è fuso il processore, oppure è quello
che ho tanato io prima.
Ciao Andrea

 il risultato corretto non te lo da.
Aspč... che risultato ti aspetti-vorresti ottenere ?
E invece cosa ottieni ?
E come fai ?
Un Paperino metodico.

Taglia la testa al toro, usa la seguente funzione:
Format(PrezzoInLire / 1936.27, "#.#0")
esempio:
MsgBox Format(10000 / 1936.27, "#.#0")
viene 5,16 ... in caso contrario controlla le impostazioni internazionali
nel pannello di controllo e setta il punto "." come separatore delle
migliaia e la virgola "," come separatore decimale.
Ciao, malmsteen.

 ha scritto nel messaggio
news:agt2rg$odtn4$1...@ID-61006.news.dfncis.de...

Insisto anche io puoi fare un esempio di
cosa ti aspetti da 2/1936,27 e cosa
invece ti vien fuori?
                            danilo

Se io ho una variabile double e faccio
2 / 1936.27 ottengo 1,032913 e spicci
invece il risultato corretto dovrebbe essere
0,001032913 e spicci
Ho visto che succedde per importi inferiori
a 150 ....
in questo caso bisognerebbe lavorare con
i decimal.
Ciao Andrea

E' tutto un altro problema quello che sto
dicendo io.
Ciao Andrea

 ha scritto nel messaggio
news:agtupo$o6p3j$1...@ID-61006.news.dfncis.de...

yes
provato ora e funziona
Dim ciccio As Double
ciccio = 2 / 1936.27
MsgBox CDec(ciccio)

 0,001032913 e spicci
infatti ottieni 1,03291379817897E-03 uguale a 0,00103291379817897 che è
esattamente quello che deve venire
beppe

 dicendo io.
E' tutto un altro problema quello che NON stai dicendo tu.
Ciao Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt

 wrote in message
news:agtupo$o6p3j$1...@ID-61006.news.dfncis.de...

Ciccio... hai fatto caso che il risultato č
in virgola mobile ?... E che l'esponente č -3 ?...
Se hai di questi problemi, prova a scrivere
Debug.Print Format (ImpLire / 1936.27, "0.00")
--
Er Roscio.

NO COMMENT


Le montagne della follia!

 NO COMMENT
Non capisco.
In base alle poche informazioni che hai dato ti sono state gia' date
delle risposte e poste alcune domande ulteriori che hai bellamente
ignorato.
Il mio "mini" flame puntava giustappunto a sottolineare questo fatto.
Cio' detto,
tanti auguri per la tua conversione Lire->Euro->Lire.
Lokar.E-03


 tipo e prova a fargli fare 2/ 1936.27.
e che cifra sarebbe 2 / 1936.27?
comunque, la calcolatrice di Windows mi da':
0,0010329137981789729738104706471721
Delphi:
0,00103291379817897
VB:
0,00103291379817897
la mia Casio scientifica:
0,00103291379818
Beh?
-- 
 < 
http://www.reactos.com/
 >  Open source clone of Windows NT. Current
     Don't stand, REACT!      version 0.0.19. C, C++ and ASM developers
                              and beta testers are welcome!

 da.
Come no?
    Dim d As Double
    d = 2 / 1936.27
    Debug.Print d   '  1,03291379817897E-03
    Debug.Print d * 1936.27 ' 2, quindi è corretto! :)
    ' Forse intendevi
    d = 2 / 1936.27
    Debug.Print Round(d, 5)   ' 0,00103, ma occhio ai comportamenti di
Round!
    ' forse ti conviene farti una round personale.
Ciao