Newsgroup: it.comp.appl.access
Titolo: Lira euro come gestirli

Salve a tutti.
Sto realizzando ua applicazione e mi sono posto il dubbio
di come visualizzare il doppio sistema monetario cioč:
come memorizzarlo e
come far comparire il simbolo dell'euro o quello della lira a seconda del
tipo di moneta scelta.
--------------------------------
Inviato via 
http://usenet.iol.it

 tipo di moneta scelta.
Ti dico come li ho voluto gestiti nelle mie applicazioni
ho creato doppi campi per tutti i valori numerici che contengono  valori
monetari
non assegnando a nessuno il formato valuta bensi formato numerico
Standard con decimali = 0 per i valori in L.
precisione doppia fromato #.## decimali 2 per i campi con formato in Euro
nelle maschere ho inserito tutti i controlli numerici doppi ma sovrapposti e
a seconda
dell'opzione scelta anche in sede di singola maschera vengono visualizzati
solo i controlli in Euro piuttosto che Lire
che poi  hanno anche uno sfondo differente. Chiaro che dopo l'aggiornamento
di ogni singolo controllo
viene eseguita una funzione che converte Lire in Euro o viceversa tenedo
conto delle relative regole di arrotondamento (se cerchi nei messaggi
indietro dovresti trovarne una appostia).
by
Carlo Ve

 --------------------------------
Io per ora tengo solo le Lire: nelle maschere e nei report aggiungo una
casella dove divido per 1936.27 (dove occorre) per la doppia
rappresentazione.
Mi pare che dal 1° Marzo 2002 ci saranno solo gli euro e quindi allora
convertirò le lire in euro (aggiungendo i 3 decimali prescritti) ed
eliminerò le caselle che dividono per 1936.27. L'unico accorgimento sarà
tradurre quegli importi che si tramandano (tipo crediti e debiti per calcoli
di interessi di mora, ecc.).
--
Fabio Dalla Villa
Biella (BI) 13900

 wrote in message
9903ij$ltl$1...@pegasus.tiscalinet.it...

Permettimi un'osservazione
la vedo un po' limitativo come discorso
come fai a gestire quelle situazioni a metà del guado
ad esempio una fattura arrivata in dicembre 2001 in lire e che dovra essere
pagata
a marzo in Euro ?
inoltre cosi' facendo  non avresti alcuna forma di continutità'
che fai ceri due programmi separati uno il lire ed uno in Euro?
Carlo Ve

 tipo di moneta scelta.
Ho trovato parecchie informazioni su 
http://www.abconsul.it/
Consiglio a tutti di non sottovalutare il problema Euro.
Io ho creato doppi campi per tutto:
PrezzoLire PrezzoEuro
ImportoLire ImportoEuro
IvaLire IvaEuro
etc etc
seguendo le approssimazioni consigliate nel sito abconsult:
prezzo alla 4/5a cifra
importo alla 2a cifra
imponibile=somma degli importi quindi 2a cifra
iva = 20% di imponibile approssimato alla 2a cifra
totale=imponibile+iva quindi alla 2a cifra
ATTENZIONE: il totale fattura in euro si calcola sommando
ImportoEuro+IvaEuro e NON dividendo il totale in lire per 1936,27.
Questo comporta che la stessa fattura in lire e in euro possa presentare
differenze che vanno ben oltre la solita approssimazione alla 2a cifra.
Infine consiglio l'uso intensivo della funzione EuroConvert (giusto per
evitare problemi di approssimazione e battitura del 1936.27).
Ciao
Silvio


Dove trovo EuroConvert() ?
Uso A97
Grazie. ElioP.


Credo che in A97 non ci fosse Euroconvert()
Ti invio un post di lucio.r di qualche tempo fa che dava un paio di funzioni
per le conversioni Euro->Lira e Lira->Euro.
Io queste funzioni NON le ho provate!!
E in realtà non so come considerino gli arrotondamenti.
Spero comunque ti possno servire.
Spreo di esserti stato utile.
Ciao.
Silvio
->da lucio.r (post del 18/11/2000)
Per convertire il valore euro il lire basta una moltiplicazione
Per convertire il valore  lire in euro bisogna considerare gli
arrotondamenti
'************************************************************
'Titolo:       Converte un valore EURO in lire
'              Secondo Circolare Ministeriale
'
'************************************************************
Function CLire(Euro As Currency)
CLire = Euro * 1936.27
End Function
'************************************************************
'Titolo:       Converte un valore Lire in Euro
'              Secondo Circolare Ministeriale (arrotondamenti)
'************************************************************
Function CEuro(lire As Currency)
Dim EURO1, EURO2 As Currency
EURO1 = lire / 1936.27
EURO2 = Int((EURO1 - Int(EURO1)) * 1000)
EURO2 = CLng(EURO2 / 10)
If Int(lire) < 184 Then EURO2 = EURO2 / 10
'************************************************************
'
'  Nota:  questo passo è dovuto all'arrotondamento
'  da effettuarsi secondo circolare ministeriale
'
'************************************************************
If Int(lire) < 184 Then
   CEuro = Int(EURO1) + (EURO2 / 10)
Else
   CEuro = Int(EURO1) + (EURO2 / 100)
End If
End Function