Da liegt das "Geheimnis":


If Sekbyte > 19 Then
Decr Minbyte
Sekbyte = Sekbyte - 20
End If