Datentyp mit Nachkommastellen ist SINGLE

Nachfolgend ein Berechnungsbeispiel:

Code:
Dim wR as Word
Dim sngT as Single , sngR as Single

wR = 10000                                                  ' Widerstand

sngR = wR                                                   ' Typkonvertierung von Word nach Single

'T=(3048.98367)/(ln(R)+3.31859)

sngR = log(sngR)
sngR = sngR + 3.31859

sngT = 3048.98367 / sngR

lcd fusing(sngT , "###.#")