Byte-Variable Berechnung fehlerhaft

[demmy]

Hu Hu,

ja das war ein kleiner Kopierfehler.  
Und vielen Dank, habe es jetzt so gemacht und jetzt funktioniert es!  

Dim Te As Single
Dim Rechenwert1 As Single
Dim Rechenwert2 As Word
Dim Vorkomma_word as Word
dim Nachkomma_word as word
Dim Vorkomma As Byte
Dim Nachkomma As Byte

Rechenwert1 = Te * 100                ' Komma um zwei Stellen nach rechts verschieben
Rechenwert1 = Round(rechenwert1)   ' letzte Stelle runden
Rechenwert2 = Rechenwert1          ' Single-Variable in Word-Variable wandeln
Vorkomma_word = Rechenwert2 / 100       
Nachkomma_word = Rechenwert2 Mod 100
Vorkomma = Vorkomma_word
Nachkomma = Nachkomma_word

Aber geht das ganze nicht irgendwie ein wenig einfacher? Das scheint mir doch alles ein wenig viel zu sein für so eine "einfache" Rechenoperation.