Domino 9 und frühere Versionen > ND8: Entwicklung

LS: Keine führende oder abschließende Null bei Kommazahlen

(1/3) > >>

Obrac:
Guten Morgen,

ich sitze jetzt schon viel zu lange an einem Problem, das eigentlich eine Kleinigkeit ist. Ein Script liest eine Zahl aus einem Dokument aus. Das Feld ist als Währung deklariert. Wenn ich ein Textfeld erstelle, das den Wert des Zahlenfeldes als Text übernimmt und ich aus diesem Textfeld den Inhalt auslese, ist noch alles ok. Denn wird eine Zahl wie 0,73 auch genauso ausgelesen. Nun lese ich aber die Werte aus zwei Dokumenten aus und möchte diese addieren. Ich schaffe es einfach nicht, das Ergebnis mit führender oder abschließender Null auszugeben.  Es kommen z.B. Werte wie ",25" oder "5,3" raus statt "0,25" und "5,30". Ich habe mit allen möglichen Datentypen gearbeitet, habe die Format-Funktion ausprobiert.. Gibt es irgendeinen Trick, wie man ohne String-Zerlegung eine vernünftige Währungs-Kommazahl bekommt?

Gruß,
Obrac

Peter Klett:
Poste doch mal den Teil des Scriptes. Schreibst Du evtl. den Wert als Text in das Währungsfeld?

Obrac:
Das Ganze ist, was die Datentypen anbelangt, im Moment ein bisschen chaotisch, weil ich viel ausprobiert habe. Fakt, dass es so nicht funktioniert..


--- Code: ---Sub Click(Source As Button)

Dim strgesamt As String
Dim strgesamt_zahl As Currency
Dim lngGesamt As Currency
Dim strGesamt2 As Currency


'Zugriif auf markierte Doks in der Ansicht
Set collection = db.UnprocessedDocuments

'Erstes Dokument
Set doc = collection.GetFirstDocument

While Not (doc Is Nothing)
  'Tu was mit dem Dokument
iCounter=iCounter+1

sEmpfaenger=doc.mail(0)
If doc.form(0)="frmAusgabe" Then
strBez = doc.Ausgabe(0)
Else
strBez = doc.Einnahme(0)
End If

strgesamt=doc.gesamt(0) 'Textfeld
strgesamt_zahl=doc.gesamt_zahl(0) 'Currencyfeld

lngGesamt=lngGesamt+strgesamt_zahl
strGesamt2=Ccur(strGesamt2)+Ccur(strgesamt)


strBody0=doc.mailtext(0)+Chr(10)+Chr(10)
strBody1=strBody1+strBez+": "+strgesamt+" Euro"+Chr(10)



  'Nächstes Dokument
Set doc = collection.GetNextDocument(doc)

Wend

' Hier nun den Gesamtbetrag ausgeben, mit führender und abschließender Null

End Sub
--- Ende Code ---

Peter Klett:
Hast Du es schon mal mit Double statt Currency und Cdbl statt Ccur versucht?

Obrac:
Ja, habe ich schon. Habe so ziemlich alle Datentypen durch.

Navigation

[0] Themen-Index

[#] Nächste Seite