toll diese Smilys

Code:
If Crc = 0 Then                                          ' if is OK, calculate for 
      Tmp = Bd(1) And 1                                     ' 0.1C precision 
      If Tmp = 1 Then Decr Bd(1) 
      T = Makeint(bd(1) , Bd(2)) 
      T = T / 2 
      Temp = Bd(8) - Bd(7) 
      Temp = Temp / Bd(8) 
      Temp = T + Temp 
      Temp = Temp - 0.25 
   End If