AW: Negative Zahlen ("-" am Ende der Zahl)
06.09.2005 16:48:07
Dieter
Hallo Karsten,
das scheint mir deutlich DATEV zu sein, da gibt es das auch. Deswegen habe ich mir mal eine benutzerdefinierte Funktion geschrieben, die das macht:
Function VorzeichenWert(datevwert)
x = datevwert
laenge_x = Len(x)
minus_vorhanden = (Mid(x, laenge_x, 1) = "-")
plus_vorhanden = (Mid(x, laenge_x, 1) = "+")
If minus_vorhanden Then
x_ohne_minus = Mid(x, 1, laenge_x - 1)
Kommastelle_bei = InStr(1, x_ohne_minus, ",")
If Kommastelle_bei = 0 Then
ganzerTeil = x_ohne_minus
BruchTeil = 0
Else
ganzerTeil = Mid(x_ohne_minus, 1, Kommastelle_bei - 1)
BruchTeil = Mid(x_ohne_minus, Kommastelle_bei + 1)
End If
x_ohne_minus = ganzerTeil & "." & BruchTeil
VorzeichenWert = Val(x_ohne_minus) * (-1)
End If
If plus_vorhanden Then
x_ohne_plus = Mid(x, 1, laenge_x - 1)
Kommastelle_bei = InStr(1, x_ohne_plus, ",")
If Kommastelle_bei = 0 Then
ganzerTeil = x_ohne_plus
BruchTeil = 0
Else
ganzerTeil = Mid(x_ohne_plus, 1, Kommastelle_bei - 1)
BruchTeil = Mid(x_ohne_plus, Kommastelle_bei + 1)
End If
x_ohne_plus = ganzerTeil & "." & BruchTeil
VorzeichenWert = Val(x_ohne_plus)
End If
If Not (minus_vorhanden Or plus_vorhanden) Then
VorzeichenWert = "#Wert? Kein nachgestelltes Vorzeichen vorhanden!"
End If
End Function
Hinweis: in die personl.xls einbinden, dann hast Du die Funktion immer zur Verfügung
Gruß
Dieter