Runden und DM/Euro-Umrechnung Routinen zum Runden von Werten, sowie DM/Euro-Umrechnung mit autom. Runden auf zwei Nachkommstellen.
Autor:   Christian Rickel	Bewertung:	Views:  15.650
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Routinen zum runden von Werten und auch zur DM/Euro-Umrechnung, wobei auch diese Werte direkt auf zwei Stellen hinter dem Komma gerundet werden.

Option Compare Database
 
' Euro-Umrechnungsfaktor
Const ConEuro = 1.95583
 
Public Function Runden(Wert As Double, _
  Optional Anzahl As Byte = 2) As Double
 
  ' Routine zum Runden von Zahlen.
  ' Standardmäßig sind zwei Nachkommastellen
  ' eingestellt.
 
  Dim zwWert1 As Long
  Dim zwWert2 As Long
  Dim Stelle As Byte
 
  zwWert1 = Fix(Wert * 10 ^ (Anzahl + 1))
  Stelle = Right(zwWert1, 1)
  zwWert2 = Fix(Wert * 10 ^ Anzahl)
 
  If Stelle < 5 Then
    Runden = zwWert2 / (10 ^ Anzahl)
  Else
    If zwWert2 > 0 Then
      Runden = (zwWert2 + 1) / (10 ^ anzahl) 
    Else
      Runden = (zwWert2 - 1) / (10 ^ anzahl) 
    End If
  End If
End Function
 
Public Function UmrEuro(Wert As Double) As Double
 
  ' Der Wert wird von DM in Euro mit zwei
  ' Nachkommastellen umgerechnet.
 
  Dim zwWert As Double
 
  If Wert = 0 Then
    UmrEuro = 0
  Else
    zwWert = Wert / ConEuro
    UmrEuro = Runden(zwWert)
  End If
End Function
 
Public Function UmrDM(Wert As Double) As Double
 
  ' Der Wert wird von Euro in DM mit zwei
  ' Nachkommastellen umgerechnet.
 
  Dim zwWert As Double
 
  If Wert = 0 Then
    UmrDM = 0
  Else
    zwWert = Wert * ConEuro
    UmrDM = Runden(zwWert)
  End If
End Function

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.