OpenOffice.info

Dim S As Single
Dim R As Single

Dim S as Single, R as Single

Hallo,

[quote]Das heißt demnach, daß
[code]Dim S, R As Single
'ungleich
Dim S As Single
Dim R As Single[/code]
ist?[/quote]
Genau richtig!

Allerdings könntest du statt
[code]Dim S As Single
Dim R As Single[/code]
auch
[code]Dim S as Single, R as Single[/code]
schreiben

theindless

Sub Test2
Dim S As Single
S = 8.65
S=S * 1
MsgBox S
End Sub

Was Du da in der Msgbox siehst ist kein Single-Wert, weil das Ergebnis von S*1 zu einem Double-Wert wird. (Durch die Multiplikation mit der 1 (die wenn sie so dasteht als Integerwert gilt))

Versuch' mal das:

[code]Sub Test2
Dim S As Single
S = 8.65
S=S * 1
MsgBox S
End Sub[/code]

... und schon steht 8,65 in der Box...


Wenn Du explizit eine Rechnung mit der Single-Genauigkeit brauchst, dann sollten aber alle verwendeten Teile auch als Single deklariert sein - um Fehler zu vermeiden daher ggf. auch die 1! ... und natürlich das Ergebnis ;)

Dim S, R As Single

Hallo,

das Problem kenne ich nicht, aber ein Hinweis von mir:

[code]Dim S, R As Single[/code]
Damit deklarierst du S NICHT als Single, sondern als Variant.

Oh... Karo war schneller

theindless

Dim S, R As Single

Hallo
[code]Dim S, R As Single[/code]
Hier deklarierst du nur R explizit als Single, S wird bei der Zuweisung des Werts 8.65 implizit zu Double - damit "reicht" die Genauigkeit als binärer Wert.

Ps. Warum deklarierst du erst explizit [b][i]nur[/i][/b] als Single wenn dir hinterher die Genauigkeit nicht ausreicht.

Karo