LibreOffice-Forum

Code: Alles auswählen

Sub Main
	dim st as string
	st = "1.287,00 €"
	ld_x = val(st)
	msgbox ld_x   ' ergibt 1,287
End Sub

Code: Alles auswählen

REM  *****  BASIC  *****

REM https://wiki.openoffice.org/wiki/DE/Makro_Basic_Tutorial

Sub Main
Dim sStr as string
Dim fWert as Double
Dim nLaenge as Integer

sStr = "1.287,00 €"
	
	' Gesamtlänge des Strings ermitteln
	nLaenge=Len(sStr)
	
	' Nur den linken Teil ohne Leerzeichen und €-Symbol erfassen
	' Ergebnis =  1.287,00
	sStr=left(sStr,nLaenge-2)	' -2	→	Leerzeichen und Euro-Symbol
	
	' Die Replace-Funktione aufrufen und die Ersetuzungsparameter übergeben.
	' In diesem Fall wird der Punkt durch NICHTS ersetzt
	sStr=Replace(sStr,".","")

	' Runtime-Funktionen: https://wiki.openoffice.org/wiki/Documentation/BASIC_Guide/Conversion_Functions_(Runtime_Library)
	' String per Runtime-Funktion (cDbl) in einen Doublewert umwandeln,
	' so wird aus einer Ziffer eine Zahl.
	' Eine Testberechnung:
	fWert=cDbl(sStr)	+ 1000.52
		
		print fWert

End Sub

REM Quelle: https://wiki.openoffice.org/wiki/Documentation/BASIC_Guide/Strings_%28Runtime_Library%29
Function Replace(Source As String, Search As String, NewPart As String)
  Dim Result As String  
  Result = join(split(Source, Search), NewPart)
  Replace = Result
End Function

Code: Alles auswählen

Sub Main
	Dim sStr$
	Dim fWert#
	sStr = "1.287,01 €"
	fWert = myval(sStr)
	print fWert
end sub

Function myval(sBetrag as string)
	Dim nLaenge as Integer
	nLaenge=Len(sBetrag)
	sBetrag=left(sBetrag,nLaenge-2)
	sBetrag=join(split(sBetrag,"."),"")
	myval=cDbl(sBetrag)
end function