Dim m As Decimal = 100.1234
        Dim y As Decimal = 300.4444
        Dim ak As Decimal = (m + y) / 2
        If ak > m Then ak = ak - 100
        If ak < m Then ak = ak + 100
 
        Dim n As Decimal = 100.1234
        Dim z As Decimal = 300.4444
        Dim al As Decimal = (n + z) / 2
        If al > n Then al = al - 100
        If al < n Then al = al + 100

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist