Umwandlung in Dezimalzahl

[Demian]

Moin,moin alle zusammen,

folgende Konstellation:

Ich bekomme von einem Fremdsystem folgende strings, die ich in Dezimalzahlen umwandeln müsste:

"000000129-" oder
"000000129 "

Die " sind nur zur Verdeutlichung, dass bei positiven Zahlen an letzter Stelle ein Leerstring ist.

Die letzten beiden Ziffern stellen die Nachkommazahlen dar.

Es handelt sich also um die Werte -1.29 bzw. 1.29.

Irgendwie steh ich da im Moment voll auf dem Schlauch.

Hat jemand nen Ansatz, wie ich die Strings am Besten umwandeln kann?

Gruß
Demian

[m3]

Formelsprache, LotusScript, JavaScript oder Java ?

[Demian]

Sorry, ganz vergessen: Vorzugsweise in Script.

[m3]

Na MId$ und Right$, String auseinanderschneiden und dann zusammenbauen.

[Demian]

Moin,moin,

ich habe da nur das Problem mit den führenden Nullen. Insbesondere wenn die erste Vorkommazahl auch ne Null ist.

Hier mal mein bisheriger Code:

_{Function Sum(SumLine As String) As Currency
   Dim Zeros As Integer
   Dim PreDecimalPosition As String
   Dim DecimalPlace As String
   Dim SubTotal As String
   Dim i As Integer
   
   For i = 1 To 9
      If Mid(SumLine, i, 1) = 0 Then
         Zeros = Zeros + 1
      Else
         Exit For
      End If
   Next i
   
   If Zeros > 6 Then Zeros = 6
   
   PreDecimalPosition = Mid(SumLine, Zeros + 1, 7 - Zeros)
   DecimalPlace = Mid(SumLine, 10 - Zeros + 1, 2)
   SubTotal = Cstr(PreDecimalPosition & "," & DecimalPlace)
   
   If Right(SumLine, 1) = "-" Then
      Sum = Format(SubTotal,"Currency") * -1
   Else
      Sum = Format(SubTotal,"Currency")
   End If
End Function}

Je länger ich da drauf guck, desto weniger Durchblick hab irgendwie. Irgendwie haperts bei dem

if Zeros > 6 und dem PreDecimalPosition.

Gruß
Demian

[klaussal]

Warum nimmst Du nicht einfach die linken neun Stellen, haust die in ein Zahlenfeld rein und anschliessen Division durch 100 ? Dann je nach der rechten Stelle * (-1) oder nicht.

[m3]

Code

	Dim zahlen(1) As String
	Dim temp As String
	Dim negativ As Boolean
	Dim nachkomma As String
	Dim vorkomma As String
	Dim offset As Integer
	Dim laenge As Integer
	Dim ergebnis As Double
	
	zahlen(0) = "000000129-"
	zahlen(1) = "000000129 "
	
	Forall zahl In zahlen
		laenge = Len(zahl)
		temp = Right(zahl, 1)
		If( temp = "-" ) Then
			negativ = True
			offset = 3
		Else
			negativ = False
			offset = 2
		End If
		
		nachkomma = Mid$(zahl, laenge - offset, 2)
		vorkomma = Left(zahl, laenge - offset)
		
		ergebnis = Cdbl( Cstr( Cint(vorkomma)  )  & "," & Cstr( Cint(nachkomma) )  )
		If (negativ) Then
			ergebnis = ergebnis * -1
		End If
		
		Msgbox  ergebnis  
		
	End Forall

[Glombi]

ergebnis = Cdbl( Cstr( Cint(vorkomma)  )  & "," & Cstr( Cint(nachkomma) )  )

Mit String Operationen wäre ich vorsichtig. Wenn es schon sein muss, dann würde ich das Trennzeichen für den Dezimalseparator aus den Betriebssystemeinstellungen lesen:

DecimalSep
Read-only. The decimal separator in number format, for example, the decimal point.
string = notesInternational.DecimalSep


Bsp. aus der Hilfe
Dim session As New NotesSession
Dim international As NotesInternational
Set international = session.International
Messagebox international.CurrencyDigits,, _
"Number of decimal digits"
Messagebox international.DecimalSep,, "Decimal separator"
Messagebox international.ThousandsSep,, "1000s separator"
If international.IsCurrencyZero Then
  Messagebox "Yes",, "Leading zero?"
Else
  Messagebox "No",, "Leading zero?"
End If

Andreas

[m3]

Ja wollte ich eh noch, hab dann aber drauf vergessen. Danke für den Nachtrag.

[klaussal]

Der Offset muss jedesmal 2 sein, sonst stimmt das Ergebnis nicht !!

[klaussal]

Code

Dim zahlen(1) As String
	Dim temp As String
	Dim negativ As Boolean
	Dim vorkomma As String
	Dim offset As Integer
	Dim laenge As Integer
	Dim ergebnis As Double
	
	zahlen(0) = "000000129-"
	zahlen(1) = "000000129 "
	
	Forall zahl In zahlen
		laenge = Len(zahl)
		temp = Right(zahl, 1)
		If( temp = "-" ) Then
			negativ = True
		Else
			negativ = False
		End If
		
		vorkomma = Left(zahl, laenge - 1)
		ergebnis = Cdbl( vorkomma) 
		ergebnis = ergebnis / 100
		
		If (negativ) Then
			ergebnis = ergebnis * -1
		End If
		
		Msgbox  ergebnis  
		
	End Forall

[Demian]

Erstmal vielen Dank für die vielen Antworten.

Ich habe mich letztlich für den Code von Klauss entschieden, da er der kürzeste ist.

Forall Zahl in Zahlen <- das sowas geht, war mir gar nicht bewusst. Ich war der Meinung Forall funktioniert nur mit "echten" Objekten, also sowas wie

Forall Items in Doc.Items oder so. Wieder was gelernt.

Das mit den Betriebsystemeinstellungen ist auch eine feine Sache. Aber da wir keinerlei Zweigstellen im Ausland haben und auch nicht glaube das das so schnell passieren wird, werde ich das erstmal nicht verwenden.

Nochmals vielen vielen Dank euch allen.

War da echt schon am Verzweifeln mit den Nullen.

Gruß
Demian

[Pyewacket]

Unter der Voraussetzung dass das Format immer mindestens 3 Ziffern und Rechts eine Leerstelle oder ein Minuszeichen enthält lässt sich das auch so machen:

    Dim s As New NotesSession
   
   Dim Eingabe As String    ' Der Eingabewert
   
   Dim ausgabe As Currency   ' Der Ausgabewert
   
   
   Dim w1 As String      ' Arbeitsfeld Vorzeichen
   Dim w2 As String      ' Arbeitsfeld Vorkommastellen
   Dim w3 As String      ' Arbeitsfeld Dezimaltrennzeichen
   Dim w4 As String      ' Arbeitsfeld nachkommastellen
   Dim w5 As String      ' Arbeitsfeld für Zusammenbau
   
   w1=Right(Eingabe,1)            ' Vorzeichen '-' oder ' '
   
   w2=Left(Eingabe, Len(Eingabe)-3)   ' Die vorkommastelle
   
   w3=s.International.DecimalSep      ' das aktuelle Dezimaltrennzeichen
   
   w4 =  Mid(Eingabe, Len(Eingabe)-2,2) ' die zwei Dezimalstellen
   
   
   
   w5= w1 + w2 + w3 + w4          ' Alles aneinanderhängen zu ein Zeichenkette
   
   Ausgabe=Ccur( w5)            ' Umwandeln in Zieltyp

[Pyewacket]

Da die Zahlen vermutlich mal Geldbeträge darstellen sollen habe ich für das Ausgabefeld als Typ Currency genommen.  Double als Feldtyp ist dafür total ungeeignet.