rick
05.08.2009, 14:41
kurs=0.51129 'DM in Euro
'kurs=1.95583 'Euro in DM
betrag=InputBox("geben Sie den Betrag in Mark ein!")
neuerbetrag=betrag*kurs
MsgBox "Der Betrag entspricht"& FormatCurrency(neuerbetrag)
dieses Produkt ist marke Eigenbau :)
Mfg Rick
'kurs=1.95583 'Euro in DM
betrag=InputBox("geben Sie den Betrag in Mark ein!")
neuerbetrag=betrag*kurs
MsgBox "Der Betrag entspricht"& FormatCurrency(neuerbetrag)
dieses Produkt ist marke Eigenbau :)
Mfg Rick