Glengamoi (Forum) · AspHeute · .NET Heute (RSS-Suche) · AspxFiles (Wiki) · .NET Blogs

Preisauszeichnung in Euro mit ASP

Geschrieben von: Christoph Wille
Kategorie: Komponenten

This printed page brought to you by AlphaSierraPapa

Mit der Einführung des Euro müssen nun Produkte doppelt ausgezeichnet werden, einmal in Landeswährung, und auch in Euro. Die Umrechnung ist allerdings nicht ganz so einfach, die Formeln dazu finden sich in Artikel 235 des Maastricht Vertrags.

Damit man das nicht selbst implementieren muß, haben wir die Euro Komponente entwickelt. Diese ist gratis und kann von unserer Euro Seite downgeloadet werden. Die Komponente hat ein eigenes Setup Programm und kommt mit Beispielen für ASP, Visual Basic, Visual C++ (MFC) sowie für Visual J++.

Die einfachste Anwendung der Komponente ist folgende:

<%
Set conv = CreateObject("Softwing.EDConverter")
Response.Write conv.ConvertFromEuro(100, "ATS")
%>
Der Befehl ConvertFromEuro konvertiert 100 Euro in Schilling. Das Gegenstück dazu ist ConvertToEuro:
<%
Set conv = CreateObject("Softwing.EDConverter")
Response.Write conv.ConvertToEuro(100, "ATS")
%>
Jetzt rechnet die Komponente 100 Schilling in Euro um. Diese beiden Funktionen nehmen als zweiten Parameter nicht nur ein Währungssymbol, sondern auch einen Umrechnungsfaktor (eine Double Zahl). Wem die eingebauten Umrechnungskurse nicht ausreichen, kann mittels SetExchangeRate neue Kurse hinzufügen.

Die beiden Funktionen ConvertFromEuro and ConvertToEuro führen beide bereits die Maastricht konforme Rundung intern durch. Sollte man aber einen Betrag haben (zB: nach einer Multiplikation), der noch gerundet werden muß, kann man die Round Funktion verwenden:

<%
Set conv = CreateObject("Softwing.EDConverter")
Response.Write conv.Round(123.3444)
%>

Nun, was passiert allerdings, wenn ich von Schilling nach Mark umrechnen will? Da hat die EU für uns ein eigenes Berechnungsverfahren - die Triangulation. Dieses gilt auch für Mark nach Dollar (usw), und wird auch von der Komponente unterstützt:

<%
dResult = conv.Triangulate(100.00, "ATS", "DEM")
dResult = conv.Triangulate(100.00, 13.9114, 1.9776)
dResult = conv.Triangulate(100.00, 13.9114, "DEM")
%>

Weitere Beispiele zur Anwendung der Komponente finden sich unter Samples der Euro Homepage, so zum Beispiel dualdisplay.asp, das die Verwendung der Komponente im Zusammenspiel mit einer Produktdatenbank zeigt. Ein einfacher Klick auf die Grafik View Code zeigt den Source Code der jeweiligen Beispielseite an.

Wer sich weiter informieren möchte, der kann die Hilfe der Komponente auch online nachlesen.

This printed page brought to you by AlphaSierraPapa

Verwandte Artikel

Eine Eurokonvertierungskomponente in C# erstellen
http:/www.aspheute.com/artikel/20010123.htm

Links zu anderen Sites

Euro Conversion Komponente
http://www.alphasierrapapa.com/ComponentCenter/Euro/

 

©2000-2006 AspHeute.com
Alle Rechte vorbehalten. Der Inhalt dieser Seiten ist urheberrechtlich geschützt.
Eine Übernahme von Texten (auch nur auszugsweise) oder Graphiken bedarf unserer schriftlichen Zustimmung.