Entwickler-Ecke
Sonstiges (Delphi) - Hilfe bei Umrechnungskursen
Kampf_Kartoffel - Do 25.10.18 20:35
Titel: Hilfe bei Umrechnungskursen
Hallo,
ich bin zurzeit dabei ein ganz kleines Programm zur Währungsumrechnung zu schreiben. In diesem kann man von Euro zu Dollar, Euro zu Pfund und Dollar zu Pfund mit in einem vom Nutzer eingegebenen Kurs umrechnen (Soweit so gut). Nun soll sich allerdings der Kurs für Dollar zu Euro, Pfund zu Euro und Pfund zu Dollar aus den vorher eingegeben Kursen ergeben. Die Lösung ist wahrscheinlich ganz einfach, doch ich komme einfach nicht darauf. Kann mir jemand sagen wie ich von zum Bsp.: EurozuDollar:=1.15 auf den Kurs von DollarzuEuro:=0.87 (Kurse von Google) komme ohne letzteren einzugeben?
Danke im Voraus!
mandras - Do 25.10.18 20:50
Für die Rückrechnung ist der Kehrwert des ursprünglichen Wechselkurses zu verwenden.
Bei Deinem Beispiel: EuroZuDollar := 1,15.
Daraus folgt: DollarZuEuro = 1/EuroZuDallar = 1/1,15 = 0,87
jasocul - Fr 26.10.18 07:54
Ein bisschen Erläuterung zum (hoffentlich) besseren Verständnis.
Der Kurs ist Verhältnis einer Währung zu einer anderen. Man schreibt ein Verhältnis (nach deinem Beispiel) "Euro zu Dollar".
Da das "zu" für Division steht, wird "mathematisch" daraus Euro / Dollar.
Wenn man dementsprechend Dollar zu Euro haben möchte, muss man Dollar / Euro (also den Kehrwert, wie madras schon schrieb) nehmen.
Anwender - Fr 26.10.18 10:26
ich würde dann aber auch direkt
Euro => Dollar
1=> 1,1375 Dollar
Quelltext
1:
2:
3:
4:
5:
6:
7:
| var DOL, EUR, Kurs : Double;
begin
Kurs := 1.1375;
Eur := strtofloat(Edit1.text);
DOL := floattostr( Eur * Kurs);
Edit2.text := DOL;
End; |
und für Dollar in Euro
Quelltext
1:
2:
3:
4:
5:
6:
7:
| var DOL, EUR, Kurs : Double;
begin
Kurs := 1.1375;
Eur := strtofloat(Edit1.text);
DOL := floattostr( Eur / Kurs);
Edit2.text := DOL;
End; |
bole - Fr 26.10.18 23:10
 Anwender hat folgendes geschrieben  : |
| ich würde dann aber auch direkt |
Rechnen ist eins... aber es macht auch Sinn den Devisenkurs auf den GUI anzuzeigen mit dem man gerechnet hat. Da kommt man um den Kehrwert nicht herum
Gruss
Bole
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!