home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / dm2euro.zip / euro2dm.cmd < prev   
OS/2 REXX Batch file  |  1999-01-01  |  1KB  |  48 lines

  1. /* REXX-Programm zur Umrechnung  Euro --> DM   */
  2. /* Hermann Mahr, h_mahr@hrzpub.tu-darmstadt.de */   
  3. numeric digits 12
  4. u=1.95583
  5. parse arg Euro
  6. if Euro="" then
  7. do
  8.   Beep(443,200)
  9.   say
  10.   say"    Anwendung: euro2dm Euro-Betrag"
  11.   say"    Beispiel : euro2dm 17,85"; say
  12.   say"    Es kann das Dezimalkomma oder der Dezimalpunkt verwendet werden;"
  13.   say"    Die Bildschirmausgabe geschieht mit dem Dezimalkomma.           "
  14.   exit
  15. end
  16.  
  17. /* Für die interne Umrechnung ein bei der Eingabe eventuell    */      
  18. /* verwendetes Dezimalkomma durch einen Dezimalpunkt ersetzen. */      
  19. kk=Pos(",",Euro)
  20. if kk<>0 then Euro=OverLay(".",Euro,kk)
  21.  
  22. if DataType(Euro,'N')<>1 then
  23. do
  24.   Beep(443,200)
  25.   say
  26.   say"    Der von Ihnen eingegebene Euro-Betrag  "Euro
  27.   say"    hat ein falsches Zahlenformat !"
  28.   EXIT
  29. end
  30.  
  31. DM=Euro*u
  32. DM=Format(DM, ,2) 
  33.                
  34. /* Für die Bildschirmausgabe Dezimalpunkt */      
  35. /* durch Dezimalkomma ersetzen.           */      
  36. kp=Pos(".",u)
  37. if kp<>0 then u=OverLay(",",u,kp)
  38. kp=Pos(".",DM)
  39. if kp<>0 then DM=OverLay(",",DM,kp)
  40. kp=Pos(".",Euro)
  41. if kp<>0 then Euro=OverLay(",",Euro,kp)
  42.                              
  43. say
  44. say"    "Euro" Euro  =  "DM" DM"  
  45. say
  46. say"    (Umrechnungsfaktor:  u="u" DM/Euro)" 
  47. EXIT
  48.