VBScript - nur die Nachkommastellen anzeigen

[seppel]

Hi Martin,

frac(x) = x - int(x)

das war mein Versuch Nr. 2 - mit dem Ergebnis immer 15 Nachkommastellen zu bekommen. z.B. 43.3 - 43 ergibt 0.299999999999997 (auch wenn ich die Werte direkt einsetze) Seltsame Sache, aber ohne zu wissen wieviel Stellen es gibt kann man dieses blödsinniege Ergebnis ja auch nicht runden.

Freundlicherweise bieten einige Programmiersprachen auch von Haus aus schon eine Funktion an, die den Nachkommaanteil von float-Werten liefert.

Das ist wonach ich gesucht habe...

Habe es jetzt so gelöst:

  
If instr(x,".") <> 0 Then  
    z = split(x,".")  
    y = 1  
    do until len(y) = len(z(1))+1  
        y = y & "0"  
    loop  
    fractions = int(z(1)) & "/" & y  
Else  
    fractions = 0  
End If  

Seppel