''' <summary>Umrechnung Betrag Euro,Cent in Dollar,Cent</summary>
Private Sub Euro_Dollar(ByVal Euros As Integer, ByVal EuroCents As Integer,
                           ByRef Dollars As Integer, ByRef DollarCents As _
                             Integer)
 
    Dim Umrechnungsfaktor As Decimal = 1.2983D 'Kurs ermittelt 25.11.2012 21:00
 
    Dim EuroBetrag As Decimal = Euros + EuroCents / 100D
    Dim DollarValue As Decimal = BankersRounding(EuroBetrag * Umrechnungsfaktor)
    Dollars = CInt(Math.Truncate(DollarValue))
    DollarCents = CInt((DollarValue - Dollars) * 100D)
End Sub
 
''' <summary>kaufmännisch runden</summary>
''' <param name="value">Betrag</param>
Public Function BankersRounding(ByVal value As Decimal) As Decimal
    'entspricht MidpointRounding: AwayFromZero
    Dim sign As Integer = Math.Sign(value)
    value = Math.Abs(value) * 100D + 0.5D
    value = Math.Floor(value) / 100D
    Return sign * value
End Function