Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: formatierte Zahlenausgabe in Datei
Autor: ffhex
Datum: 05.12.02 21:37
hallo dieter, ich habe nochmal ein bischen gebastelt und mir erlaubt deine funktion ein bischen abzuändern, damit der "." richtig kommt... allerdings muss der XWERT jetzt als String UND NICHT ALS VARIANT definiert sein!! mfg. FFhex (www.FFhex.de) ================================ ' Formatierte Ausgabe von "wissenschaftlich-numerischen" Strings ' FormatString("-12345.6789", "00000000.000") ergibt " -12345.679" ' FormatString("-12345.6789", "00000000") ergibt " -12346" Private Function FormatString(ByVal nWert As String, ByVal sFormat As String) Dim sText As String Dim nlen As Integer Dim npos As Integer ' Soll-Länge und Nachkommaposition merken nlen = Len(sFormat): npos = InStr(sFormat, ".") ' keine führenden Nullen zulassen If npos = 0 Then npos = nlen End If ' Format der Nachkommastellen abtrennen sFormat = Right(sFormat, nlen - npos + 1) ' auf Nachkommastellen numerisch formatieren sText = Format$(Val(nWert), sFormat) ' auf Soll-Länge mit " " auffüllen If nlen > 0 Then While Len(sText) < nlen sText = " " & sText Wend End If ' "," durch "." ersetzen und übergeben FormatString = Replace(sText, ",", ".") End Function =FFhex=

formatierte Zahlenausgabe in Datei	1.068	ffhex	03.12.02 13:47
Re: formatierte Zahlenausgabe in Datei	542	Dieter	03.12.02 14:36
Re: formatierte Zahlenausgabe in Datei	532	ffhex	03.12.02 20:58
Re: formatierte Zahlenausgabe in Datei	835	ffhex	05.12.02 21:37

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen