VBScript - nur die Nachkommastellen anzeigen

[Jörg Lorenz]

Hi Seppel,

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

  
kannst auch mal die Version testen:  
  
~~~javascript
  
a = 4.854  
b = (a - Int(a))  
b = b * 10 ^ (Len(b) - 2)  
MsgBox b  

Viele Grüße

Jörg