home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / dm2euro.zip / dm2euro.cmd next >
OS/2 REXX Batch file  |  1999-01-01  |  1KB  |  48 lines
  1. /* REXX-Programm zur Umrechnung  DM --> Euro   */
  2. /* Hermann Mahr, h_mahr@hrzpub.tu-darmstadt.de */   
  3. numeric digits 12
  4. u=1.95583
  5. parse arg DM
  6. if DM="" then
  7. do
  8.   Beep(443,200)
  9.   say
  10.   say"    Anwendung: dm2euro DM-Betrag"
  11.   say"    Beispiel : dm2euro 15,27"; 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(",",DM)
  20. if kk<>0 then DM=OverLay(".",DM,kk)
  21.  
  22. if DataType(DM,'N')<>1 then
  23. do
  24.   Beep(443,200)
  25.   say
  26.   say"    Der von Ihnen eingegebene DM-Betrag  "DM
  27.   say"    hat ein falsches Zahlenformat !"
  28.   EXIT
  29. end
  30.  
  31. Euro=DM/u
  32. Euro=Format(Euro, ,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"    "DM" DM  =  "Euro" Euro"  
  45. say
  46. say"    (Umrechnungsfaktor:  u="u" DM/Euro)" 
  47. EXIT
  48.