Access runden vom Euro

[Net-srac]

Tach ihrs,

ich hätte gerne mal ein Problem.

Ich will DM in euro ausrechnen, und ordentlich runden. nun ist es ja so, dass man den DM-Betrag durch 1,95583 teilt und dann rundet.

Beim runden geht man dann aber nich normal vor, sondern läßt die 4. - unendlichste Stelle einfach wegfallen.

Man rundet also nur die dritte stelle bis 4 ab und ab einschl. 5 auf.

Kann mir jemand sagen, wie ich das in access machen kann? ich muß halt nur den Eurowert in einem Feld angeben. Ich hab noch Access 97, kann also auf keine vorgefertigten Sachen zugreifen, falls es die doch bei 2k schon geben sollte.

Danke für eure Hilfe.

[Naberius]

Hi Fafo,

ich hab dir ne Umrechnungsfunktion geschrieben. Einfach in das Feld in dem der Eurobetrag angezeigt werden soll =Umrechnung() reinschreiben. Der DM Betrag wird aus einem Feld Dem im Formular geholt.

Private Function Umrechnung() As Double

Dim DM As Double

  DM = Me!Dem

  Umrechnung = CDbl(CLng((DM / 1.95583) * 100 + 0.5)) / 100

End Function

Schönen Urlaub noch und schaff net zuviel!!!

<FONT COLOR="#a62a2a" SIZE="1">[ 22. November 2001 19:03: Beitrag 1 mal editiert, zuletzt von Naberius ]</font>

[piomode1]

Hi, FaFo!

Naberius, ich muß Dir mal auf die Füße treten .

Deine Function läuft, ABER

wie wäre es mit folgender Lösung:

Lege ein neues Modul im Datenbankfenster an.

Dorthinein kommt folgender Code

_____

Public Function CalcDmEuro(Betrag As Double, _

Optional Nachkommastellen As Integer = 2) As Double

Dim NkSt As Integer

NkSt = Nachkommastellen

CalcDmEuro = (Int(Betrag / 1.95583 _

* 10 ^ NkSt + 0.5)) / 10 ^ NkSt

End Function

_____

Die Funktion hat folgende Vorteile:

1) Sie ist überall in dieser Datenbank verfügbar.

Aufruf aus einem Formular:

Lege ein ungebundenes Steuerlement an. Als Steuerelement schreibst Du:

=CalcDmEuro([<Feldname_Mit_DM_Betrag>];[<Feldname_Mit_Nachkommastellen_Angabe>]

2) Die Anzahl der Nachkommastellen [NkSt] ist variabel;

ist das NkSt-Feld leer (NICHT zu verwechseln mit 0), wird der Standardwert 2 verwendet.

Ich habe eine kleine Beispiel-Datenbank geschrieben, die ich Dir/Euch zumailen kann. (Funktioniert das auch als Anhang einer PM?)

Ansonsten werden von mir natürlich keine persönlichen e-mail-Adressen weitergegeben, komerziell genutzt usw, sondern nur einmalig, um die DB zu übermitteln!!!

[Naberius]

Hi piomode,

du hast natürlich recht, wenn das ganze in einem extra Modul angelegt wird ist die Funktion in jedem Formular verfügbar, was bestimmt sinnvoll ist.

Bei den Nachkommastellen bin ich einfach mal davon ausgegangen das Währungen das Format 0.00 haben.

Danke für deine Tipps

Naberius