- 1tens schreib mal: Dim Tyear as Long
- 2tens FIX funzt nur mit Single

brauchst du eigentlich long?
Division mit Word oder Byte gibt immer nur den ganzzahligen Anteil zurück.