Tipp 10.19 - Negative Werte

Wie kann ich einen negativen Wert erzwingen?

Jeder numerische Wert lässt sich mithilfe der Abs-Funktion als positive Zahl darstellen. Abs(-100) ergibt demzufolge 100. Wenn man aber nun grundsätzlich einen Minuswert benötigt, gibt es keine adäquate Funktion. Folgende kleine Routine schafft da Abhilfe:

' Negativen Wert erzwingen
Public Function Neg(vValue)
 
    Neg = vValue
    If IsNumeric(vValue) Then
        If Sgn(vValue) > 0 Then
            Neg = vValue * (-1)
        End If
    End If
 
End Function

Diese kleine Funktion ermittelt das Vorzeichen und berechnet bei Bedarf den negativen Wert; Neg(100) ergibt dann wie gewünscht -100.



Zurück Tipp 10.18 - Dokumentenliste löschen | Inhalt | Tipp 10.20 - BMI errechnen Weiter